01. juli 2004 - 10:53Der er
6 kommentarer og 1 løsning
Fjerne rækker - forskel på 0 og Null
Hej, jeg har lavet følgende Makro til at fjerne rækker med 0 i kolonne H.
Columns("A:A").Select I = ActiveCell.SpecialCells(xlLastCell).Row Do While I > 0 Range("H" + CStr(I)).Activate If ActiveCell.Value = 0 Then Rows(I).Select Selection.Delete Shift:=xlUp End If I = I - 1 Loop
Mit problem er, at den også fjerner de rækker hvor cellen i række H er tom. (så kan jeg lære at tage backup, når jeg leger med makroer.. )
Hvordan skelner jeg mellem 0 og Null, så jeg undgår at fjerne for meget?
Columns("A:A").Select I = ActiveCell.SpecialCells(xlLastCell).Row Do While I > 0 Range("H" + CStr(I)).Activate If ActiveCell.Value = "0" Then Rows(I).Select Selection.Delete Shift:=xlUp End If I = I - 1 Loop
Dim C As Range Columns("A:A").Select I = ActiveCell.SpecialCells(xlLastCell).Row Do While I > 0 Set C = Range("H" + CStr(I)) If C.Value = 0 And Len(C.Value) = 1 Then Rows(I).Delete Shift:=xlUp End If I = I - 1 Loop
Ved ikke rigtig om det er den simpleste løsning... eller jo, det er det simpleste ift din egen makro
Men Bak, forslag er vel egentlig den pæneste
Synes godt om
Ny brugerNybegynder
Din løsning...
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.