arkadaşlar merhaba,
aşağıdaki kodlar ile litsboxta sayfa silebiliyorum, fakat döngüyü tam oluşturamadım galiba sürekli sayfaları sileyimmi diye soruyor.
listede kaç sayfa varsa bu soru bir o kadar soruluyor.
bu kodu biryerden kopyalayıp uyarlamaya çalıştım ama olmadı.
Private Sub del_Click()
On Error Resume Next
n = 0
For i = 1 To ActiveWorkbook.Worksheets.Count
If Sheets(i).delete Then n = n + 1
Next i
If n = 1 And Sheets(LB1.Value).delete Then GoTo Message
x = LB1.ListIndex
Sheets(LB1.Value).delete = False
If CKsorted.Value = False Then DefineList Else BubbleSort
LB1.ListIndex = x
Exit Sub
Message:
MsgBox ("En az bir sayfa kalmak zorunda.")
End Sub
neresinde eksiklik yada fazlalık var bulamadım.
yardımlarınızı bekliyorum.
iyi çalışmalar,
aşağıdaki kodlar ile litsboxta sayfa silebiliyorum, fakat döngüyü tam oluşturamadım galiba sürekli sayfaları sileyimmi diye soruyor.
listede kaç sayfa varsa bu soru bir o kadar soruluyor.
bu kodu biryerden kopyalayıp uyarlamaya çalıştım ama olmadı.
Private Sub del_Click()
On Error Resume Next
n = 0
For i = 1 To ActiveWorkbook.Worksheets.Count
If Sheets(i).delete Then n = n + 1
Next i
If n = 1 And Sheets(LB1.Value).delete Then GoTo Message
x = LB1.ListIndex
Sheets(LB1.Value).delete = False
If CKsorted.Value = False Then DefineList Else BubbleSort
LB1.ListIndex = x
Exit Sub
Message:
MsgBox ("En az bir sayfa kalmak zorunda.")
End Sub
neresinde eksiklik yada fazlalık var bulamadım.
yardımlarınızı bekliyorum.
iyi çalışmalar,