Hücredeki veriye göre sayfadan veri çekme??

[pcfou]

Öncelikle selamınaleyküm
Arkadaşlar excelde bir çalışmam var bu çalışma içerisinde 2016, 2017, 2018.... Şeklinde 10 tane sayfam ve birtanede YAZDIR adında bir sayfam var

Benim istedim YAZDIR sayfasındaki F12 hücresine 2016 yazdığımda
2016 isimli sayfadaki
A4 hücresini YAZDIR sayfasındaki A19 hücresine
A5 hücresini YAZDIR sayfasındaki A20 hücresine
.
.
.
Şeklinde yazması

Ya da
YAZDIR sayfasındaki F12 hücresine 2016 yazdığımda
2016 isimli sayfadaki 4. Satırı YAZDIR sayfasındaki 19. Satıra
2016 isimli sayfadaki 5. Satırı YAZDIR sayfasındaki 20. Satıra yazdırabilecek

NOT: her 20 satırda bir 3 satır boşluk olacak onun için seri bir kod olmazsa makbule geçer
Bu mümkünmüdür

 

[Muzaffer Ali]

Aşağıdaki kodları inceleyin

Sub kopyala()
    With Worksheets("Yazdır")
        Worksheets(.Range("F12").Text).Rows(4).Copy (.Rows(19)) '4.satırı 19. satıra kopyalar
        Worksheets(.Range("F12").Text).Rows(5).Copy (.Rows(20)) '5.satırı 20. satıra kopyalar
        
        Worksheets(.Range("F12").Text).Rows(8).Copy (.Rows(15)) '8.satırı 15. satıra kopyalar
    End With
End Sub

 

[pcfou]

Eyvallh üstad sağolasın