Silinen sayfadaki kod'u açılan sayfaya makro ile eklemek

[ECYavuz]

Sayın Uzman arkadaşlar ve özellikle COST_CONTROL arkadaşıma teşekkürlerimle bir sorun daha olacak...

İnşallah mükerrer iş yapmıyorumdur.

Sayfamda aşağıdaki kod var...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Worksheets("Prg1").Hyperlinks.Delete
Worksheets("Prg1").Visible = xlVeryHidden
Application.Visible = False
Application.ScreenUpdating = True
UserForm1.Show
End Sub

Bu sayfayı sildiğimde bir makro ile bunu yeni açtığım sayfaya ekleyebiliyormuyum?

 

[uzmanamele]

merhaba
anladığım kadarıyla siz mevcut sayfa içinde ne varsa silmişsiniz, ancak kodları tekrar kullanmak istiyorsunuz.
galiba sizin eski sayfanızda görünmeyen nesneler varmış, bu kodu başka yerde kullanmak isterseniz işe yaramaz. çünkü nesne vs her ne ise artık o sayfada yok.

 

[ECYavuz]

Bu konuyu iki yerde yazdığım ve hata yaptığımı biliyorum. Sayfadaki her şeyi silme konusundaki kodu COST_CONTROL arkadaşımız göndermişti ve ben de oldu sanmıştım ama sonra bütün hidden nesnelerinin en üst cell üzerinde öbeklenmiş olduğunu gördüm.
Yani kod işe yaramadı gibi görünüyor.
Bu nedenle sayfayı silip tekrar açmayı düşünüyorum.
Ama bu defa da sayfada yazılı olan kod siliniyor. Bu nedenle sayfayı silince açacağım yeni sayfaya silinmeden önceki kodu nasıl yazabileceğimi sordum.

Örnekleri incelediğimde word belgesinden bile bir excel sayfasına kod eklenebileceğini gördüm ama bir marko ile excel sayfasına nasıl kod yazacağımı bilmiyorum.

Yardımlarınız lütfen...

İyi çalışmalar...

 

[yavuz07]

makro

arkadaşlar yeri değil ama yeni üye oldum ve başka yere yazamıyorum..
excel de buton text gibi visual basic kodları ile çalışmaya yeni başladım..
ancak buton ile ilgili bir uyg yaptım çalıştı ve kaydettim..
ama o excel dosyasını tekrar açınca..makrolar kayıtlı değil izin alın gibi bir msj verdi ve butonlar artık çalışmıyor..
sebebi ne olabilir...kusura bakmayın..konuyu değiştirdim..ama lütfen yardım edin

 

[ECYavuz]

Sayfada bulunan Vb kodunu başka sayfaya kopyalamak

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Worksheets("Prg1").Hyperlinks.Delete
Worksheets("Prg1").Visible = xlVeryHidden
Application.Visible = False
Application.ScreenUpdating = True
UserForm1.Show
End Sub

şeklindeki sayfa kodunun başka sayfaya makro ile nasıl kopyalayacağımı bilen yokmu arkadaşlar... Lütfen yardımcı olun bana...

 

[ECYavuz]

Sorumu şu şekilde değiştirsem yardımlarınız olur mu? acaba...

Sayfa1 de yer alan sayfa kodundaki; Prosedür ve kodu....

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Worksheets("İnter").Visible = xlVeryHidden
Application.Visible = False
Application.ScreenUpdating = True
UserForm1.Show
Cancel = True

MsgBox " Çift tıkladınız..bravo"
End Sub

Sayfa2...sayfa3 vb... diğer sayfalar makro yardımı ile nasıl kopyalayabilirim ve o sayfaların kod kısımlarına ekleyebilirim.

Bu konuda Uzmanlarımızın .text dosyası ve Word dosyasından kod aktarma yazılarını uygulayamadım. Bunu excelde makro ile yapmak mümkün mü?

Teşekkürler...

 

[ECYavuz]

Belki imkansızı istiyorum ama... sizlere danıştığım şeyin mümkün olup olmayacağını öğrenmek istiyorum sadece...

Yanıt alabilirsem mutlu olacağım sevgiler...

 

[ECYavuz]

Gerek Kalmadı, gerekli kodu buldum. Yapana teşekkürler.