Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy to another sheet fails
Hi NG,
I have got following code, which were originally made for a workbook.beforeclose, now i have copied it to a commandbutton and it wont work any more?, it worked in "beforeclose" and it works if the pricelist file is open, here is some of the code: ""Private Sub CommandButton1_Click() Dim bClose As Boolean Dim bk As Workbook On Error Resume Next Set bk = Workbooks("pricelist_DK.xls") 'sætter prisliste som til copy On Error GoTo 0 If bk Is Nothing Then bClose = True Set bk = Workbooks.Open("C:\prisliste_udskrift\pricelist_DK .xls") ' åbner prisliste End If Worksheets(2).Range("B20").Value = "4" ' kopier 4 farver til antal farver Worksheets(2).Range("N47").Value = Worksheets(2).Range("R1").Value ' sætter pris pr designskift til 4 frv pris bk.Worksheets(2).Range("D4").Value = _ Worksheets(2).Range("C2").Value ' kopier kunde bk.Worksheets(2).Range("D5").Value = _ Worksheets(2).Range("I2").Value ' kopier opgave bk.Worksheets(2).Range("D7").Value = _ Worksheets(2).Range("B11").Value & " MM " ' kopier bredde bk.Worksheets(2).Range("D8").Value = _ Worksheets(2).Range("B14").Value ' kopier afsnit bk.Worksheets(2).Range("C11").Value = "PRIS / " & _ Worksheets(2).Range("B8").Value ' kopier salgsenhed bk.Worksheets(2).Range("D26").Value = _ Worksheets(2).Range("B38").Value ' kopier Valuta bk.Worksheets(2).Range("D6").Value = _ Format(Range("B47").Value) & " / " & Format(Range("B48").Value) ' kopier folietype bk.Worksheets(2).Range("D9").Value = _ Worksheets(2).Range("B23").Value & "%" ' kopier farvedækning bk.Worksheets(2).Range("C12").Value = _ Worksheets(2).Range("E4").Value ' kopier Antal herfra og ned"" When i run it, it opens the pricelist and copies some of it, but not nearly enough, i hope some one have an idea of what's wrong. Ole -- Jeg beskyttes af den gratis SPAMfighter til privatbrugere. Den har indtil videre sparet mig for at fÃ¥ 24 spam-mails. Betalende brugere fÃ¥r ikke denne besked i deres e-mails. Hent den gratis her: www.spamfighter.dk |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy to another sheet fails
Havent i given enough information or isen't there anybody there can help me.
Ole "Ole" skrev i en meddelelse ... Hi NG, I have got following code, which were originally made for a workbook.beforeclose, now i have copied it to a commandbutton and it wont work any more?, it worked in "beforeclose" and it works if the pricelist file is open, here is some of the code: ""Private Sub CommandButton1_Click() Dim bClose As Boolean Dim bk As Workbook On Error Resume Next Set bk = Workbooks("pricelist_DK.xls") 'sætter prisliste som til copy On Error GoTo 0 If bk Is Nothing Then bClose = True Set bk = Workbooks.Open("C:\prisliste_udskrift\pricelist_DK .xls") ' åbner prisliste End If Worksheets(2).Range("B20").Value = "4" ' kopier 4 farver til antal farver Worksheets(2).Range("N47").Value = Worksheets(2).Range("R1").Value ' sætter pris pr designskift til 4 frv pris bk.Worksheets(2).Range("D4").Value = _ Worksheets(2).Range("C2").Value ' kopier kunde bk.Worksheets(2).Range("D5").Value = _ Worksheets(2).Range("I2").Value ' kopier opgave bk.Worksheets(2).Range("D7").Value = _ Worksheets(2).Range("B11").Value & " MM " ' kopier bredde bk.Worksheets(2).Range("D8").Value = _ Worksheets(2).Range("B14").Value ' kopier afsnit bk.Worksheets(2).Range("C11").Value = "PRIS / " & _ Worksheets(2).Range("B8").Value ' kopier salgsenhed bk.Worksheets(2).Range("D26").Value = _ Worksheets(2).Range("B38").Value ' kopier Valuta bk.Worksheets(2).Range("D6").Value = _ Format(Range("B47").Value) & " / " & Format(Range("B48").Value) ' kopier folietype bk.Worksheets(2).Range("D9").Value = _ Worksheets(2).Range("B23").Value & "%" ' kopier farvedækning bk.Worksheets(2).Range("C12").Value = _ Worksheets(2).Range("E4").Value ' kopier Antal herfra og ned"" When i run it, it opens the pricelist and copies some of it, but not nearly enough, i hope some one have an idea of what's wrong. Ole -- Jeg beskyttes af den gratis SPAMfighter til privatbrugere. Den har indtil videre sparet mig for at fÃ¥ 24 spam-mails. Betalende brugere fÃ¥r ikke denne besked i deres e-mails. Hent den gratis her: www.spamfighter.dk |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code fails when sheet is protected | Excel Discussion (Misc queries) | |||
Why Copy/Paste fails using Offset & Resize of myRange? | Excel Discussion (Misc queries) | |||
Chart location method fails using sheet name | Excel Programming | |||
Copy method fails in IIS | Excel Programming | |||
Find instruction fails (from foreign sheet) | Excel Programming |