If sorunu

[gnorar]

1. satır ile 2000. satır arasında şöyle bir sorgulama yaptırmak istiyorum.
i değişkenimiz olmak üzere

ai ve bi boş ise birşey yapılmayacak
ai ve bi doluysa birşey yapılmayacak
ai dolu bi boş ise "i. satırda hata var" mesajı verecek
ai boş ve bi dolu ise yine "i. satırda hata var" mesajı verecek.

Ben aşağıdaki gibi kod yazdım ancak olamadı. Nerede hata yapıyorum? Bu işlem nasıl yaptırılır?

For i=1 To 2000
If Sheets("Mlist").Cells(i, 1) = "" Xor Sheets("Mlist").Cells(i, 2) = "" Then
Else
MsgBox "Listede hata yaptınız!"
GoTo 10
End If
Next i

 

[parametre]

işlemini formulle yazdım ben a4 ve b4u baz alarak yazdım bunu istedigin hucre için uyarla
EĞER(VE(A4>0;B4>0);"";"hata var")
EĞER(YADA(VE(A4=0;B4=0);VE(A4>0;B4>0));"";"hata var")
kolay gelsin

 

[gnorar]

işlemini formulle yazdım ben a4 ve b4u baz alarak yazdım bunu istedigin hucre için uyarla
EĞER(VE(A4>0;B4>0);"";"hata var")
kolay gelsin

sorun "ve" ile çözülebilecek bir sorun değil. istene özellikleri karşılamaz.

 

[parametre]

y

1. satır ile 2000. satır arasında şöyle bir sorgulama yaptırmak istiyorum.
i değişkenimiz olmak üzere

ai ve bi boş ise birşey yapılmayacak
ai ve bi doluysa birşey yapılmayacak
ai dolu bi boş ise "i. satırda hata var" mesajı verecek
ai boş ve bi dolu ise yine "i. satırda hata var" mesajı verecek.

Ben aşağıdaki gibi kod azdım ancak olamadı. Nerede hata yapıyorum? Bu işlem nasıl yaptırılır?

For i=1 To 2000
If Sheets("Mlist").Cells(i, 1) = "" Xor Sheets("Mlist").Cells(i, 2) = "" Then
Else
MsgBox "Listede hata yaptınız!"
GoTo 10
End If
Next i

bu formulu c4 yazarsa sadece yazı olarak verir
EĞER(YADA(VE(A4=0;B4=0);VE(A4>0;B4>0));"";"hata var")
formulu guncelledim

 

[gnorar]

y

bu formulu c4 yazarsa sadece yazı olarak verir
EĞER(YADA(VE(A4=0;B4=0);VE(A4>0;B4>0));"";"hata var")
formulu guncelledim

ne yazik ki bu da istenen kriterleri karşılamaz

 

[Ömer]

Merhaba,

Bu mantıkla kendinize uyarlarsınız.

Sub HataBul()
 
For i = 1 To 2000
    If WorksheetFunction.CountIf(Range("A" & i & ":B" & i), "<>") = 1 Then
        MsgBox i & "Nolu Satırda Hata"
    End If
Next i
 
End Sub

.

 

[gnorar]

Merhaba,

Bu mantıkla kendinize uyarlarsınız.

Sub HataBul()
 
For i = 1 To 2000
    If WorksheetFunction.CountIf(Range("A" & i & ":B" & i), "<>") = 1 Then
        MsgBox i & "Nolu Satırda Hata"
    End If
Next i
 
End Sub

.

Ömer Bey teşekkür ederim. İstediğim kod buydu.