sayfa silme

[aliballi]

arkadaşlar bir kaç gündür bu forumdan o kadar çok şey öğrendim ki.. yakında hazırladığım bir çalışmayı sizlerle paylaşacağım..

son olarak bir makro yapmak istiyorum, bu makro bana silmek istediğim sayfayı sorup sayfa adını girdiğimde o sayfayı silerken uyarıp sonra silmesini istiyorum..

yardımlarınız için şimdiden teşekkürler..

 

[Levent Menteşoğlu]

son olarak bir makro yapmak istiyorum, bu makro bana silmek istediğim sayfayı sorup sayfa adını girdiğimde o sayfayı silerken uyarıp sonra silmesini istiyorum..

Zaten silmek istediğiniz sayfa adınız size soracak sonradan tekrar uyarı vermesine gerek varmı? Ben her iki türlüde kod önerilerimi aşağıda belirtiyorum.

uyarısız

sub sil()
on error goto 10
application.displayalerts=false
sor=inputbox("Silinecek sayfa adını yazınız.")
if sor="" then exit sub
sheets("" & sor).delete
exit sub
10 msgbox "sayfa bulunamadı."
end sub

[LEFT]sub sil()
on error goto 10
application.displayalerts=false
sor=inputbox("Silinecek sayfa adını yazınız.")
if sor="" then exit sub
mesaj=msgbox ("silmek istediğinizden eminmisiniz",vbyesno)
if mesaj=vbno then exit sub
sheets("" & sor).delete
exit sub
10 msgbox "sayfa bulunamadı"[/LEFT]
end sub

 

[aliballi]

sayın leventm,

çok teşekkür ederim ilginize ve emeğinize.