- Katılım
- 25 Ocak 2006
- Mesajlar
- 764
- Excel Vers. ve Dili
- 2019 tr
- Altın Üyelik Bitiş Tarihi
- 04-01-2024
aşağıdaki kod, her sekmedeki T1 hücresine göre sekmeye isim veriyor.
sorum ise; aynı isim varsa hata veriyor. bunu aynı isime denk gelince xxx-2 xxx-3 gibi isimlendirmesi için bir şey yapılabilir mi?
sorum ise; aynı isim varsa hata veriyor. bunu aynı isime denk gelince xxx-2 xxx-3 gibi isimlendirmesi için bir şey yapılabilir mi?
Kod:
Sub RenameTabs()
For x = 1 To Sheets.Count
If Worksheets(x).Range("T1").Value <> "" Then
Sheets(x).Name = Worksheets(x).Range("T1").Value
End If
Next
End Sub