Als F is leeg in regel EN F+1 is leeg in regel

[Morriss]

Goedemiddag,

De titel zegt het al. In de bijlage een voorbeeldbestandje. De geel gearceerde regels zouden met een macro verwijderd moeten worden.

Alvast hartelijk bedankt!Bekijk bijlage TEST.xlsx

 

[koster1984]

Zoiets?

Sub kstr()
begin:
Dim it As Range, j As Variant
j = 0
For Each it In Sheets(1).Range("F5:F" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
    If it = "" And it.Offset(1) = "" Then
        it.EntireRow.Delete
        j = j + 1
    End If
Next
If j > 0 Then GoTo begin
End Sub

 

[Morriss]

Juist! Bedankt!

Nu zou ik graag willen dat ie vervolgens alle regels waar F leeg is "pdf" invult in F.

 

[koster1984]

OK...

Dan kan ie uitgebreid met de rode regels:

Sub kstr()
begin:
Dim it As Range, j As Variant
j = 0
For Each it In Sheets(1).Range("F5:F" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
    If it = "" And it.Offset(1) = "" Then
        it.EntireRow.Delete
        j = j + 1
    End If
Next
If j > 0 Then GoTo begin
[COLOR="#FF0000"]For Each it In Sheets(1).Range("F5:F" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
    If it = "" Then it = "pdf"
Next[/COLOR]
End Sub

 

[Morriss]

Ook zou ik graag willen dat in kolom A elke cel wordt leeggemaakt waarvan de waarde al een keer voor is gekomen, zoals ik in de bijlage duidelijk probeer te maken.


THNX!!!!!
Bekijk bijlage TEST.xlsx