check box seçimi ve otomatik kalldırmak

[natura]

örnek dosya ekte yardımcı olursanız sevinirim. hepsi adlı userform kod bölümünde i olarak doluluğu kontrol edilen checkbox ların işlem sonrası false edilmesi ni istiyorum teşekkürler

 

[Korhan Ayhan]

Selamlar,

Hangi işlemden sonra istediğinizi belirtmemişsiniz. Aşağıdaki kodu kullanabilirsiniz.

For X = 1 To 10
    If Controls("CheckBox" & X) = True Then
    Controls("CheckBox" & X) = False
    End If
Next

 

[natura]

hocam ilginize teşekkürler. 1. çbox seçili iken kod çalıştı diyelim. next x ten döndüğünde sonraki seçili çbox yerine yine aynı çbox çalışıyor. işlemden sonra çalışmış ç boxsı işlem sonunda false yapmasını istiyorum. teşekkürler

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki koda küçük bir if sorgusu ekledim. Denermisiniz.

 

[natura]

hocam emeğinize bilginize sağlık teşekkür ederim.
yararlanmak isteyen arkadaşlar için, if sorguları iç içe olmaz ise son seçimi alıyor. ancak sorgu iç içe olursa. sıra ile seçilen her ç box için kodları ayrı ayrı çalıştırıyor.

Private Sub CommandButton3_Click()
For i = 1 To 10
If Controls("CheckBox" & i) = True Then
Dim a As Range
If CheckBox1.Value = True Then
Set a = Range("a!a2:a15").Find("20L", LookIn:=xlValues)
Else
If CheckBox2.Value = True Then
Set a = Range("a!a2:a15").Find("30L", LookIn:=xlValues)
Else
If CheckBox3.Value = True Then
Set a = Range("a!a2:a15").Find("150-1", LookIn:=xlValues)
Else
If CheckBox4.Value = True Then
Set a = Range("a!a2:a15").Find("150-2", LookIn:=xlValues)
Else
If CheckBox5.Value = True Then
Set a = Range("a!a2:a15").Find("700-1", LookIn:=xlValues)
Else
If CheckBox6.Value = True Then
Set a = Range("a!a2:a15").Find("700-2", LookIn:=xlValues)
Else
If CheckBox7.Value = True Then
Set a = Range("a!a2:a15").Find("700-3", LookIn:=xlValues)
Else
If CheckBox8.Value = True Then
Set a = Range("a!a2:a15").Find("3000-1", LookIn:=xlValues)
Else
If CheckBox9.Value = True Then
Set a = Range("a!a2:a15").Find("3000-2", LookIn:=xlValues)
Else
If CheckBox10.Value = True Then
Set a = Range("a!a2:a15").Find("3000-3", LookIn:=xlValues)
Else
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If


If a.Offset(0, 7).Value = "" Then
MsgBox "LÜTFEN " & a.Offset(0, 0).Value & " YENİ HACME DEĞER GİRİNİZ ! ", vbCritical, "UYARI"
Exit Sub
Else
End If
Sheets("f").Select
Range("A19").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A19").Value = "" Then
Range("A19").Value = a.Offset(0, 0).Value
Else
ActiveCell.Value = a.Offset(0, 0).Value
End If
ActiveCell.Offset(0, 1).Value = a.Offset(0, 15).Value
ActiveCell.Offset(0, 2) = a.Offset(0, 7).Value - a.Offset(0, 15).Value
ActiveCell.Offset(0, 3) = a.Offset(0, 7).Value

Range("a29").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a29").Value = "" Then
Range("a29").Value = a.Offset(0, 0).Value
Else
ActiveCell.Value = a.Offset(0, 0).Value
End If
ActiveCell.Offset(0, 1).Value = " ÜZERİNE "
ActiveCell.Offset(0, 2).Value = "PASAJLANACAK"
Range("F!D1") = Range("a!b21")
Range("F!e4") = Range("a!b23")
Sheets("b").Select
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1).Value = Range("a!b21").Value
ActiveCell.Offset(0, 2) = a.Offset(0, 0).Value
ActiveCell.Offset(0, 3) = "ÜP"
ActiveCell.Offset(0, 4) = a.Offset(0, 1).Value
ActiveCell.Offset(0, 5) = a.Offset(0, 2).Value
ActiveCell.Offset(0, 6) = a.Offset(0, 3).Value
ActiveCell.Offset(0, 7) = a.Offset(0, 4).Value
ActiveCell.Offset(0, 8) = a.Offset(0, 5).Value
ActiveCell.Offset(0, 9) = a.Offset(0, 15).Value
ActiveCell.Offset(0, 10) = a.Offset(0, 7).Value
ActiveCell.Offset(0, 11) = a.Offset(0, 8).Value
ActiveCell.Offset(0, 13) = a.Offset(0, 11).Value
ActiveCell.Offset(0, 16) = a.Offset(0, 5).Value - a.Offset(0, 15).Value
ActiveCell.Offset(0, 18) = a.Offset(0, 0).Value
a.Offset(0, 3).Value = a.Offset(0, 3).Value + 1
a.Offset(0, 19).Value = Range("a!b21").Value
MsgBox a.Offset(0, 0).Value & "ÜZERİNE PASAJI KAYDEDİLDİ", vbCritical, "İŞLEM TAMAM"
Controls("CheckBox" & i) = False
Else
End If
Next i