وضع قيمة في خلايا معينة من عمود بشرط معين

[Elsayeh]

السلام عليكم ورحمة الله

الرجاء المساعدة في وضع قيمة معينة في خلايا من عمود بشرط أن تكون الخلايا المجاورة لها من عمود آخر غير فارغة

مع أرق تحياتي  وأشكر مقدماً كل من :

وضع قيم في خلايا من عمود بشرط معين.xlsx

[lionheart]

Sub Test()
    Dim r As Long
    Application.ScreenUpdating = 0
    For r = 5 To Cells(Rows.Count, "C").End(xlUp).Row
        If Cells(r, "C").Value <> "" Then
            If Cells(r, "F").Value <> "" And Cells(r, "G").Value = "" Then
                Cells(r, "G").Value = 0
            End If
            If Cells(r, "F").Value = "" And Cells(r, "G").Value <> "" Then
                Cells(r, "F").Value = 0
            End If
        End If
    Next r
    Application.ScreenUpdating = 1
End Sub