Hjælp til VBA makro
Jeg har fundet denne kode på http://www.rondebruin.nl/delete.htm og har forsøgt at tilpasse den til mit formål (se http://www.eksperten.dk/spm/931223#reply_7731042)Her er koden:
Sub SletRækker7()
Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long
Dim calcmode As Long
Dim ViewMode As Long
Dim rng As Range
'Arket DataKopi aktiveres og bruges
Worksheets("DataKopi").Activate
With ActiveSheet
'Sæt første og sidste række lækken skal undersøge
Firstrow = .UsedRange.Cells(1).Row
Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
'Løkken køres fra sidste række til første række (bund til top)
For Lrow = Lastrow To Firstrow Step -1
'Værdierne i C og D kolonnerne undersøges
************************************************************** With .Cells(Lrow, "C") And .Cells(Lrow, "D")
**************************************************************
If Not IsError(.Value) Then
If .Value = "" Then
'Dette vil mærke hver række med værdien "" ("tom")
'i både kolonne C Og D til sletning.
If rng Is Nothing Then
Set rng = .Cells
Else
Set rng = Application.Union(rng, .Cells)
End If
End If
End If
End With
Next Lrow
End With
'Slet alle mærkede rækker på en gang
If Not rng Is Nothing Then rng.EntireRow.Delete
End Sub
Problemet er mellem stjernerne.
Hvis jeg i den linje kommeterer (b) And .Cells(Lrow, "D")(/b) ud bliver rækker hvor cellerne i kolonne D er tomme slettet.
Hvis jeg ikke kommenterer ud stopper koden med en fejl.
Formålet er at slette kolonner hvor både C og D cellerne er tomme.
bak's kode i den eksperten-tråd jeg henviser til øverst virker, men denne er sindsygt hurtig, hvis altså den virkede når betingelsen er at både C og D cellerne er tomme.
