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

[drumitgunay]

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.

  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.

 

[Orion1]

Gizli sayfa olabilir.

 

[genesis_vision]

Select yerine activate yazıp dener misiniz?

 

[Muzaffer Ali]

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.

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]

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