3 Koşullu uyarı hk.

[manisali451]

Merhaba, Arkadaşlar konu günceldir.

 

[AdemCan]

Merhaba Sn. manisali451;
Şu şekilde değiştirip dener misiniz?
Boş dosyada rastgele hücreleri doldurarak denedim ve koşula uyan hücreleri renklendiriyor.

For x = 6 To 106

If Cells(x, "A").Value <> Empty Then
If Cells(x, "A").Offset(0, 4).Value = "" Then Cells(x, "A").Offset(0, 4).Interior.Color = 255
If Cells(x, "A").Offset(0, 9).Value = "" Then Cells(x, "A").Offset(0, 9).Interior.Color = 255
If Cells(x, "A").Offset(0, 4).Value = "" Then MsgBox "DOLDURMADIĞINIZ HÜCRELER VAR", vbCritical, "UYARI"
If Cells(x, "a").Offset(0, 9).Value = "" Then MsgBox "DOLDURMADIĞINIZ HÜCRELER VAR", vbCritical, "UYARI"
End If

If Cells(x, "E").Value <> Empty Or Cells(x, "J").Value <> Empty Then
If Cells(x, "E").Offset(0, -4).Value = "" Then Cells(x, "E").Offset(0, -4).Interior.Color = 255
If Cells(x, "J").Offset(0, -9).Value = "" Then Cells(x, "J").Offset(0, -9).Interior.Color = 255

End If
Next x

 

[manisali451]

Merhaba Sn. manisali451;
Şu şekilde değiştirip dener misiniz?
Boş dosyada rastgele hücreleri doldurarak denedim ve koşula uyan hücreleri renklendiriyor.

For x = 6 To 106

If Cells(x, "A").Value <> Empty Then
If Cells(x, "A").Offset(0, 4).Value = "" Then Cells(x, "A").Offset(0, 4).Interior.Color = 255
If Cells(x, "A").Offset(0, 9).Value = "" Then Cells(x, "A").Offset(0, 9).Interior.Color = 255
If Cells(x, "A").Offset(0, 4).Value = "" Then MsgBox "DOLDURMADIĞINIZ HÜCRELER VAR", vbCritical, "UYARI"
If Cells(x, "a").Offset(0, 9).Value = "" Then MsgBox "DOLDURMADIĞINIZ HÜCRELER VAR", vbCritical, "UYARI"
End If

If Cells(x, "E").Value <> Empty Or Cells(x, "J").Value <> Empty Then
If Cells(x, "E").Offset(0, -4).Value = "" Then Cells(x, "E").Offset(0, -4).Interior.Color = 255
If Cells(x, "J").Offset(0, -9).Value = "" Then Cells(x, "J").Offset(0, -9).Interior.Color = 255

End If
Next x

Sn. faye_efsane
Süper olmuş emeğinize sağlık.

 

[AdemCan]

Merhaba, rica ederim iyi çalışmalar.