Sayfa adı

[burhancavus61]

K4 hücresine ne yazarsam otomatik olarak sayfa adını "K4-251" yapması lazım. her taşıma yaptığımda k4 değiştirince -251 ekleyerek sayfa adını oluşturmak istiyorum. Biraz acil oldu araştırma fırsatı bulamadım kusura bakmayın.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [K4]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
ActiveSheet.Name = Target & "-251"
End Sub

 

[burhancavus61]

Çok Teşekkürler hocam işime yaradı hatta 251 i de değişken yaptım sayenizde.

 

[tamer42]

Çok Teşekkürler hocam işime yaradı hatta 251 i de değişken yaptım sayenizde.

Alternatif olarak......

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Variant

Set WS = ActiveSheet

 If Target.Address = "$K$4" Then
 
 a = WS.Range("K4").Value - 250

  WS.Name = a
 
End If

End Sub