seçime göre otomatik veri çekme

[gazisahin]

merhabalar

arkadaşlar bu nasıl yapılır bilgimiyorum ama yardımınıza ihtiyacım var.
sayfa1 deki alana sayfa2 de olan verileri çekmem lazım. tabi bu seçene göre olacak. yani başlığını seçtiğim veriler ilgili alana gelecek. ilginizi ve yardımlarınızı bekliyorum.

 

[usubaykan]

Merhaba;

Ekli dosyayı inceler misiniz? Parametre olarak bir sayfa oluşturdum ve bunun alt satırlara kriterlerinizi yazmanı yeterli olacaktır. Sayfa1'e ad tanımlaması ekledim.

Kullanılan Kod:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bul As Range, s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
If Intersect(Target, Range("A3")) Is Nothing Then Exit Sub
Set bul = s2.Cells.Find(s1.Range("A3"))
s2.Range(s2.Cells(2, bul.Column), s2.Cells(15, bul.Column + 2)).Copy
s1.Range("A4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
s1.Range("A3").Select
End Sub

 

[gazisahin]

Hocam eline sağlık. daha yeni gördüm çalışmanızı teşekkür ederim. Bilince olabiliyormuş böyle şeyler demek ki çok sağolun. Tekrar bi sorum olursa rahatsız ederim.

 

[assigned]

usubaykan hocam,

Bunun makrosunu nereden görebilirim excel içinde bulamadım ?

 

[ZorBey_]

Sayfa1 Sağ Tıklayın KOd Görüntüleyi Tıklayın
Veya Alt +F11

 

[ZorBey_]

İyi Çalışmalar
Farklı Bir Örnek