Vba İle İndeksleme

[a_self_lion]

Burda Yapmak İstedİĞİm Vba İle Sayfalardakİ G2 HÜcresİndekİ Verİlerİ Ve Sayfa Adini İndeks Sayfasinda YaptiĞim Şekİlde Getİrmek İstİyorum MÜmkÜnmÜdÜr. Örnek Ektedİr

 

[meslan]

Merhaba. Aşağıdaki kodu bir butona atayınız
Sub Dene()
Sheets("indeks").[a2:b100] = ""
s = 1
For i = 2 To Sheets.Count
s = s + 1
Sheets("indeks").Cells(s, 1) = Sheets(i).Name
Sheets("indeks").Cells(s, 2) = Sheets(i).[g2]
Next
End Sub

 

[a_self_lion]

Çok Teşekkür ederim Sayın meslan İşimi fazlası ile hallettiği gibi yeni bir kod grubu öğrenmiş oldum.

Sormayı daha önce unutmuşum aslında bunlara birde ilgili sayfaya gitmesi için birde link verebilirsek tatından yenmeyecek. Link vermek mümkünmüdür.

 

[meslan]

Merhaba. Dosyanız ekte.

 

[a_self_lion]

Çok Teşekkür ederim.