Sayfa isimlerini hücredeki değerler ile değiştirme.

[simetri.]

Merhabalar, iyi akşamlar.
Değerli yardımlarınızı bekliyorum.

Mevcut sayfa ismi her ne olur ise olsun

Komut düğmesine bastığımız zaman

Sayfa isimleri kendi sayfasının "B2" hücresindeki değer ile

değiştirilecek.

Kodun içerisine ekleyeceğimiz bir satır ile

"Gün" , "Ay" ve "Liste" sayfaları

işlemden ayrı tutulacak

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
Application.ScreenUpdating = False
On Error Resume Next

For i = 1 To Sheets.Count

If Sheets(i).Name = "Liste" Or _
Sheets(i).Name = "Gün" Or _
Sheets(i).Name = "Ay" Then
Else
isim = Sheets(i).Range("B2")
Sheets(i).Name = isim
End If

Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

Düzeltme: Kodlar revize edildi.

 

[simetri.]

Güzel olmuş.

Ellerinize sağlık.

Sayın Hüseyin ÇOBAN

 

[simetri.]

Hüseyin Bey Merhaba.

Örnek dosyada aşağıdaki sayfaların B2 hücrelerinde

değer yoktu. İlk başta fark edemedim ancak şimdi görebildim.

Normalinde aşağıda ki sayfaların adlarının hiçbir surette değişmemesi gerekli lakin değişiyor.

Kendim düzelteyim dedim lakin beceremedim. Tekrardan bakabilir misiniz acaba?


If Sheets(i).Name <> "Liste" Or _
Sheets(i).Name <> "Gün" Or _
Sheets(i).Name <> "Ay" Then

 

[Emir Hüseyin Çoban]

. . .

Üst mesajımdaki kodları revize ettim, deneyiniz.

. . .

 

[simetri.]

Tekrar teşekkür ederim. Ellerinize sağlık.