Liste referans alarak sayfa numaraları değiştirme

[omerfarukmedine]

Merhabalar,

Benim excel dosyamda tüm Sayfa isimleri eksik yazılmış. Ben bunları listeleyip düzenledim. Şimdi ise tüm sayfa isimlerini elimdeki düzgün listeye göre düzeltmek istiyorum.

Eski Yeni
107 T0107
133 T0133
134 T0134
136 T0136
137 T0137
138 T0138
139 T0139
140 T0140
142 T0142
145 T0145
146 T0146
148 T0148
150 T0150
152 T0152
153 T0153
154 T0154
155 T0155
156 T0156

 

[EmrExcel16]

Deneyiniz.

Sub Test()
    Dim i
    For i = 1 To Sheets.Count
        Sheets(i).Name = "T0" & Sheets(i).Name
    Next
End Sub

 

[omerfarukmedine]

EmrExcel16

Eywallah, tam olarak sormak istediğim şey bu değildi. Ancak verdiğiniz kod gayet yeterli oldu.

Teşekkürler.

 

[EmrExcel16]

Rica ederim , istediğiniz bir listeden bulup değiştirmesi idi ama listenin adresini vermemişsiniz , o yüzden bende bu şekilde yazdım kodları , yeterli olduysa sıkıntı yok , iyi çalışmalar.