sil makrosunda userform hatası

[gsenlikoglu]

sil(delete) makrosu yaptığımda userform görüntüsü ekrandan gidiyor.Bu propleme yardımcı olan varsa teşekkür ederim

örn:
On Error GoTo Son:

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


GoTo 0
Son:
MsgBox " Silinecek Sayfa bulunamadı", vbOKOnly, "HATA"
GoTo 1
0 MsgBox "Silme İşlemi Tamamlandı"
GoTo 1

1 DTY.Show

yukarıdaki makroda goto 0 dan sonra dty.show da dty formu ekrandan gidiyor.

 

[gsenlikoglu]

bunu cevaplayaca yomu arkadaşlar

 

[Mehmet Şahin]

Merhaba,
dosyanızı özetleyip eklerseniz, yanıtlanma şansınız çok yüksek olur, iyi çalışmalar.

 

[gsenlikoglu]

bu makrodan önce oluşturulan kontenjan, hesap ve alan exel sayfaları 2007-2008 yıllar veya benzer yazılan yıllara ait istenilen kontenjan 2007-2008, hesap 2007-2008 ve alan 2007-2008 gibi aşağıdaki makro ile oluşturdum;

Sheets("kontenjan").Select
Sheets("kontenjan").Copy After:=Sheets(3)
Range("C1:N1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("kontenjan (2)").Name = " kontenjan " & Sheets("hesap").Range("n1")

Sheets("hesap").Select
Sheets("hesap").Copy After:=Sheets(4)
Range("B1:M1").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2:E2").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B3:E3").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("hesap (2)").Select
Sheets("hesap (2)").Name = "hesap " & Sheets("hesap").Range("n1")

Sheets("alan").Select
Sheets("alan").Copy After:=Sheets(5)
Sheets("alan (2)").Select
Sheets("alan (2)").Name = "alan " & Sheets("hesap").Range("n1")

GoTo 0
son:
Application.DisplayAlerts = False
Sheets("kontenjan (2)").Delete
Application.Visible = False
MsgBox "aynı sayfadan sayfa var", vbOKOnly + vbCritical, "HATA"
GoTo 1
0 MsgBox "devir işlemi tamamlandı"
Application.Visible = False
DTY.Show
1 DTY.Show


daha sonra yukarıda yazdığım makro ile kontenjan 2007-2008, hesap 2007-2008 ve alan 2007-2008 xcel sayfalarını silmek istiyorum. Belirttiğim gibi iki makroda da deleteden sonraki (örn.son:
Application.DisplayAlerts = False
Sheets("kontenjan (2)").Delete
Application.Visible = False
MsgBox "aynı sayfadan sayfa var", vbOKOnly + vbCritical, "HATA"
Go to 1
1 DTY.Show) DTY formunu göstermiyor. Yani delete ile sil makrosundan sonraki show ile göstermek istediğin form sayfasını ekrana getirmiyor.

Teşekkürler

 

[gsenlikoglu]

arkadaşlar bu konuya hala yanıt alamadım cevaplayacak yok mu

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklermisiniz.

 

[gsenlikoglu]

örnek dosyayı ekledim