Hücre içeriğini ve nesneleri silme sorunu

[bayrecep]

İyi geceler arkadaşlar bir sorum olacak.Sayfa1deki,Sayfa2deki,Sayfa3deki yani bütün sayfalardaki a5 hücresinin içeriğindeki yazı ve ne var ise (kare,dikdörtgen,ok,üçgen,autocad dosyası resmi,jpeg vb gibi objelerin hepsi) tamamıyla bir kareye veya şekle tıklayınca silmek istiyorum.Deneme yapıyroum fakat objenin ismi a5 hücresinde yok ise debug hata veriyor.

 

[Mustafa MUTLU]

Sub Temizle()
Range("Sayfa1!A5").Select
Selection.ClearContents
End Sub

Bunu Diğer sayfalarada uyarlayabilirsin

 

[bayrecep]

Sayın Mustafa Mutlu bunu nasıl kullanacağım yan bir dikdörtgen veya kare gibi bir nesneye tıklayınca bahsettiğim işlerimleri yapmasını istiyorum.Bununla deneme yaptım hücre içeriğindeki yazılar silindi ama aynı hücredeki herhangi bir nesne silinmedi.

 

[Mustafa MUTLU]

Sub Temizle()
Range("Sayfa1!A5").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.ClearContents
ActiveSheet.Shapes("Picture 1").Select
Selection.Delete
End Sub

Bunu Dene..