makro ile sayfa adı oluşturma

[alirizapekbilir]

çalışma kitabındaki sayfalarda belirtilen hücrede aranan kelime varsa sayfayı otomatik olarak adlandırmak istiyorum mesela sayfa1 a2 hücresinde "burhan" yazıyorsa sayfa adı "VERİ" olsun burhan kelimesi herhangi bir sayfada olabilir.

 

[Saban Sertkaya]

Deneyiniz ...

Sub Düğme1_Tıklat()
For a = 1 To Worksheets.Count
If Sheets(a).[A2] = "Burhan" Then
Sheets(a).Name = "VERİ"
Exit For
End If
Next
End Sub

 

[Saban Sertkaya]

Veya bunu kullanın...

Sub Düğme1_Tıklat()
b = InputBox("Hangi hücreye bakayım ?")
c = InputBox("Ne arayayım ?")
d = InputBox("Sayfa ismi ne olsun ?")

For a = 1 To Worksheets.Count
If Sheets(a).Range(b) = c Then
Sheets(a).Name = d
Exit For
End If
Next
End Sub

 

[alirizapekbilir]

oldu

Teşekkür ederim elinize sağlık.

 

[alirizapekbilir]

son sayfada hata veriyor

Sayın saban20152015
Son sayfayı değiştiremiyorum
5 sayfa yaparsam makro çalışıyor fakat 6. sayfada hata veriyor.
düzeltebilirmiyiz acaba



Sub SayfaAdlandır()
For a = 1 To Worksheets.Count

'-------------------------------------
'1. Sayfa

If Sheets(a).[L4] = "Ölçü Noksanı" Then
Sheets(a).Name = "M2"
Exit For
'-------------------------------------
'2. Sayfa

ElseIf Sheets(a).[M4] = "Kesme ve Tomruklama" Then
Sheets(a).Name = "M1"
Exit For
'-------------------------------------
'3. Sayfa

ElseIf Sheets(a).[K4] = "Tefriğe Giden" Then
Sheets(a).Name = "O1"
Exit For
'-------------------------------------
'4. Sayfa

ElseIf Sheets(a).[T4] = "Ölçü Fazlası" Then
Sheets(a).Name = "O2"
Exit For
'-------------------------------------
'5. Sayfa

ElseIf Sheets(a).[H4] = "Yükleme" Then
Sheets(a).Name = "SD2"
Exit For
'-------------------------------------
'6. Sayfa

If Sheets(a).[J4] = "Sarfiyata Giden" Then
Sheets(a).Name = "SD1"


Exit For
End If
Next
End Sub

 

[Saban Sertkaya]

Sorunuzu özel mesaj ile de sormuşsunuz. Oradan yanıt vermiştim. Olumlu yada olumsuz dönüş yapmadınız. Bundan sonrası için size kolay gelsin.