Vervolg op "Tekst zoeken VBA"

[Basbrommer]

Hallo,

mr_Miller heeft geschreven:

Dim c As Range
Dim a As String
Dim b As Integer

a = Sheets("blad2").Range("B1").Value
b = Sheets("blad2").Range("A1").Value

With Sheets("blad1").Columns(6)
Set c = .Find(a)
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Offset(0, -1).Value = b
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With

End Sub

Blad2 A1 = 5
Blad2 B1 = test

Blad1 colom6 heeft onder elkaar staan: test, test, test 2

Ik ben bijzonder blij met dit stukje tekst, Maar ik wil graag nog meer. Als hij heeft gezocht naar wat op blad1 in cel B1 staat wil ik dat hij daarna start met een volgende zoektocht wat in B2 staat, en daarna in B3 enzovoort tot dat de rij leeg is. Kan iemand mij hierbij helpen?

Groet Bas

 

[snb]

Gebruik hiervoor autofilter, dat is ervoor gemaakt.

sub M_snb()
   sn=sheets("Blad2")cells(1).currentregion.resize(,2)

   with sheets("Blad1").columns(6)
     for j=1 to ubound(sn)
       .autofilter 1,sn(j,2)
       for each cl in .specialcells(12)
         if cl.row>1 then cl.offset(,-1)=sn(j,1)
       next
       .autofilter
     next
   end with
end sub

 

[Basbrommer]

Hallo SNB,

Dank je voor je reactie. Ik heb deze geprobeerd maar hij blijft maar door gaan. Ik hem hem moeten afbreken. Ook bij de rijen die niet aan de voorwaarde voldoen plaatst gegevens. Ik kan op deze manier ook niet testen of hij door gaat naar de volgende stap. Doe ik iets verkeerd of klopt er iets niet in de formule?

Groeten Bas

 

[snb]

sub M_snb()
   sn=sheets("Blad2")cells(1).currentregion.resize(,2)

   with sheets("Blad1").cells(1).currentregion.columns(6)
     for j=1 to ubound(sn)
       .autofilter 1,sn(j,2)
       .offset(1).specialcells(12).offset(,-1)=sn(j,1)
       .autofilter
     next
   end with
end sub