Sayfa adı

Katılım
1 Kasım 2019
Mesajlar
32
Beğeniler
7
Excel Vers. ve Dili
2010 Türkçe
#1
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
7,755
Beğeniler
297
Excel Vers. ve Dili
İş : Ofis 2016 - Türkçe
Ev: Ofis 2016 - Türkçe
#2
Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz:

PHP:
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
 

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
1,484
Beğeniler
39
Excel Vers. ve Dili
Office 2013 İngilizce
#4
Çok Teşekkürler hocam işime yaradı hatta 251 i de değişken yaptım sayenizde.
Alternatif olarak......
Kod:
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
 
Üst