Hücredeki değeri Sekme ismi olarak atama

[em.mehmetaliates]

Günaydın,

H5 hücresindeki değeri sekme ismi olarak vermek istiyorum. Nasıl yapabilirim.

 

[Erdem Akdemir]

Dolaylı formülünü inceleyin.

 

[Merhum İdris SERDAR]

.

Bu kodu kullanın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Name = Range("H5").Value

End Sub

.

 

[em.mehmetaliates]

Merhaba,

İlginiz için teşekkürler.

Başka bir kod daha kullandığım için bu şekilde yapıştırdım.Fakat kod çalışmıyor bu şekilde olduğu zaman. Kod konusunda neredeyse hiç bilgim yok.Yardımcı olursanız sevinirim.

(Kodu Alt+F11 yaptıktan sonra This workbook seçtikten sonra karşılaştığım alana yapıştırıyorum)

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim Say As Byte
Say = ThisWorkbook.Sheets.Count
If Say > 26 Then
MsgBox "Sayfa ekleme sınırını aştınız!" & Chr(10) & _
"Yeni eklenen sayfa silinecektir.", vbCritical, "Uyarı!"
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Name = Range("H5").Value

End Sub