Makro ile çalışma sayfası isimi değiştirme

drumitgunay

Altın Üye
Katılım
16 Ocak 2019
Mesajlar
42
Excel Vers. ve Dili
Microsoft 365 Apps For Enterprise (Türkçe)
Merhaba sayın arkadaşlar;

2 aydır sorunsuz çalışan raporumdan 1 kaç sayfa editlemesinden sonra bir takım hatalar cıkmaya başladı rapor isim değişikliğini raporun içerisindeki gün ve yazıdan oluşturuyordum bu hatayı neden vermeye başladı anlam veremedim yardımcı olurmsunuz Tşeekkürler.


Kod:
  Dim reportName As String
    reportName = "ERYAMAN TEST RAPOR " & Sheets("Table").Cells(7, 3)

    For Each s In ActiveWorkbook.Sheets
    
        x = s.Name
        Sheets(x).Select   

        Range(Cells(1, 1), Cells(1, 1)).Select

    Next
Hata veren kısım sarı ile yanıyor hata kodu aşağıda mevcuttur.
211737
211738
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Gizli sayfa olabilir.:cool:
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Kodları F8 e basarak satır satır çalıştırın. Hata başka kodlardan kaynaklı olmalı.
Asıl hata veren kod satırını bu F8 ile daha kolay bulursunuz.
Çözümleyemediyseniz dosyanızı ekleyin kontrol edelim.

Ayrıca yukarıda yazdığınız kod aşağıdaki gibi daha kısa yazılabilir.

Kod:
Sub test()
  Dim reportName As String
  Dim s As Worksheet
    reportName = "ERYAMAN TEST RAPOR " & Sheets("Table").Cells(7, 3)
    For Each s In ActiveWorkbook.Sheets
        s.Select
        Range("A1").Select
    Next
End Sub
 

drumitgunay

Altın Üye
Katılım
16 Ocak 2019
Mesajlar
42
Excel Vers. ve Dili
Microsoft 365 Apps For Enterprise (Türkçe)
Aynen hocam gizli sayfa mevcuttmuş aslında bu koddan hata vermeside garip bu sayfayı bulmuyordu yine forumdan tanıdıgım muhammed abi @acar6783 saolsun whatsapdan cevap verince konu cözüldü :)

hepinize teşekkürler değerli yorumlarınız için
 
Üst