Sayfalardan veri almak

[balca]

Arkadaşlar Merhaba;

Günlük olarak hergüne ait verilerimi sakladığım bir çalışma kitabım var. Sheetlerim 01-12-2005, 02-12-2005, 03.12.2005
şeklinde gidiyor.

Sabit olarak H2 hücresine USD , H3 hücresine de EUR kurlarını giriyorum.
Bu kapsamda ayni çalışma kitabının herhangi bir sayfasına kurları alt alta nasıl alabilirim? Yani ayni çalışma kitabında
Kurlar diye bir sayfa olacak a1 hücresi DÃ?VİZ CİNSİ b1hücresi USD, c1 hücresi EUR olmak üzere kurlar alt alta
a2 ye 01-12-2005, a3 e 02-12-2005 kurları alınacak gibi..

 

[danersin]

Hangi sayfada çalıştırırsanız o sayfaya (o sayfada dahil olmak üzere) tüm sayfalardaki h2,h3 ve sayfa ismini taşır... for satırından sonra bir if ile kurlar sayfasının atlamasıda sağlanabilir.. if sheets(i).name then next gibi bir satır eklersiniz gerekirse.

Sub Makro1()
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Cells(i, 2) = Sheets(i).Cells(2, 8)
Cells(i, 3) = Sheets(i).Cells(3, 8)
Next i
End Sub

 

[balca]

Teşekkür ederim. Esasen yapmak istediğim örnek tabloda olduğu gibi.