Benim merak ettiğim If.......Then koşulu alt alta 12 defa yazılarak
12 koşulun sonucunda bir döngü yardımıyla sonuca ulaşılabilinirmi?
örnek;
For i = 2 To Cells(65565,2).Row
If Cells(i,1)=TextBox1.Text And Cells(i,2)=1 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=2 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=3 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=4 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=5 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=6 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=7 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=8 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=9 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=10 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=11 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=12 And Cells(i,3)<>"" Then
MsgBox "TAMAM"
Next
End Sub
yani 12 koşuluda If....Then bloğunda aynı anda test ettirebilirmiyiz.
Herkese çalışmalarında başarılar dilerim. Saygılarımla
12 koşulun sonucunda bir döngü yardımıyla sonuca ulaşılabilinirmi?
örnek;
For i = 2 To Cells(65565,2).Row
If Cells(i,1)=TextBox1.Text And Cells(i,2)=1 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=2 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=3 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=4 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=5 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=6 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=7 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=8 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=9 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=10 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=11 And Cells(i,3)<>"" Then
If Cells(i,1)=TextBox1.Text And Cells(i,2)=12 And Cells(i,3)<>"" Then
MsgBox "TAMAM"
Next
End Sub
yani 12 koşuluda If....Then bloğunda aynı anda test ettirebilirmiyiz.
Herkese çalışmalarında başarılar dilerim. Saygılarımla