Makro ile çoklu düşeyara başka sayfalardan

[ottoman005]

Çok uğraştım hata aldım yeniyim formulle yapıyorum dusey ara ve eğeri kullanarak ama bana makrosu lazım sorum şu 1.sayfam adi ziyaretçi 2.sayfamda dataların yer aldığı 4 sutundan oluşan tablo var.Sırası ile data sayfasındaki sutun isimlerim 1.sutun plaka 2.sutun ad soyad 3.sutun tc 4. Sutun firma bunları ziyaretçi sayfama 1.sutuna plaka yazinca ad soyad ,tc ve firmalar sutunlara gelsin istiyorum hergun 40 kayıt yapıyorum daha önceki makro denemelerini yaptım youtubeden ama sadece tek satırda arama yapıyor ben ise alt satırlarda da yapsın ayni işlevi emeği geçenlere teşekkürler benim acilen altin üyeden olmam lazım çok güzel bir site imiş başarilar

 

[Korhan Ayhan]

Merhaba

İlk sayfanızın kod bölümüne uygulayıp deneyiniz.

A2 hücresi ve altına plaka yazdıkça eşleşme varsa yandaki sütuna bilgiler otomatik gelecektir.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
    Target.Next.Formula2 = "=IFERROR(VLOOKUP(" & Target.Cells(1, 1).Address & ",Sayfa2!A:D,{2,3,4},0),"""")"
    On Error Resume Next
    Target.Next.SpillingToRange.Value = Target.Next.SpillingToRange.Value
    Target.Next.Value = Target.Next.Value
    On Error GoTo 0
End Sub

 

[ottoman005]

Vallahi uyumadım cevap gelecek diye çok teşekkürler

 

[Korhan Ayhan]

Küçük bir revize yaptım. Son halini denersiniz..

 

[ottoman005]

Küçük bir revize yaptım. Son halini denersiniz..

Teşekkürler elinize emeğinize sağlık

 

[nongeyikm]

Sn. korhan,

Hücrede çekilecek veriyi değiştirdiğimde #TAŞMA! hatası alıyorum.

 

[Korhan Ayhan]

Bahsettiğiniz hata eğer formülün döküleceği alanda bir veri varsa oluşur. Bu sebeple tamamen boş bir sayfada deneyiniz.

 

[nongeyikm]

evet. doğrudur. plakayı değiştirince bu hatayı alıyorum. verileri o hücrelerden silmeden diğer verinin çekilmesi mümkün değil midir?

 

[Korhan Ayhan]

Dosyanızı görmek gerekir..

 

[nongeyikm]

Dosyanızı görmek gerekir..

Korhay bey günaydın. Dosya ektedir.

Ayrıca office 2016 da bu hatayı alıyorum.


Saygılar