Tablo Çağırma

[nuclearist]

İyi günler.
Bir çalışma sayfasında bulunan ve değişken satır sayılı tabloları, başka bir sayfaya nasıl çağırabilirim. (Tablo olarak biçimlendirip, tablo adına göre bir çağırma mümkün mü?). Ekli dosyada gerekli açıklama mevcut.
şimdiden teşekkürler.
Ekli dosyayı görüntüle tablo_çağır.xlsx

 

[Necdet]

Merhaba,

Makro ile çözüm isterseniz dosyayı inceleyiniz.

TEKİL sayfasının A1 hücresine Veri Doğrulama Uygulanmıştır. Bunun için AD tanımı yapılmıştır.
ÜRÜNLER adında parametrik AD tanımını Parametre sayfasında görebilirsiniz.

TEKİL sayfasında A1 hücresi değiştiğinde gerekli verileri getirir. İlgili kodlar TEKİL sayfasının kod bölümünde olmalıdır.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim i   As Integer, _
        c   As Range, _
        ShG As Worksheet
    
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    
    Set ShG = Sheets("GENEL")
    
    
    Set c = ShG.Range("B:B").Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        i = ShG.Range(c.Address).Offset(0, -1).End(xlDown).Row + 2
        Range("A3:E" & Cells(Rows.Count, "B").End(3).Row).ClearContents
        ShG.Range(c.Offset(0, -1).Address & ":E" & i).Copy Range("A3")
    Else
        MsgBox "Ürün Tanımlı Değil...."
    End If
    
End Sub

 

[nuclearist]

Necdet bey, çok teşekkür ederim. oldukça güzel bir çalışma. emeğinize sağlık.