Makro ile yeni sayfa oluştururken sayfanın kod bölümüne makro nasıl yazılır?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Makro ile yeni sayfa oluştururken sayfanın kod bölümüne

Private Sub Worksheet_Activate()
    Call Makro1
End Sub

nasıl yazdırılır?
Saygılarımla

 

[muhasebeciyiz]

Sub CreateSheetAndAddCode()
Dim ws As Worksheet
Dim vbComp As Object
Dim code As String

Set ws = ThisWorkbook.Worksheets.Add
ws.Name = "DENEME"

code = "Private Sub Worksheet_Activate()" & vbCrLf & _
" Call Makro1" & vbCrLf & _
"End Sub"

Set vbComp = ThisWorkbook.VBProject.VBComponents(ws.CodeName)
vbComp.CodeModule.AddFromString code

End Sub

Kodun Çalışabilmesi İçin Güvenlik Ayarlarını Yapınız
Hocam bunu deneyebilirmisiniz. Saygılar

 

[Muzaffer Ali]

Merhaba.

Sub Tests()
    Dim syf As Worksheet
    Set syf = ThisWorkbook.Worksheets.Add
    With ThisWorkbook.VBProject.VBComponents(syf.CodeName).CodeModule
        .InsertLines Line:=.CreateEventProc("Activate", "Worksheet") + 1, String:="    Call Makro1"
    End With
End Sub

 

[Tevfik_Kursun]

Sayın Muhasebeciyiz,
İlginize teşekkür ederim. Makronuz Deneme adlı sayfayı oluşturuyor ama kod bölümüne mesajımdaki makroyu yazamıyor.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Muzaffer Ali,
İlginize teşekkür ederim. Makronuz yeni bir sayfa açıyor, resimlerdeki hatayı veriyor.
Sayfa oluşturmada benim problemim yok, Kod bölümüne ilk mesajdaki makroyu yazdırmak istiyorum.
Saygılarımla

 

[Muzaffer Ali]

Sayfa eklemesini yapmam gerekiyordu çünkü sayfa değişkeni bu kodlar içinde (syf.CodeName) kullanılıyor. Siz kendinize göre burayı değiştirebilirsiniz.

Hata için şu linki inceleyin.

Makro Hatası - Microsoft Desteği

Makro Hatası iletisi görüntülenir

support.microsoft.com

 

[Tevfik_Kursun]

Herkese teşekkür ederim
Saygılarımla