Bilgileri biryerden başka yere aktarma

[serserss]

Arkadaşlar Merhaba,

Sayfa 1'de A sütunundaki sıra no sayfa 2'de B1 hücresine yazıldığı zaman sayfa 1'deki bilgilerin sayfa 2'deki D sütunundaki yerlerine gitmesini istiyorum.

Örnek olarak;
sayfa 1'deki A2 hücresi sıra no 1, G2 hücresi müşteri isminin sayfa 2'deki D9 hücresine gitmesini istiyorum.

Yardımlarınız için şimdiden teşekkürler

 

[serserss]

Arkadaşlar teşekkürler kendim hallettim

 

[Murat OSMA]

Sayfa2'nin kod kısmına yazıp deneyiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rky As Range
    If Target.Address(0, 0) <> "B1" Then Exit Sub
    Set Rky = Sayfa1.Columns(1).Find(Target.Value, , , 1)
    If Not Rky Is Nothing Then
        Sayfa1.Cells(Rky.Row, 2).Resize(, 6).Copy
        Range("B4").PasteSpecial Paste:=xlPasteAll, Transpose:=True
    End If
    Set Rky = Nothing
End Sub

Ya da DÜŞEYARA ile;
B4 hücresine; =DÜŞEYARA($B$1;Sayfa1!$A$2:$G$32;SATIR()-2;0) yazıp aşağıya doğru çekin..