For nextli döngüdeki problem

[Korhan Ayhan]

Selamlar

Tüm forumun bayramını kutlarım.

Ekteki kodlarda bir sıkıntı yaşadım ve düzeltemedim.Sorunum şu checkboxlar yardımıyla sayfaları siliyorum 8 adet checkbox var. 7 tanesi sayfaları 8. ise tümünü ifade ediyor. 8.sini seçip sil butonuna basıp gelen soruya evet dediğimde sayfaları silip dosyayı kaydedecek eğer soruya hayır dersem formun ilk haline tekrar geri dönecek.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Aralık(7)
Aralık(1) = "B2:F2501"
Aralık(2) = "B2:F2501"
Aralık(3) = "B2:F2501"
Aralık(4) = "B2:F2501"
Aralık(5) = "B2:F13"
Aralık(6) = "B7:C8,E4:I8,C10:E11,H10:I11,C12:I13,B17:I21"
Aralık(7) = "D6"

Dim Seçim
If MsgBox("Seçmiş olduğunuz sayfalardaki kayıtlı bilgileriniz silinecektir onaylıyor musunuz?", vbCritical + vbYesNo, "Dikkat !") = vbYes Then Seçim = 1 Else Seçim = 0
If CheckBox8.Value = True And Seçim = 1 Then
Sheets("S1").Range(Aralık(1)).ClearContents
Sheets("S2").Range(Aralık(2)).ClearContents
Sheets("S3").Range(Aralık(3)).ClearContents
Sheets("S4").Range(Aralık(4)).ClearContents
Sheets("S5").Range(Aralık(5)).ClearContents
Sheets("S6").Range(Aralık(6)).ClearContents
Sheets("S6").Range("H10:I11,B17:I21").Value = "-"
Sheets("S7").Range(Aralık(7)) = 0
End If
CheckBox8.Value = False

For X = 1 To 7
If Controls("Checkbox" & X).Value = True And Seçim = 1 Then
Sheets(X).Range(Aralık(X)).ClearContents
Sheets("S6").Range("H10:I11,B17:I21").Value = "-"
Sheets("S7").Range(Aralık(7)) = 0
Controls("Checkbox" & X).Value = False
Else
Controls("Checkbox" & X).Value = False
End If
Next
Call UserForm_Initialize
ActiveWorkbook.Save
If Seçim = 1 Then MsgBox ("Seçmiş olduğunuz sayfalardaki kayıtlı bilgileriniz silinmiştir."), vbInformation, "Dikkat !"
Application.ScreenUpdating = True
End Sub

 

[Levent Menteşoğlu]

Kodundaki Dim seçim den sonraki ilk satırı aşağıdaki gibi değiştirin.

[vb:1:ed925abfbb]sor = MsgBox("Seçmiş olduğunuz sayfalardaki kayıtlı bilgileriniz silinecektir onaylıyor musunuz?", vbCritical + vbYesNo, "Dikkat !")
If sor = vbNo Then Exit Sub
If sor = vbYes Then Seçim = 1 Else Seçim = 0
If CheckBox8.Value = True And Seçim = 1 Then
[/vb:1:ed925abfbb]

 

[usturo]

Access De Sorun YaŞiyorum. Yenİ BaŞladiĞim İÇİn Access Le İlgİlenmeye Bazi Problemler YaŞiyorum. Kendİ Harcamalarimi Takİp İÇİn Bİ Program Yapayim Dedİm Fakat Aylara GÖre Gelİrden Aylik Harcamayi Çikarmak İstedİĞİmde, Aylik Gelİrİ Mesala Ocak Ayina Gİrİlen Rakamlari DİĞer Aylarada Atiyor, KaÇtane DeĞİŞİk Rakam Gİrersen TÜm Aylara Aynisini Atiyor. Bunu Nasil ÇÖzebİlİrİm