sayfalardan veri aktarma

[redje]

İyi çalışmalar

Taplo diye sayfam var sayfa1 sayfa2 sayfa3 sayfa4 diyerek devam ediyor sayfa1 sayfa2 örnekleri isimleri değişiyor hergün yeni sayfalar ekleniyor
benim isteğim tablo diye bir sayfamda bir butona basarak sayfa1 sayfa2 yani tüm sayfalardaki c5 , f8 h12 deki bilgileri (tüm sayfalardakiler) tabloya aktarmak istiyorum mümkünmü

yardımlarınız için teşekkürler.

 

[veyselemre]

[vb:1:68294c22a6]Sub deneme()
If ActiveSheet.Name <> "Tablo" Then Exit Sub
sat = 1
For Each sf In ActiveWorkbook.Sheets
If sf.Name <> "Tablo" Then
Cells(sat, 1) = sf.Name
Cells(sat, 2) = sf.[c5]
Cells(sat, 3) = sf.[f8]
Cells(sat, 4) = sf.[h12]
sat = sat + 1
End If
Next
End Sub[/vb:1:68294c22a6]

 

[redje]

:hey: çok teşekkürler tam istediğim gibi olmuş butona basınca 5 ci satırdan itibaren kaç sütunsa eski verileri silip yazzsa daha güzel olacaktı deneyerek yapmaya çalışacağım

tekrar çok teşekkürler