26. september 2006 - 13:45Der er
8 kommentarer og 1 løsning
Makro flyt linier mellem faneblade
Hej Eksperter,
jeg har et Excel dokument med 2 faneblade. På det ene faneblad har jeg mine åbne opgaver stående, mens jeg på det andet faneblad har de lukkede opgaver stående. Begge faneblade indeholder de samme kolonner:
Opgnr. Tekst Test dato Færdig dato
Jeg kunne godt tænke mig en makro, som ved åbning af Excel dokumentet, flytter alle opgaver hvor <Færdig dato> er udfyldt ()på faneblad 1) fra faneblad 1 til faneblad 2. På faneblad 1 skal de resterende linier trækkes sammen, således der ikke opstår blanke linier mellem de åbne opgaver. På faneblad 2 skal linien tilføjes under de eksisterende linier.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Måske kan du bruge dette: Sådan flytter du en værdi fra en celle i et ark, til en celle i et andet ark. Worksheets("faneblad2").Cells(1, "A").Value =Worksheets("faneblad1").Cells(1, "A").Value
Private Sub Workbook_Open() Dim RW As Long, I As Long RW = Worksheets("faneblad1").Range("C65536").End(xlUp).Row For I = RW To 2 Step -1 If Worksheets("faneblad1").Cells(I, "D") <> "" Then Worksheets("faneblad1").Rows(I).Copy Worksheets("faneblad2").Range("A65536").End(xlUp).Offset(1, 0) Worksheets("faneblad1").Rows(I).Delete End If Next End Sub
em lille rettelse, jeg går ud far at Færdig dato står i D kolonnen
Private Sub Workbook_Open() Dim RW As Long, I As Long RW = Worksheets("faneblad1").Range("D65536").End(xlUp).Row For I = RW To 2 Step -1 If Worksheets("faneblad1").Cells(I, "D") <> "" Then Worksheets("faneblad1").Rows(I).Copy Worksheets("faneblad2").Range("A65536").End(xlUp).Offset(1, 0) Worksheets("faneblad1").Rows(I).Delete End If Next End Sub
Jeg har prøvet at fjerne linien som fejler, og kørt makroen i hånden, og så virker det - uden sletning. Men hvor finder jeg ThisWorkbook modulet, så jeg kan få det til at køre automatisk når jeg åbner Excel arket?
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.
