VBA code waarmee een specifiek cel kan worden gezocht

[Pedro1975]

Hallo allen,

Ik ben op zoek naar een VBA code die de waarde in Cel A1 zoekt in kolom A en vervolgens de gegevens in de cellen B1 t/m E1 kopieert en plakt in de betreffende rij die overeenkomt met de waarde in cel A1

Ik heb het excel blad toegevoegd voor de duidelijkheid.

 

[HSV]

Test het maar eens.

Sub hsv()
Dim c As Range, firstaddress As String
With Columns(1).SpecialCells(2).Offset(1).SpecialCells(2)
  Set c = .Find(Range("A1"), , xlValues, xlWhole)
   If Not c Is Nothing Then
     firstaddress = c.Address
 Do
    c.Offset(, 1).Resize(, 4) = Range("B1").Resize(, 4).Value
    Set c = .FindNext(c)
 Loop While Not c Is Nothing And c.Address <> firstaddress
   End If
  End With
End Sub