Seçili hücreleri silmek

[extra5]

Forumda arattırdım ama sorunumun cevabı olabilecek bir topic bulamadım. Yada ben yanlış arama yaptım, bilemiyorum. Benim sorunum yanyana seçili hücrelerin içerisindeki değerlerin silinmesi. Kafam durdu artık düşünemez oldum. Yardımcı olursanız çok sevineceğim. örnek dosya ektedir.

 

[Orion1]

Merhaba.
Aşağıdaki kodları deneyiniz.

Sub Sil3()
        Application.Sheets("Sayfa1").Select
        Range(Cells(ActiveCell.Row, "A"), Cells(ActiveCell.Row, "C")).ClearContents
        
End Sub

 

[Orion1]

Pardon soruya yanlış okumuşum.
Aşağıdaki kodları deneyiniz.Seçili alanın değerelerini siler.

Sub Sil3()
        Application.Sheets("Sayfa1").Select
        Selection.ClearContents
        
End Sub

 

[extra5]

Çok teşekkür ederim, ikinci yazdığınız kodla sorun çözüldü..
iyi çalışmalar dilerim..

 

[Orion1]

Çok teşekkür ederim, ikinci yazdığınız kodla sorun çözüldü..
iyi çalışmalar dilerim..

Rica ederim.
İyi çalışmalar.