toplu şekilde veriyi getirme

[u.L.a.s]

merhabalar

Sheet1 ve Sheet3 diye iki sayfam var
Sheet1 de A,B,C,D sütunlarında verilerim var
Sheet3 te ise ben aşağıdaki kod düzeneği ile A sütununa bir veri girdiğim zaman(ki bu veri sheet1 de yine A sütununda) B ve C sütununa B ve D sütunlarındaki verileri getiriyor.

buraya kadar bir sorun yok. fakat şöyle bir şey mümkün olabilir mi. ben Sheet3 te alt alta bir veriyi toplu bir yerden kopyalamış ve yapıştırmış olsam karşılıklarını yapıştırdığım anda getirmek istiyorum.,

aşağıdaki örnek dosyada sheet3 te tek tek girdiğimde sheet1 den karşılığındaki veriler geliyor. ama ben istiyorum ki a sütununda satır satır olan aşağıdaki verileri toplu bi şekilde yapıştırmışsam karşılığındaki veriler o anda yansısın istiyorum.

bilmiyorum açıklayıcı oldu mu yardımlarınızı rica ederim

9211​

980​

1658​

İndir ornek

Dosyayı indir ornek

dosya.co

Private Sub Worksheet_Change(ByVal Target As Range)


    If Target.Column <> 1 Or Target.Row < 2 Then Exit Sub

    Dim a As Range, St As Worksheet

    Set St = Sheets("Sheet1")

    With Target
        Set a = St.Range("A:A").Find(.Value, , xlValues, xlWhole)
        If Not a Is Nothing Then
            Cells(.Row, "B") = St.Cells(a.Row, "B")
            Cells(.Row, "C") = St.Cells(a.Row, "D")
        Else
            Cells(.Row, "B") = "Bulunamadı.."
            Cells(.Row, "C") = ""
        End If
    End With

End Sub

 

[u.L.a.s]

ya da bu kod düzeneğini bir butona da atayabiliriz. ben a sütununa alt alta verileri yapıştırdıktan sonra butona basınca yazdığım verilerin karşılığını b ve c sütunlarına getirebilir.