aktif sayfa VBA kodunu silme

[burhancavus61]

Şablondan kopyaladığım aktif sayfanın vba kodlarını nasıl silebilirim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Sil()
    Set VBCodeMod = ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
    VBCodeMod.DeleteLines 1, VBCodeMod.CountOfLines
End Sub

 

[burhancavus61]

hocam kodun içine eklediğimde aşağıdaki satırda hata veriyor.

    Set VBCodeMod = ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule

 

[Ömer]

Veriable hatası verdiyse Set satırından önce aşağıdaki satırı ilave edin.

Dim VBCodeMod

.

 

[burhancavus61]

İlave yaptım ama olmadı ayarlayamadım

Set DimVBCodeMod = ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule

 

[Ömer]

Örnek ekleyebilir misiniz.

 

[burhancavus61]

Kodun tamamını eklesem olurmu dosyamda çok fazla özel bilgi var.

 

[Haluk]

VBA projerine erişime izin vermelisiniz.......

.

 

[Ömer]

Sayın Haluk hocamın verdiği seçenek bende işaretli olduğu için bu detayı atlamışım.
Seçeneklerdeki makro ayarlarından bu seçeneğe ulaşabilirsiniz.