Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: drejan62 - 21 Nisan 2010, 17:38:18

Başlık: [Çözüldü] Sayfa Adına Göre Veri Almak
Gönderen: drejan62 - 21 Nisan 2010, 17:38:18

Merhabalar,
Çok sayfalı bir çalışma kitabım bulunmakta,
Amacım a2 den başlamak üzere a sütununa sayfa isimlarinin sıralanması ve b2 den başlamak üzere de o sayfanın I58. hücresindeki değeri almak.
Yardımlarınız için teşekkürler

Başlık: Ynt: Sayfa Adına Göre Veri Almak
Gönderen: Bülent Öztürk - 21 Nisan 2010, 17:54:54

Merhaba.

Deneyin;

Kod: [Seç]

Sub Excelce_Sayfa_Sirala_Deger_Al()
Dim excelce_sayfalar As Integer
For excelce_sayfalar = 2 To ThisWorkbook.Worksheets.Count 'İlk sayfayı, listenin yazılacağı sayfa farz edip, almıyoruz.
    Range("A" & excelce_sayfalar).Value = ThisWorkbook.Worksheets(excelce_sayfalar).Name
    Range("b" & excelce_sayfalar).Value = ThisWorkbook.Worksheets(excelce_sayfalar).Range("I58").Value
Next excelce_sayfalar
MsgBox "İşlem tamam.", vbInformation, "Excelce.Net"
End Sub

Başlık: Ynt: Sayfa Adına Göre Veri Almak
Gönderen: drejan62 - 21 Nisan 2010, 18:20:06

Üstad Teşekkürler
tamamdır :)

Başlık: Ynt: Sayfa Adına Göre Veri Almak
Gönderen: Bülent Öztürk - 22 Nisan 2010, 08:15:07

Rica ederim.  :)
Çalışmalarınızda başarılar.