Sayfayı silmeden içindeki herşeyi silmek

[ECYavuz]

Merhabalar,
Programımda bir sayfaya internetten bilgi alıyorum.
Bu bilgileri kullandıktan sonra sayfayı temizlemek istediğimde;

Worksheets("Prg1").Select
Cells.Select
With Selection
.ClearContents
.DeleteAll
End With

artık ne denediysem; sayfada üzerine tıklanınca

=KAT("Forms.HTML:Hidden.1";"")

yazan HTML:Hidden nesneleri kalıyor. Bunları nasıl kaldırabilirim. Sayfayı tamammen "delete" edemiyorum çünkü o sayfanın kod bölümünde,

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

şeklinde çift tıklama yapıldığında çıkılmasını sağlayan kod var.
Veya bir diğer çözüm olarak bu sayfayı "delete" etsem de tekrar yukarıdaki kodu sayfaya otomatik nasıl ekleyebilirim.

İnşallah açıklamalarım yeterli olmuştur. Lütfen yardımlarınıza ihtiyacım var..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub SAYFADAKİ_TÜM_VERİLERİ_SİL()
    Cells.Delete                        'TÜM HÜCRELER
    ActiveSheet.DrawingObjects.Delete   'TÜM NESNELER
    Range("A1").Select
End Sub

 

[hsayar]

teşekkürler bende merak etmiştim.

 

[ECYavuz]

Yaaa.. üstat nasıl teşekkür etsem azdır.
Kusura bakmayın hemen yanıt veremedim. Bu arada deniyordum.

Gerek yanıt hızı gerekse sorun gidermede üzerinize yok...
İyi ki üyeyim...bu çok güzel bir duygu.

tekrar sağolun...

 

[ECYavuz]

Silinen sayfadaki kodu açılana eklemek

Peki 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?

 

[ECYavuz]

Sevgili COST_CONTROL üstadım sevinmiştim ama sayfa tertemiz olmasına ramen
=KAT("Forms.HTML:Hidden.1";"") kutucukları bu defa yüzlerce en üst satırda birikmişler.. Yani silemedik onları..

Yardımlarınıza tekrar ihtiyacım var...

 

[ECYavuz]

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...

 

[Korhan Ayhan]

Selamlar,

Bahsettiğiniz verileri içeren örnek dosya eklermisiniz.

 

[ECYavuz]

Tamam üstadım üzerinde çalıştığım dosya 8 Mb kadar yani biraz büyük ama örnek bir sayfa hazırlayıp ekli olarak göndereceğim.

İlginize teşekkürler.

 

[ECYavuz]

COST_CONTROL üstadım, dün gece söylediğim örnek çalışmayı gönderiyorum.
Örnek içinde isteğimi açıklamaya çalıştım. Ama makroları etkinleştirmeden önce "İnter" sayfasında yer alan Hidden Neslerine bakarsanız. Çünkü Makrolar etkinleştirildiğinde görünmüyorlar NEDENSE?????

Saygılar ve şimdiden yardımlarınız için teşekkürler...

 

[ECYavuz]

Gönderdiğim örneğe bakma fırsatınız oldumu...

Gününüz aydın olsun...

 

[ECYavuz]

COST_KONTROL üstadım yoğunsunuz biliyorum ama, size gönderdiğim örneği bir inceleyebilirseniz... Memnun olurum...