Başka sayfadaki A1 Hücresindeki veriye göre süzme

[alooo]

Arkadaşlar, o kadar aradım ancak, textbox falan filan örnekler çıkmasına rağmen aradığımı tam olarak bulmadım. Yardımcı olursanız sevinirim.

2 Farklı sayfa düşünün;
"Veri" sayfasında yaklaşık 10000 satır veri mevcut, "bul" sayfasında ise bir firmaya ait cari kart.

Bul sayfasının A1 hücresinde yazdığımız plaka koduna göre, Veri sayfasının B sütununda süzme yaparak, bulunan tüm verileri "bul" sayfasında a5 hücresinden başlayarak yapıştıracak bir makro istiyorum.

Özetle makro; araç sahibi gelip ben bu güne kadar ne yaptım dediğinde, bul sayfasında plakayı girip enter yaptığımda, "veri" sayfasından plakaya ait verileri "bul" sayfasına aktaracak.

İlgilenen tüm arkadaşlara şimdiden teşekkürler.

(NOT: dosya olarak değil de, açık Kod yazarsanız sevinirim.)

 

[Necdet]

Merhaba,

Aşağıdaki kodları "Bul" sayfasının kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    
    Dim i   As Long
    
    Application.ScreenUpdating = False
    Range("A5:G" & Rows.Count).ClearContents
    
    i = Sheets("Veri").Cells(Rows.Count, "A").End(3).Row
    
    Sheets("Veri").Range("$A$1:$G$" & i).AutoFilter Field:=2, Criteria1:=Range("A1")
    
    Sheets("Veri").Range("A1").CurrentRegion.Copy Range("A5")
    
    Sheets("Veri").Range("$A$1:$G$" & i).AutoFilter
    Application.ScreenUpdating = False
    
End Sub

 

[Necdet]

Geri dönüş yok, neden ki?