Sayfadaki Codun silinmesi-Worksheet.change gibi

[conari]

Arkadaşlar örneklerde hep modülü silmek üzerinden gidiyor. Benim istediğim.
Sayfa1 deki tüm kod blogunu silsin.bunun ile ilgili bir kod bulamadım.

Tekrar üstüne basıyorum.
Modul değil sayfadaki kodlar.

 

[Zeki Gürsoy]

Merhaba,

Dim sh As String, VBComp As Object

sh = Sheets("Sayfa1").CodeName

Set VBComp = ThisWorkbook.VBProject.VBComponents("" & sh).CodeModule

VBComp.DeleteLines 1, VBComp.CountOfLines

Set VBComp = Nothing

 

[tahsinanarat]

Sn. Zeki Gürsoy kodu bir örnek üzerinde uygulamalı şekilde ekleyebilirseniz sevinirim. Saygılar.

 

[Zeki Gürsoy]

Sn. Zeki Gürsoy kodu bir örnek üzerinde uygulamalı şekilde ekleyebilirseniz sevinirim. Saygılar.

Uygulama dosyası ektedir..

 

[conari]

Selam,
"VBA projesine programlı olarak erişim güvenli değil"

mesajı aldım.

 

[conari]

Güvenliği düşüğe getirmiştim ama "VB project erişimine güven" işaretlememiştim.
Simdi oldu.

 

[tahsinanarat]

Sn. Zeki hocam elinize sağlık, bu koda ihtiyacım vardı. Teşekkürler.

 

[tahsinanarat]

Sn. Zeki hocam, çalışma kitabındaki Sayfa1 adlı sayfamızı başka bir kitaba aktardığımızda, esas olan çalışma kitabımızdaki Sayfa1 de yazılı kodlar kalsın, ancak Sayfa1 adlı sayfayı başka bir çalışma kitabına aktardığımızda, aktarılan Sayfa1'in kodları silinsin istiyorsak, kodlar nasıl olmalı. Teşekkürler.

 

[tahsinanarat]

Sn. Zeki hocam, ayrıca bir sorum daha olacak, bu kod ile sildiğimiz kodların, bir modüle yedeğinin olduğunu düşünürsek, aynı kodları tekrar Sayfa1'in kod bölümüne yazmak istersek bunun için de bir kod varmıdır. Yani modüldeki kodu sayfanın kod bölümüne yazdırmak istersek. Teşekkürler.

 

[conari]

Benim yaptığım böyle oldu.

Sub belge_hazırla()
Application.ScreenUpdating = False
eskisayfa = ActiveWorkbook.Name
Workbooks.Add
yenisayfa = ActiveWorkbook.Name
Windows(eskisayfa).Activate
Sheets("datam").Select
Sheets("datam").Copy Before:=Workbooks(yenisayfa).Sheets(1)
Windows(yenisayfa).Activate

Dim sh As String, VBComp As Object
sh = Workbooks(yenisayfa).Sheets("datam").CodeName
Set VBComp = Workbooks(yenisayfa).VBProject.VBComponents("" & sh).CodeModule
VBComp.DeleteLines 1, VBComp.CountOfLines
Set VBComp = Nothing
Application.ScreenUpdating = True
end sub

 

[tahsinanarat]

sn. conari ben tek bir sayfadan söz etmiştim, sizinkinde bütün çalışma kitabının kopyasını alıyor. Lazım olduğunda bunuda kullanırız tabiki.

 

[halit3]

aşağıdaki linkdeki dosyaya bakarmısınız aradığınız bu olabilir ancak not32 antivirus proğramı bu dosyanın içeriğini siliyor başka virüs proğramları silmiyor bir kontrol ediniz.



http://www.excel.web.tr/f135/modullerin-icindeki-makrolar-n-degistirilmisi-t66713.html

 

[conari]

sn. conari ben tek bir sayfadan söz etmiştim, sizinkinde bütün çalışma kitabının kopyasını alıyor. Lazım olduğunda bunuda kullanırız tabiki.

Yanlışınız var.
yeni bir belge açıyor ve istediğim sayfayı bu belgeye taşıyor ondan sonra kodları siliyor.
yeni açılan belgedeki sayfalarıda sildiriyorum.

 

[tahsinanarat]

SN conari haklısın. o gün denedigimde bütün sayfaları aldıgını hatılıyorum, ancak dediğiniz gibi istenilen sayfayı alıp kodları siliyor. Teşekkürler