Sayfa silme işlemi kodunu düzenlemek

[gsenlikoglu]

command butona silme kodu atamak istiyorum. silmek istediğim exel sayfaları olacak şöyleki; hesap sayfası olarak adlandırdğım sayfanın "n2" hücresine 2008-2009 veya 2009-2010 gibi sezonlar yadıracağım ve n2 hücresiyle bağlantılı "hesap 2008-2009" veya "hesap 2009-2010" sayfalar oluşacak. daha sonra ben bu sayfaları silmek istediğimde oluşturduğum sil command butonu ile silebilmek istiyorum ancak beceremedim.

Sheets(" kontenjan 2200-2201").Select
ActiveWindow.SelectedSheets.Delete
Sheets("hesap 2200-2201").Select
ActiveWindow.SelectedSheets.Delete
Sheets("alan 2200-2201").Select
ActiveWindow.SelectedSheets.Delete ;

Makro ile oluşturduğum bu, Sheets(" kontenjan 2008-2009").Select veya
Sheets("hesap 2008-2009").Select >2008-2009 sezonunu hesap n2 hüresindeki değeri almasını istiyorum

a = Sheets(("kontenjan") & Sheets("hesap").Range("n2"))
'Sheets(a).Select
ActiveWindow.SelectedSheets.Delete gibi değişik şeyler denedim ama olmadı.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod yapısını kullanabilirsiniz.

Option Explicit
 
Sub SAYFA_SİL()
    Application.DisplayAlerts = False
    Sheets(" kontenjan " & Sheets("hesap").Range("N2")).Delete
    Application.DisplayAlerts = True
End Sub

 

[gsenlikoglu]

excel sayfası silme

Teşekürederim ancak 3 grup syfam var şu şekilde yazdım
Application.DisplayAlerts = False
Sheets(" kontenjan " & Sheets("hesap").Range("N2")).Delete
Sheets(" hesap " & Sheets("hesap").Range("N2")).Delete
Sheets(" alan " & Sheets("hesap").Range("N2")).Delete
Application.DisplayAlerts = True

sadece Sheets(" kontenjan " & Sheets("hesap").Range("N2")).Delete sayfasını sildi ve hata verdi diğer 2 sayfayı silmedi

 

[Korhan Ayhan]

Selamlar,

Sadece " kontenjan " isimli sayfanızın başında ve sonunda boşluk karakteri kullanmışsınız. Diğer sayfa isimlerinizde kullanmamışsınız. Doğal olarak kod içinde de kullanmamalısınız.

Application.DisplayAlerts = False
Sheets(" kontenjan " & Sheets("hesap").Range("N2")).Delete
Sheets("hesap " & Sheets("hesap").Range("N2")).Delete
Sheets("alan " & Sheets("hesap").Range("N2")).Delete
Application.DisplayAlerts = True

 

[gsenlikoglu]

teşekkürler

 

[gsenlikoglu]

pardon birde devamında userform sayfam kendiliğinden kapanıyor
Application.DisplayAlerts = False
Sheets(" kontenjan " & Sheets("hesap").Range("N2")).Delete
Sheets("hesap " & Sheets("hesap").Range("N2")).Delete
Sheets("alan " & Sheets("hesap").Range("N2")).Delete
Application.DisplayAlerts = True
KONT.Show
(KONT Userforma dönmesini istiyorum ama gelmiyor)

 

[Korhan Ayhan]

Selamlar,

Formu kapatacak bir kod kullanmadık. Eğer dosyanızı eklerseniz hatanın nerden kaynaklandığını tesbit edebiliriz.