Koşula göre veri çekme

[ao3455]

Merhabalar;

A sütünunda arşiv kodum var, yanındaki hücrelerde çeşitli veriler var, 2. sekmede arşiv kodunu yazarak verileri çekmek istiyorum.Örnek dosya paylaşıyorum.

Yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

Alt taraftan Sayfa2'nin adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin.
Açılan VBA ekranında, sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.
A1 hücresinde değşiklik yaparak sonucu gözlemleyin.
.

[FONT="Arial Narrow"][B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [[B][COLOR="Red"]A1[/COLOR][/B]]) Is Nothing Then Exit Sub
    Sheets("Data").Range("A1:C" & Rows.Count).AutoFilter Field:=1, Criteria1:=Target.Value
    Range("A3:C" & Rows.Count).ClearContents
    Sheets("Data").Range("A1:C" & Rows.Count).CurrentRegion.Copy [A3]
    Sheets("Data").Range("A1:C" & Rows.Count).AutoFilter Field:=1
[B]End Sub[/B][/FONT]

 

[ao3455]

Çok Teşekkür ederim, ellerinize sağlık

 

[Ömer BARAN]

Çok Teşekkür ederim, ellerinize sağlık

Estağfurullah. Kolay gelsin.
.