50 Ye Yakin ÇaliŞma Sayafasi

[ariftezer]

50 Ye Yakin ÇaliŞma Sayafasi Var. Her Bİr ÇaliŞma Sayfalarinin İsmİnİ Bİr HÜcreye Yazdirmak İstİyorum MÜmkÜn MÜ Doaya Ektedİr

 

[N.Ziya Hiçdurmaz]

Sub test()
For i = 2 To Sheets.Count
say = WorksheetFunction.CountA([c1:c65000])
Range("c" & say + 1) = Sheets(i).Name
Next
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Dosyayıda ekleyeyim.

 

[ariftezer]

Bunu Nerede Kullanacam Hocam
Bana Dosyada Uygulamali Yardimci Olursaniz
Ben Vba Bİlmİyorum Da

 

[N.Ziya Hiçdurmaz]

Dosyayı ekledim siz araçlardan makroları bulun güvenliği orta seviye ayarlayın ve açılışta makroları etkinleştire tıklayınız ve sayfadaki butona tıkladığınızda işlem tamamdır.

 

[ariftezer]

SaĞolun Allah Razi Olsun