Hücreye adı yazılan sayfanın silinmesi

[acolkesen1]

Merhaba arkadaşlar.
Herhangi bir hücreye (örneğin a1) adını yazdığım sayfanın otomatik olarak silinmesi için sayfanın kod bölümüne yazılacak kodlar konusunda yardım rica ediyorum.
"Sheets(ActiveCell.Row).Delete" şeklinde denedim ama ilgisiz sayfaları siliyor.Diğer denemelerimde ise hücre içeriğini siliyor. İlgilenen arkadaşlara teşekkür ederim.

 

[Ayhan Ercan]

Merhaba Sn acolkesen1

Aşağıdaki örnekleri İnceleyiniz..

Sheets("" & Range("a1")).Delete

Sheets(Cstr(Range("a1"))).Delete

 

[acolkesen1]

Sayın Ayhan Ercan merhaba,
Yardımlarınız için teşekkür ederim. Yazdığınız kodlar çok işime yaradı. sağolun ve sağlıcakla kalın.

 

[Ayhan Ercan]

Sayın Ayhan Ercan merhaba,
Yardımlarınız için teşekkür ederim. Yazdığınız kodlar çok işime yaradı. sağolun ve sağlıcakla kalın.

Rica ederim.
İyi Çalışmalar... k::

 

[mami68]

Sayın Ayhan Ercan bey bu kodun tam gereken kodunu tamamlayıp yazarmısınız.Teşekkürler.

 

[Ayhan Ercan]

Sn mami68

Kod zaten tam.
Mesela bir butondaki hali:

Private Sub CommandButton1_Click()
[LEFT]Sheets(Cstr(Range("a1"))).Delete

End Sub[/LEFT]

 

[mami68]

Sayın Ayhan Ercan
Ben bunu Dubleclick ile yapamayı düşündüm,buttonu hesaba katmadım.İlginize teşekkürler.İyi çalışmalar.

 

[Ayhan Ercan]

Sayın Ayhan Ercan
Ben bunu Dubleclick ile yapamayı düşündüm,buttonu hesaba katmadım.İlginize teşekkürler.İyi çalışmalar.

Rica ederim.
İyi Çalışmalar.. k::