Code aanpassen?

[rvt1982]

Beste Leden,

Ik vroeg me af of het bij de volgende code ook mogelijk is ipv dat er een count wordt gedaan, dat er naar een bepaalde nummer zoekt en daar achter de copy doet..

bijv.
A1=1
A2=2
A3=3
A4=4

en dat er nu bijv. achter nummer 2 een cop word gedaan dus op B2

    Application.ScreenUpdating = False
    Sheets("Blad1").Select
    Range("P3:T3").Copy
    Sheets("Blad2").Cells(Rows.Count, "B:B").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    With Application
    .CutCopyMode = False
    .ScreenUpdating = True
End With

Alvast bedankt.

 

[Roncancio]

Wat moet er dan in cel B2 staan?

Met vriendelijke groet,


Roncancio

 

[rvt1982]

in b2 komt wat in Blad1 van P3 t/m T3 is gekopeerd. (alleen de resultaten) (volgens mij is dat de PasteSpecial Paste:=xlPasteValues)

    Sheets("Blad1").Select
    Range("P3:T3").Copy

 

[Warme bakkertje]

En op welke basis wil je je zoekopdracht dan organiseren ?

 

[rvt1982]

@ warme bakkertje
mmm.... daar had ik nog niet over na gedacht.
Het lijkt mij dat de betreffende nummer die dan in Blad1 P1 staat, dat deze in blad2 gezocht word in kolom A, en zodra deze gevonden is, dat achter de betreffende kolom (kolom B dus) dat daar de gegevens geschreven word.

 

[Warme bakkertje]

Sub tst()
  With Application
    .ScreenUpdating = False
    Sheets("Blad1").Range("P3:T3").Copy
    Sheets("Blad2").Columns(1).Find(Sheets("Blad1").Range("P1").Value, , xlValues, xlWhole) _
                .Offset(, 1).PasteSpecial Paste:=xlPasteValues
    .CutCopyMode = False
    .ScreenUpdating = True
  End With
End Sub

 

[rvt1982]

@Warme Bakkertje
Dit is precies wat ik zoek.
Bedankt.