• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Sayfa Referans İsmini Değiştirme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Azinphos

Yeni Üye
Katılım
4 Ara 2018
Mesajlar
7
En iyi yanıt
0
Puanları
3
Yaş
29
Konum
Trabzon
Ad Soyad
Ahmet YILMAZ
Merhabalar,
Öncelikle kolay gelsin iyi çalışmalar diliyorum.
Sayfa Referans İsmini VBA kod ile Değiştirebilir miyim ?
Değiştirilebiliyorsa nasıl bir kod yazmalıyım ?
 

muygun

Uzman
Katılım
19 Ağu 2018
Mesajlar
433
En iyi yanıt
28
Puanları
43
Konum
Excel 2003
Ad Soyad
Mustafa UYGUN
Office Vers.
Office 2003
Merhaba;
Boş bir modüle;

Sub isim_değiştir()
On Error Resume Next
mevcut = InputBox("Değişecek sayfa adını giriniz?")
değişecek = InputBox("Yeni sayfa adını giriniz?")
Sheets(mevcut).Name = değişecek
End Sub

ekleyerek deneyin.
İlk input ile alınan adı değişecek sayfa varsa ve ikinci input ile alınan yeni isimli sayfa yoksa değişikliği yapar.

İyi çalışmalar.
 

Azinphos

Yeni Üye
Katılım
4 Ara 2018
Mesajlar
7
En iyi yanıt
0
Puanları
3
Yaş
29
Konum
Trabzon
Ad Soyad
Ahmet YILMAZ
Hocam teşekkür ediyorum ilginiz için,
Fakat ben Sayfa Adını değil Sayfanın Referans adını değiştirmek İstiyorum.
VBA penceresini açtığımızda project kısmında gözüken Ör: Sayfa1(Toplam) buradaki Sayfa1 i değiştirmek istiyorum
 

l3oomerangg

Yeni Üye
Katılım
28 Ağu 2018
Mesajlar
14
En iyi yanıt
0
Puanları
3
Yaş
45
Konum
Sultangazi - İSTANBUL
Ad Soyad
Fatih Yanartaş
PHP:
Sub RefNameChange()
    
    Dim Yeni_isim As Object
    
    Set Yeni_isim = ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.Sheets(1).CodeName)
    Yeni_isim.Name = "TEST"
    
End Sub
 

l3oomerangg

Yeni Üye
Katılım
28 Ağu 2018
Mesajlar
14
En iyi yanıt
0
Puanları
3
Yaş
45
Konum
Sultangazi - İSTANBUL
Ad Soyad
Fatih Yanartaş
Rica ederim, işinize yaramasına sevindim, çözüldü olarak işaretlerseniz konu otomatik kapanır. Hayırlı günler.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt