vba eklenti

[maliex]

arkadaşlar merhaba,
modulde bir kod çalışma hazırladım bunu eklenti olarak kaydettim..şeridi özelliştir alanında yükledim eklentiyide kaydettim sorun yok,, farklı bir excel dosyasında şeritteki butona tıkladığımda set ederken kod hata veriyor ? yardım rica ederim

Sub KAPAMA_RAPORU()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

    data_sayfasi = Sheets(ActiveSheet.Name).Name
    ThisWorkbook.Sheets.Add
    Sheets(ActiveSheet.Name).Name = "rapor" & "_" & Format(Now(), "dd mm yyyy") & "_" & Format(Now(), "hh_mm_ss")
    Rapor_sayfasi = Sheets(ActiveSheet.Name).Name
  
    Set ds = Sheets(data_sayfasi)
    Set RS = Sheets(Rapor_sayfasi)

 

[ÖmerFaruk]

Sayfa eklemeyi düzgün yapmadığınız düşünüyorum
Linkte örneklere ya da forumda arama yaparak sonuca ulaşacağınızı düşünüyorum.
https://www.excel.web.tr/threads/buton-ile-yeni-sayfa-eklemek.7831/

 

[maliex]

yazdığım kod eklenti olmadan (modul den çalıştırdığımda)doğru çalışıyor ama add-in farklı excel dosyasında çalıştırdığımda set ederken hata veriyor

sizinde tahmin ettiğiniz üzere ThisWorkbook.Sheets.Add komutu çalışmıyor..nasıl yapmam gerek

 

[ÖmerFaruk]

ThisWorkbook.Sheets.Add
yerine
Sheets.Add
denermisin.

 

[izcik]

Bu tip eklentileri çok kullanıyorum. Fakat şeritteki buton yerine, kısayol atayıp kullanmayı tercih ediyorum.

Ctrl shit Q
gibi

Çünkü şeritteki butona atadığımda, asıl olan dosyanın yeri değiştiğinde, silindiğinde makro çalışmıyor.

Ama şunu da ekleyeyim, 2002-2003 kullandığımda makroya buton atamak daha kolaydı ve şeritte oluşturduğum butonları sorunsuz kullanıyordum.

Yeni sistemde eklentileri şeride veya şeritteki butonlara tamamiyle gömemiyoruz. Ya da ben yapamadım.

 

[maliex]

ThisWorkbook.Sheets.Add
yerine
Sheets.Add
denermisin.

tmm oldu çok teşekkürler

 

[ÖmerFaruk]

Eyvallah

 

[maliex]

tşkler @izcik