hücresindeki ismi sayfa adına yazdırma

[turgayzeynep]

Hocam Kolay gelsin iyi akşamlar iyi çalışmalar hocam 50 sayfalık Excel'de bir çalışma sayfamız var Her sayfaya G1 hücresindeki isimleri sayfa adında görmek istiyorum 50 Sayfada da farklı isimler var G1hücresende yardımcı olabilir misiniz rica etsem
Nasıl bir yol izlemem gerekiyor

 

[Necdet]

Merhaba,

Kodları dener misiniz?

[
Sub sayfaAdDegistir()

Dim ws As Worksheet

For Each ws In Worksheets
    On Error Resume Next
    If Not ws.Range("G1") = "" Then ws.Name = ws.Range("G1").Value
    If Not Err.Number = 0 Then MsgBox ws.Name & " Değiştirilemiyor, Değer : " & ws.Range("G1")
Next ws

End Sub

/CODE]

 

[Necdet]

Adam gelmiş gitmiş ve bir tek yorum yapmamış, neden ki?

 

[walabi]

Kamuda çalışan biri sanırım, birkaç isteği var. Makro ile ilgisi yok ise ( anlam veremediyse ) ve işi acil ise bakıp geçmiş olabilir.

 

[turgayzeynep]

Merhaba,

Kodları dener misiniz?

[
Sub sayfaAdDegistir()

Dim ws As Worksheet

For Each ws In Worksheets
    On Error Resume Next
    If Not ws.Range("G1") = "" Then ws.Name = ws.Range("G1").Value
    If Not Err.Number = 0 Then MsgBox ws.Name & " Değiştirilemiyor, Değer : " & ws.Range("G1")
Next ws

End Sub

/CODE]

Hocam oldu Teşekkür ederim Elinize emeğinize sağlık çok sağ olun İyi akşamlar