Makro ile Farkli sayfalardakı yazıları silme.

[Antkan]

Merhaba

Makro ile silme butonu yapmayı forumdan öğrendim ama benim yapmaya calıstığım sayfa 1 deki butona basarak sayfa 2 deki yazıları silmek.Bunu denedim ama hep hata verdı bana yardımcı olursanız sevinirim.Ve rica edersem cözümü bilen kısa bir sekilde mantğınıda anlatabilrmi..Simdiden Teşekkürler.Ekledğim dosyada bir örnek var ama ben Yapamadım :frown:

 

[ynmcan]

Merhaba

Makro ile silme butonu yapmayı forumdan öğrendim ama benim yapmaya calıstığım sayfa 1 deki butona basarak sayfa 2 deki yazıları silmek.Bunu denedim ama hep hata verdı bana yardımcı olursanız sevinirim.Ve rica edersem cözümü bilen kısa bir sekilde mantğınıda anlatabilrmi..Simdiden Teşekkürler.Ekledğim dosyada bir örnek var ama ben Yapamadım :frown:

Syn. Antkan ; Ekteki dosyayı inceleyin.

 

[Antkan]

Syn.ynmcany

Çok teşekkürler.Bu arada bende kurcalamaya devam ettim ve söyle yaptım sanırım oldu ikiside aynımı.Değilse hankisini kullanmamı önerirsiniz.Sizinkinimi Bu alta yazanımı.?

Private Sub CommandButton1_Click()
[Sayfa2!C9:C25].ClearContents
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki yazım örneklerini inceleyiniz.

Private Sub CommandButton1_Click()
    'Sadece tablo içindeki değerleri siler. Her satır aynı işlemi yapmaktadır.

    [Sayfa2!C9:C25].ClearContents
    [Sayfa2!C9:C25] = Empty
    [Sayfa2!C9:C25] = ""
    Sayfa2.Range("C9:C25").ClearContents
    Sayfa2.Range("C9:C25") = Empty
    Sayfa2.Range("C9:C25") = ""
    Sheets("Sayfa2").Range("C9:C25").ClearContents
    Sheets("Sayfa2").Range("C9:C25") = Empty
    Sheets("Sayfa2").Range("C9:C25") = ""
End Sub
 
Private Sub CommandButton1_Click()
    'Biçİmlendirmelerle beraber tüm değerleri siler. Her satır aynı işlemi yapmaktadır.

    [Sayfa2!C9:C25].Clear
    Sayfa2.Range("C9:C25").Clear
    Sheets("Sayfa2").Range("C9:C25").Clear
End Sub