Sayfa Adını Değiştirmek

[yavuz829]

Merhaba Arkadaşlar.

Listede seçtiğim sayfaya gidiyorum. Aktif sayfada UserForm listede aktif sayfadaki kişiyi seçip TextBox lara alarak güncelleme yapıyorum.

Güncele butonuna tıklayarak Kişinin adını değiştirdiğim zaman Aktif sayfa isminin değişmesini istiyorum. A1 Hücresindeki isim ile aktif sayfa ismi ayni olsun.

Bu konuda yardımlarınıza ihtiyacım var.

 

[muygun]

Merhaba;

Sub değiştir()
On Error Resume Next
ActiveSheet.Name = [A1].Value
End Sub

 

[yavuz829]

Hocam A1 hücresindeki isim değişiyor. Sayfa ismi değişmiyor.
Benim istediğim A1 hücresindeki isimle birlikte sayfa ismi de değişsin.

 

[muygun]

Dosyayı deneyin.

Link:

sayfa adını değiştir.zip

dosyayı indir, full download - sayfa adını değiştir.zip

www.dosyaupload.com

 

[yavuz829]

Hocam altın üyeliğim olmadığı için eklediğiniz dosyayı indiremiyorum.

 

[muygun]

Özel mesajlarınıza bakın

 

[yavuz829]

Çok teşekkürler Hocam ellerinize sağlık.

Bendeki kodlar aşağıdaki gibidir. Sizin eklediğiniz konu bendeki kodlara nasıl ekleyebilirim. Aşağıdaki gibi ekledim olmadı.

Private Sub CommandButton1_Click()

ActiveSheet.Unprotect "123"
On Error Resume Next
ActiveSheet.Name = [A1].Value


[A1] = TextBox1.Text
[C2] = TextBox2.Text
[C3] = TextBox3.Text
[C4] = TextBox4.Text
[C5] = TextBox5.Text
ActiveWorkbook.Unprotect "123"
ActiveWorkbook.Protect "123"
ActiveSheet.Unprotect "123"
ActiveSheet.Protect "123"
CommandButton2_Click
 TextBox1.Text = [A1]
TextBox2.Text = [C2]
TextBox3.Text = [C3]
TextBox4.Text = [C4]
 TextBox5.Text = [C5]


Exit Sub

End Sub

 

[muygun]

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "123"
On Error Resume Next
[A1] = TextBox1.Text
[C2] = TextBox2.Text
[C3] = TextBox3.Text
[C4] = TextBox4.Text
[C5] = TextBox5.Text

ActiveSheet.Name = [A1].Value

ActiveWorkbook.Unprotect "123"
ActiveWorkbook.Protect "123"
ActiveSheet.Unprotect "123"
ActiveSheet.Protect "123"
CommandButton2_Click
TextBox1.Text = [A1]
TextBox2.Text = [C2]
TextBox3.Text = [C3]
TextBox4.Text = [C4]
TextBox5.Text = [C5]
Exit Sub
End Sub

Şeklinde deneyin.

 

[yavuz829]

Hocam Sizin özel mesajla gönderdiğiniz excel dosyasında kod çalışıyor.

Sizin en son eklediğiniz kodları da ekledim sadece A1 hücresindeki ismi değiştiriyor. Sayfa ismini değiştirmiyor.

 

[yavuz829]

Hocam kodun başına ActiveWorkbook.Unprotect "123" kodu ekledim sorun çözüldü.

Hocam çok, çok teşekkürler ellerinize sağlık.
Saygılarımla sağlıklı günler diliyorum.