dört koşuldan en az biri varsa yazdırsın

[nihattt]

şöyle bir şey yapmak istiyorum. 4 tane check im var sayfada. yazdır butonuna bastığımda dört checkten en az biri seçiliyse yazdırsın değilse uyarı versin. ben uğraştım ama beceremedim. aşağıdaki kodda nasıl bi düzenleme yapmam lazım. vb dilini çok iyi anlamıyorum and filan yok ki ekleyeyim. örnekte preview yaptım tabi denemek için onu değiştiririm.

Private Sub CommandButton1_Click()
If Me.CheckBox1.Value = False
If Me.CheckBox2.Value = False
If Me.CheckBox3.Value = False
If Me.CheckBox4.Value = False Then
MsgBox "Hiç seçenek Seçilmemiş"
Else
Sheets("rapor").PrintPreview
End If
End If
End If
End If
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki şekilde kullanabilirsiniz.

Private Sub CommandButton1_Click()
If Me.CheckBox1.Value = True Or _
    Me.CheckBox2.Value = True Or _
    Me.CheckBox3.Value = True Or _
    Me.CheckBox4.Value = True Then
    Sheets("rapor").PrintPreview
Else
    MsgBox "Hiç seçenek Seçilmemiş"
End If
End Sub

 

[nihattt]

hocam çok teşekkür ederim "Or" dan sonraki "_" nin anlamı nedir izah edebilirmisiniz rica etsem.

 

[uzmanamele]

hocam çok teşekkür ederim "Or" dan sonraki "_" nin anlamı nedir izah edebilirmisiniz rica etsem.

merhaba

"_" silin ve hepsini tek satıra yazın.

 

[nihattt]

alt satıra kod yazmak için o galiba. sizede çok tşk ederim.