makkelijke macro

[sickofitall]

Hallo

voor de mensen die een beetje met VBA kunnen werken gaat mijn vraag gemakkelijk zijn.
Ikzelf heb een beetje geprobeerd maar mijn VBA kennis is minimaal.

Mijn vraag:
Ik heb een excel bestand: op Blad 1 een hele waslijst aan gegevens.
In kolom A van Blad1, staat ofwel een x ofwel #N/B. (40000 rijen lang).
In kolom B van Blad1 staat een bepaalde tekst.

Nu wil ik een macro schrijven die de gegevens van Blad1, kolom B, kopieert naar Blad2 énkel als de waarde in kolom A een x is.
Als resultaat wil ik dus op Blad 2 alle waarden van Blad 1, maar enkel de waarden van kolom B, waarvoor kolom A een x heeft staan.

De vba code die ik tot nu toe heb maar waarvoor ik een fout krijg is:

Sub test()
Dim rij1 As Long
Dim rij2 As Long

rij1 = 1
rij2 = 1

Do Until Cells(rij1, 1).Value = ""
       
       Do Until Cells(rij1, 1).Value = "x"
       rij1 = rij1 + 1
       Loop
    
    Sheets("Blad2").Cells(rij2, 1).Value = Sheets("Blad1").Cells(rij1, 2).Value
    rij1 = rij1 + 1
    rij2 = rij2 + 1
    
Loop


End Sub

Alvast bedankt!!

P.S. ik zou ook een filter op kolom A kunnen zetten en gelijk stellen aan x maar dat is geen optie

 

[snb]

Sub tst()
    sheets(1).Columns(1).SpecialCells(xlCellTypeConstants, xlTextValues).Offset(, 1).Copy sheets(2).Cells(1, 3)
End Sub

 

[sickofitall]

Sub tst()
    sheets(1).Columns(1).SpecialCells(xlCellTypeConstants, xlTextValues).Offset(, 1).Copy sheets(2).Cells(1, 3)
End Sub

ik snap niets van uwe macro, maar hij werkt perfect
:thumb: