tabloyu komple çekmek

[bilgehan42]

Merhaba sorumla ilgili yarıdımcı olursanız sevinirim.
Forumda aradım ama bulamadım.

Düşeyara gibi bir formülle belli bir hücre değiştiğinde başka bir sayfadan veri almak istiyorum ama alacağım veriyi 3 sütun ve birden fazla satırdan oluşan tablo halinde çekebilirmiyim.
Teşekkürler..

 

[Civan Jack]

Dosyanızı ekleyin.

 

[bilgehan42]

Dosyanızı ekleyin.

dosya ekte saygılarımla.

 

[Murat OSMA]

■ Sayfa4'te iki masraf arasında 22 satır olsun.
■ DEVRE-1 sayfasına bir ComboBox ilave ettim.
■ Formülle değil de makro ile çözüm aşağıdaki gibi.
■ Dosyayı da ekliyorum.

Private Sub ComboBox1_Change()
    Dim evn As Range
    Application.ScreenUpdating = False
    Set evn = Sayfa4.Cells.Find(ComboBox1.Text, , , xlWhole)
    Sayfa4.Select: evn.Select
    Sayfa4.Cells(evn.Row + 2, evn.Column).Resize(20, 4).Copy
    Sayfa1.Range("ı9").End(3)(2, 1).PasteSpecial xlValues
    Sayfa1.Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    set evn = nothing
End Sub

 

[bilgehan42]

teşekkürler

 

[Murat OSMA]

Rica ederim, iyi günler...