Hulp gevraagd: VBA: Do Until

[Batigoal80]

In deze zou ik willen dat via VBA de juiste eerst voorkomende letter gevonden word
die ingevuld wordt in cel B5.

Vervolgens worden de cellen onder de letter (dit zijn er altijd 4) Gekopiëerd van rij 2 naar rij 3.

Wie kan mij helpen?
Ik denk dat dit met Do until handig kan?

Groet Wouter

 

[Finch]

Heb je er zelf al iets van gemaakt? Post even je voorlopig resultaat, we helpen je dan verder op weg.

 

[Batigoal80]

Ik heb er nog niet veel van kunnen maken. Denk alleen dat dit met DoUntil moet.

 

[Finch]

Ik heb er nog niet veel van kunnen maken. Denk alleen dat dit met DoUntil moet.

Help ik door te zeggen dat je geen do until nodig hebt, je hebt zelfs geen enkel soort lus nodig.

edit:

Sub zoeken()
Dim rngLetters As Range
Dim strSearchLetter As String
Dim fCel As Range

Set rngLetters = Sheets("blad1").Range("K1:W1")
strSearchLetter = Sheets("blad1").Range("B5")
Set fCel = rngLetters.Find(strSearchLetter, , , xlWhole, xlByColumns)
If Not fCel Is Nothing Then
    fCel.Offset(1).Resize(, 4).Copy fCel.Offset(2)
End If
End Sub

 

[Batigoal80]

Ik zie het ja. Hij doet het!
Ik moet hem in een uitgebreider bestand gaan verwerken daar ga ik morgen weer mee aan de slag!

Wederom bedankt!