hücre içerisinde ki düğme lerin silinmesi.

[imported_ahmet tunalı]

Günaydın,
Bir hücre içerisindeki butonları makro kodları ile nasıl silebilirim.
[g6:I6].ClearContents kulandığımda hücreler içindeki tüm değerleri siliyor ancak düğmeleri silmiyor.

 

[cako]

ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete

Sadece küçük bir örnek olup, makro kaydet yöntemiyle yapılmıştır.

 

[keniken]

ActiveSheet.Shapes("Button 1").Select
Selection.Delete
ActiveSheet.Shapes("Button 2").Select
Selection.Delete


gibi bişey olabilir mi?

 

[keniken]

prdn cako, aynı anda göndermişiz..ben de aynen senin yönteminle buldum kodları, arkadaşlar bu yöntemi daha sık kullanabilirler aslında, di mi? :lol:

 

[cako]

Zaten o yüzden

Sadece küçük bir örnek olup, makro kaydet yöntemiyle yapılmıştır.

demiştim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Sileceğiniz butonun adını kod içerisinde tanımlamak yeterlidir.

[vb:1:70fdb682f3]ActiveSheet.Shapes("Button 1").Select
Selection.Delete[/vb:1:70fdb682f3]

veya

[vb:1:70fdb682f3]ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete[/vb:1:70fdb682f3]

 

[Haluk]

Yok ben aynısını yazmayacağım.... :mrgreen:

[vb:1:cde4af3a58]Sub DeleteActiveX_Buttons()
Dim oShp As OLEObject
For Each oShp In ActiveSheet.OLEObjects
oShp.Delete
Next
End Sub
'
Sub DeleteNon_ActiveX_Buttons()
Dim oShp
For Each oShp In ActiveSheet.Buttons
oShp.Delete
Next
End Sub

[/vb:1:cde4af3a58]

Bu arada, herkese günaydın...

 

[imported_ahmet tunalı]

teşkkürler sorunşimdilik çözüldü