Regel toevoegen, als aan voorwaarde wordt voldaan

[radar]

Excellenties,

Ik ben op zoek naar macro die er voor zorgt, dat op basis van een in te voeren waarde in een bepaalde cel, er een lege rij wordt toegevoegd, direct onder de laatst gevonden gelijke waarde in een kolom met waarden en de cel eronder actieve cel wordt.
In bijlage een vereenvoudigd voorbeeld van wat de bedoeling is.

Radar

 

[HSV]

Test het eens.

Sub hsv()
Dim c As Range, firstaddress As String, Doaddress As String, Blad As Worksheet
Set Blad = Sheets("Blad1")
With Blad
 With .Range("B7:B" & .Cells(Rows.Count, 2).End(xlUp).Row)
  Set c = .Find(Blad.Range("B2").Value, , xlValues, xlWhole)
    If Not c Is Nothing Then
   firstaddress = c.Address
Do
   c.Value = Blad.Range("B2")
     Set c = .FindNext(c)
  If c.Row > Range(firstaddress).Row Then Doaddress = c.Address
Loop While Not c Is Nothing And c.Address <> firstaddress
     If Doaddress <> "" Then
        Range(Doaddress).Offset(1).EntireRow.Insert
      Else
     c.Offset(1).EntireRow.Insert
      End If
    End If
  End With
 End With
End Sub

 

[radar]

Yes !
Doet precies wat ik wil.

dank je wel !!

 

[radar]

Nog een kleine aanvulling om helemaal vrolijk te worden.....

Is het ook mogelijk dat macro ervoor zorgt dat de lege cel onder de naam actieve cel wordt ?