Makroyla makro yazdırmak

[oguzka]

Merhabalar;

Makroyla oluşturduğum yeni sayfaların worksheet change olayına istediğim bir kodlamayı makroyla yapmam mümkün mü? Böyle bir şey yapılabiliyor mu?

 

[ReBiwAr]

zor görünüyor ?

İlginç bir soru umarım biri kesin cevap verir. Konuyu takip ediyorum.

İyi Çalışmalar.

 

[hamitcan]

Bunun gibi birkaç örnek daha vardı ama bulamadım, arama yapmanızı tavsiye ederim.
http://www.excel.web.tr/showthread.php?t=11161&highlight=module

 

[Mehmet Şahin]

Merhaba,
aşağıdaki kodu bir modüle yazıp, yeni sayfa oluşturduğunuz prosedürden call kod_ekle(sayfa adı)
biçiminde çağırabilirsiniz, iyi çalışmalar.

Sub kod_ekle(sh As String)
Dim wbcodemod As Object, codemod As Object
Set wbcodemod = ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.Worksheets(sh).CodeName).CodeModule
Set codemod = ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.Worksheets(sh).CodeName).CodeModule
If Not wbcodemod.Find("Worksheet_Change", 1, 1, 1, 1000) Then
With codemod
.InsertLines 1, "Private Sub Worksheet_Change(ByVal Target As Range)"
.InsertLines 2, "' Buraya kodlar yazılacak 1"
.InsertLines 3, "' Buraya kodlar yazılacak 2"
.InsertLines 4, "End Sub"
End With
End If
End Sub

 

[oguzka]

teşekkür ederim sayın hamitcan ve dentex.