24. marts 2005 - 20:10Der er
7 kommentarer og 1 løsning
Udvælge række på basis af kriterium og indsætte i andet ark
Jeg har et kæmpe regneark der indeholder oplysninger om modtagne breve. Regnearket er organiseret med modtagedato, afsender og svardato. Jeg søger en makro, der kan hjælpe til at rydde op i arket. Dvs. at hvis svardatoen er udfyldt skal rækken klippes over i et andet regneark, hvis navn svarer til året for svardato.
Jeg skal udføre proceduren løbende. Kopiering er ikke godt nok for rækkerne skal ud af det oprindelige ark. Men..måske kunne man lave en makro, der aktiverer sortering efter svardato. Så kunne jeg klippe de udfyldte rækker ud, og så have en anden makro, der ændrer sorteringen således arket atter er sorteret efter brevdato.
Jeg er nu tiltalt af automatiseringen - havde nået til ActiveCell.entirerow.select på nettet, men er gået i stå med løkker og flytning.
Public Sub Flyt() Dim I As Long, Navn As String Rw = Range("C65536").End(xlUp).Row For I = Rw To 2 Step -1 If Cells(I, 3) <> "" Then Navn = Year(Cells(I, 3).Value) Range("A" & I & ":C" & I).Copy Sheets(Navn).Range("A65536").End(xlUp).Offset(1, 0) Rows(I).Delete End If Next End Sub
Arkene med årstal, som navn skal være lavet i forvejen kolonne A skal væte udfyldt altid
Public Sub Flyt() Dim I As Long, Navn As String Rw = Range("C65536").End(xlUp).Row ' C rettes til den kolonne du har Svardato i For I = Rw To 2 Step -1 If Cells(I, 3) <> "" Then Navn = Year(Cells(I, 3).Value) ' 3 = kolonne C , den med svardato i Rows(I).Copy Sheets(Navn).Range("A65536").End(xlUp).Offset(1, 0) Rows(I).Delete End If Next End Sub
Public Sub Flyt() Dim I As Long, Navn As String Rw = Range("C65536").End(xlUp).Row For I = Rw To 2 Step -1 If IsDate(Cells(I, 3)) Then ' tjekker om det er en dato If Year(Cells(I, 3).Value) < 2005 Then ' kun år mindre end 2005 flyttes Navn = Year(Cells(I, 3).Value) ' 3 = kolonne C , den med svardato i Rows(I).Copy Sheets(Navn).Range("A65536").End(xlUp).Offset(1, 0) Rows(I).Delete End If End If Next End Sub
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.
