Sayfalar Arası Veri Aktarımı - Makro!

[zafer.kargin]

Üstatlar Merhaba

Sizden Bir Ricam Olacak Benim Satış Yaptığımız Ürünlerle Alakalı Olarak Bir Excel Tablom Var.

Yapmak İstediğim Şey İkinci Bir Sayfa Açıp Boş Bir Satıra O Tabloda Olan Bir Ürünü Yazmaya Başladığım An Ürün Kendiliğinden Çıksın Ve Okeylediğim Zaman Sayfa Birdeki O Ürünün Fiyatını Da Karşısına Yazsın.


Yardımcı Olabilirseniz Çok Sevinirim Beni Büyük Bir Dertten Kurtarırsınız.


Ekte Dosya Mevcut.

http://dosya.co/vxx100wwf7vu/Soru!.xlsx.html

 

[bzace]

Merhaba,
formül buraya olacak sayfasının kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
    On Local Error GoTo hata
    Dim s1 As Worksheet
    Set s1 = Worksheets("tablo")
    Select Case Target.Column
    Case Is = 1
        Select Case Target.Value
        Case Is <> Empty
            Target.Offset(0, 1).Value = _
            WorksheetFunction.VLookup(Target, s1.Range("A2:B" & s1.Range("A65536").End(3).Row), 2, 0)
        Case Else
            Target.Offset(0, 1).Value = ""
        End Select
    Case Else
hata:
        Exit Sub
    End Select
End Sub

yazınız.formül buraya olacak sayfasının A Sütununa verilerinizi giriniz.B sütununa otomatik olarak verileriniz gelecektir.
A sütununa kol yazdığında Koltuk Parçası nasıl gelir o konuda bir bilgim yok.
En pratik yolu veri doğrulama.

 

[zafer.kargin]

üstat Bu Kodu Nereden Nasıl Yapcağımı Bilmiyorum