zoeken in kolom A naar eerste lege cel en verwijderen gegevens

[joscho56]

Goedenavond,

ik heb op zoek naar een VBA oplossing die in kolom A de eerste lege regel zoekt en vervolgens de waarden in bepaalde cellen van die regel verwijderd:

Maw. Zoek de regel eerste regel met de waarde ""
Delete in die regel de waarden in kolom C:E en H:AA

Wie zou mij aan de oplossing kunnen helpen.


Al vast bedankt,
Johan

 

[OctaFish]

Begin eens met een voorbeeldje te plaatsen, zodat we kunnen zien wat er moet gebeuren.

 

[JEC.]

Een voorbeeld

Sub j()
 With Range("A1").End(xlDown)
  .Offset(1, 2).Resize(, 3).ClearContents
  .Offset(1, 7).Resize(, 20).ClearContents
 End With
End Sub

 

[VenA]

Een cel met de waarde "" is niet leeg en dan gaat de suggestie van @JVeer zeer waarschijnlijk niet werken.

 

[JEC.]

Dan zou deze wel werken waarschijnlijk.

Sub j()
 With Range("A" & Columns(1).SpecialCells(-4123).Find("").Row)
  .Offset(, 2).Resize(, 3).ClearContents
  .Offset(, 7).Resize(, 20).ClearContents
 End With
End Sub

 

[joscho56]

Goedemorgen,

het is idd handiger om een bestandje bij te voegen. Even de situatie concreet als voorbeeld:
- leerling 8 stopt met de opleiding. De naam (in dit voorbeeld 'Leerling 8') in kolom A, rij 9 wordt door mij gedeletet;
- de bedoeling is vervolgens om automatisch (VBA) de volgende achterliggende kolommen in rij 9 leeg te maken: B:C en F:BF

Bekijk bijlage Vb_leerlingen.xlsx

Al vast bedankt,
Johan

 

[emields]

zo?

 

[joscho56]

Hey emields,

dit is wat ik zocht. Hartstikke bedankt.
Ook de anderen dit op mijn vraag hebben gereageerd, nog bedankt voor de snelle reactie

Groet,
Johan

 

[snb]

Met dubbelklik in kolom A:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Then
        Target.EntireRow.Delete
        Cancel = True
    End If
End Sub