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 lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
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.
