Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: [Çözüldü] Sayfa Adına Göre Veri Almak  (Okunma sayısı 6013 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
[Çözüldü] Sayfa Adına Göre Veri Almak
« : 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
« Son Düzenleme: 26 Nisan 2010, 17:11:23 Gönderen: Bülent Öztürk »

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Sayfa Adına Göre Veri Almak
« Yanıtla #1 : 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
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Sayfa Adına Göre Veri Almak
« Yanıtla #2 : 21 Nisan 2010, 18:20:06 »
Üstad Teşekkürler
tamamdır :)

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Sayfa Adına Göre Veri Almak
« Yanıtla #3 : 22 Nisan 2010, 08:15:07 »
Rica ederim.  :)
Çalışmalarınızda başarılar.
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)