03. november 2006 - 08:40Der er
18 kommentarer og 1 løsning
problem med kopiering med makro
Hej jeg har et problem med et billede jeg ikke kan få kopieret med over i en anden fil. Har følgende to knapper med makro. Når jeg benytter den første knap kommer billedet fint med over på de andre ark. dette sker dog ikke når jeg trykker på sidste knap.
Private Sub CommandButton2_Click() ' kode der overfører data til nyeste version til pakkeriet. 'Ret[B10] er den celle jeg har kundenummer i Workbooks.Open Filename:="H:\Pakkeinstruktioner\instruktion\" & [B10] & "test.xls" ' xxxx = kundenr. Windows([B10] & "test.xls").Activate Sheets("Nyeste version").Activate ActiveSheet.Unprotect ThisWorkbook.Sheets("NY version").Range("A1:g200").Copy Sheets("Nyeste version").Range("A1") ActiveSheet.Protect Password:="123" Application.CutCopyMode = False ActiveWorkbook.Close savechanges:=True
Ja jeg er godt klar over det må være noget med det. Men kan ikke få det til at virke på andre måder. vil du hjælpe med lidt kode så den tager hele arket?
Jeg sletter det ark der er der i forvejen og sætter et nyt ind
Private Sub CommandButton2_Click() ' kode der overfører data til nyeste version til pakkeriet. 'Ret[B10] er den celle jeg har kundenummer i Workbooks.Open Filename:="H:\Pakkeinstruktioner\instruktion\" & [B10] & "test.xls" ' xxxx = kundenr. Windows([B10] & "test.xls").Activate
Satte et nyt ark ind. Men det fungerer ikke helt som ønsket. For det første vil jeg gerne at første ark i [B10]test.xls, skal være Nyeste version Desuden kommer alle knapper med over og Ja delen med oplåsning af ark er ikke med
Private Sub CommandButton2_Click() ' kode der overfører data til nyeste version til pakkeriet. 'Ret[B10] er den celle jeg har kundenummer i Workbooks.Open Filename:="H:\Pakkeinstruktioner\instruktion\" & [B10] & "test.xls" ' xxxx = kundenr. Windows([B10] & "test.xls").Activate Sheets("Nyeste version").Activate ActiveSheet.Unprotect ThisWorkbook.Sheets("NY version").Range("A1:g200").Copy Sheets("Nyeste version").Range("A1")
ThisWorkbook.Sheets("NY version").Shapes("Picture 1").Copy ' ret til navnet på dit billede ActiveSheet.Range("G10").Select ' placerer øverste venstre hjørne ved G10, ret til din placering ActiveSheet.Paste
en af de ændringer der kan ske - og hvorfor jeg skal versionsstyre de forskellige pakkeinstruktioner er at det kan ske at der skal sættes et nyt billede ind. Får dette billede så et nyt navn. Det skal jo helst bibeholde billedet hvis koden skal bruges?
Kunne et alternativ evt være at billedet automatisk kommer ind dvs at i B48 feks kommer billede xxxx.jpg for kunde xxxx
Den hiver i hvert fal billedet med over nu. Tester lige lidt mere.
Hmm kan se billedet lægger sig som oven i hinanden. dette sker ikke for resten af data. Hmm litd ærgerlig. til at leve med men bedre hvis det ikke bare lagde sig oveni. det ene billede kan jo være større end det andet.
Private Sub CommandButton2_Click() ' kode der overfører data til nyeste version til pakkeriet. 'Ret[B10] er den celle jeg har kundenummer i Workbooks.Open Filename:="H:\Pakkeinstruktioner\instruktion\" & [B10] & "test.xls" ' xxxx = kundenr. Windows([B10] & "test.xls").Activate Sheets("Nyeste version").Activate ActiveSheet.Unprotect
For Each pic In Sheets("Nyeste version").Shapes ' sletter alle billeder i arket pic.Delete Next
ThisWorkbook.Sheets("NY version").Range("A1:g200").Copy Sheets("Nyeste version").Range("A1") ThisWorkbook.Sheets("NY version").Shapes("Picture 1").Copy ' ret til navnet på dit billede ActiveSheet.Range("G10").Select ' placerer øverste venstre hjørne ved G10, ret til din placering ActiveSheet.Paste ActiveSheet.Protect Password:="123" Application.CutCopyMode = False ActiveWorkbook.Close savechanges:=True
hmmm nu lagde billedet sig pludselig dobbelt. Prøvede at slette
ThisWorkbook.Sheets("NY version").Shapes("Picture 1").Copy ' ret til navnet på dit billede ActiveSheet.Range("G10").Select ' placerer øverste venstre hjørne ved G10, ret til din placering ActiveSheet.Paste
Og nu fungerer det bare. Bortset fra at billedet lægger sig dobbel. Og jeg skal når jeg sætter et nyt billede ind altid omdøbe det til billede 1. Lidt træls at jeg skal gå og huske på det.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
