29. april 2009 - 13:00
Der er
1 kommentar og
1 løsning
Find og indsæt
Hej, jeg vil høre om der er nogle som kan være behjælpelige med følgende problem:
Jeg har to faner i excel, det ene er et kartotek og det andet noget som ændres fra dag til dag. Således ønsker jeg, at danne en VBA-kode, som finder datoen i dag i kartoteks fanen, og efterfølgende indsætter en kopi af søjlen fra det andet fane herunder? Jeg er kun kommet frem til en find-og-erstat kode, hvor jeg skal definere hvad det skal ersattes med, men så snart jeg fosøger, at definere en variabel, og at denne skal kopieres og indsættes, ender jeg i en fejltilstand. Er der nogen der kan hjælpe mig?
For at gøre det simpelt, ønsker jeg altså at finde "Date" i "Sheet2" og indsætte kopieret Søjle A fra "Sheet1" herunder...
Mit bud:
Sheets("Dagtildag").Select
Range("A1:A65000").Copy
Sheets("Kartotek").Select
idag = DateValue(Now())
'evt: idag = DateValue(InputBox("Hvilken dag, format dd-mm-åååå?"))
soegkolonne = ActiveSheet.Range("A1:AA1").Find(idag).Cells.Column
soegraekke = ActiveSheet.Range("A1:AA1").Find(idag).Cells.Row
Sheets("Kartotek").Cells(soegraekke + 1, soegkolonne).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Jeg retter lige kort til hele rækken i linie 6 og 7:
Sheets("Dagtildag").Select
Range("A1:A65000").Copy
Sheets("Kartotek").Select
idag = DateValue(Now())
'evt: idag = DateValue(InputBox("Hvilken dag, format dd-mm-åååå?"))
soegkolonne = ActiveSheet.Range("1:1").Find(idag).Cells.Column
soegraekke = ActiveSheet.Range("1:1").Find(idag).Cells.Row
Sheets("Kartotek").Cells(soegraekke + 1, soegkolonne).Select
ActiveSheet.Paste
Application.CutCopyMode = False
