Kod Silme-Kopyalama ve Yapıştırma

[ECYavuz]

Mahmut Bayram beyin 2951 kod programında da yer alan, bir Workbook daki kodların silinebilmesi konusundaki;

Sub hepsini_sil()
If MsgBox("Projedeki bütün kodları siliyor dikkat etmek lazım." & vbCrLf & _
"Bütün kodlar silinsin mi?", vbYesNo, "AMAN DİKKAT!!!") = vbNo Then Exit Sub
For Each modul In ThisWorkbook.VBProject.VBComponents
With modul.CodeModule
.deletelines 1, .CountOfLines
End With
Next
End Sub

Şeklindeki çalışması mantığı ile hareket ederek,

Sayfa1 de yer alan aşağıdaki kodu;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Worksheets("Prog").Visible = True
Application.Visible = False
Application.ScreenUpdating = True
UserForm2.Show
Cancel = True
End Sub

Sayfa2 ye nasıl kopyalayabiliriz.

Öğrenmek istediğim: İstediğimizde bir sayfadaki kodu bir makro ile silebiliyoruz hatta tüm Workbook ta ki kodları silebiliyoruz. Ama bir sayfadaki kodu bir başka sayfaya yazmakve kopyalamak için illa manuel mi yapmamız gerekiyor...

 

[ECYavuz]

Lütfen...

Uzman arkadaşlar, günlerdir neredeyse MSN gibi Excel.web.tr sayfam sürekli açık ama şu soruma bi yanıt alamadım. Lütfen bilen birileri varsa bana da yardımcı olun....

 

[mesuttasar]

Neden kodları sayfalara ayrı ayrı yazıyorsunuz ??? thisworkbook kısmına eklerseniz kodlar tum çalışma kitabında etkili olur.

 

[ECYavuz]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Worksheets("Prog").Visible = True
Application.Visible = False
Application.ScreenUpdating = True
UserForm2.Show
Cancel = True
End Sub

Kod'dan da anlayacağınız üzere sayfa açıldığı zaman çift tıklama ile sayfadan çıkılıyor. Ancak bu sayfaya internetten bilgi alındığı için sayfa içeriği ne kadar silinsede bazi Form:Hidden nesneleri kalıyor. Bu nedenle sayfayı silip tekrar yaratıyorum. Bu seferde sayfada var olan yukarı daki kod siliniyor. Her seferinde sayfaya gidip kodu manuel eklemek zorunda kalıyorum.

Çok sıkıcı bir işlem....

 

[ECYavuz]

Aslında bir yolu vardır ama derdimi doğru dürüst anlatamıyorum sanırım.

 

[ECYavuz]

Nihayet...bi de çalışsa

Günlerdir bir sayfanın kod bölümüne makro ile kod yazma konusundaki çırpınışlarıma kimse yardımcı olamazken ben yine arayarak buldum.
Bu örneği kim yaptı hatırlayamadığım için de çok üzgünüm. Çünkü bizzat sahibine teşekkür etmek isterdim. Şuan bilgisayarımda error 1004 hatası verse de hallederiz nasıl olsa...

Yine de Çoook teşekkürler..

Sub AddProcedure()
Dim VBCodeMod, VBCode As CodeModule
Dim a As Integer
Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule
With VBCodeMod
StartLine = .ProcStartLine("Worksheet_SelectionChange", vbext_pk_Proc)
HowManyLines = .ProcCountLines("Worksheet_SelectionChange", vbext_pk_Proc)
.DeleteLines StartLine, HowManyLines
End With
a = InputBox("Etkinleştirilecek makro")
If a < 1 Or a > 5 Then a = 5
j = 2
kodlar = ""
Do While Worksheets("2").Cells(j, a) <> ""
kodlar = Worksheets("2").Cells(j, a)
Set VBCode = ThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule
With VBCode
.InsertLines j, kodlar
End With
j = j + 1
Loop

End Sub

 

[merakli_72]

modul kopyalama ile ilgli şöylede bir örnek var, ama bundada birşeyler eksik,
makroyu siliyor
sonra 2 isimli sayfadan tekrar kopyalıyor
2 isimli sayfaya bu makrolar naısl gelecek