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
-
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
-
Merhaba.
Deneyin;
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
-
Üstad Teşekkürler
tamamdır :)
-
Rica ederim. :)
Çalışmalarınızda başarılar.