How to simplify Macro IF function

[herukuncahyono]

Hi ,
I have macro but is too long

With Sheets("Sheet1")
IF Range ("C1).Value = "" then Range ("A1:B1).Value= ""
IF Range ("C2).Value = "" then Range ("A2:B2).Value= ""
IF Range ("C3).Value = "" then Range ("A3:B3).Value= ""
IF Range ("C4).Value = "" then Range ("A4:B4).Value= ""
IF Range ("C5).Value = "" then Range ("A5:B5).Value= ""
IF Range ("C6).Value = "" then Range ("A6:B6).Value= ""

End If
End With

I really appreciate if anyone can help me to simplify the code

[patel45]

Sub a()
LR = Cells(Rows.Count, "A").End(xlUp).Row
For r = 1 To LR
  If Cells(r, "C") = "" Then Range("A" & r & ":B" & r) = ""
Next
End Sub

[herukuncahyono]

hi patel45

thanks the code work fine...

[herukuncahyono]

hi patel45

thanks the code work fine...

[Winon]

Hello herukuncahyono,

Or you could do it in the Worksheet Change Event:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim chkRange As Range

Set chkRange = Intersect(Target, [C:C])
On Error Resume Next
If Target <> chkRange Then Exit Sub
If Target.Value = "" Then
With chkRange
Target.Offset(, -1) = ""
Target.Offset(, -2) = ""
End With
    Else
        Exit Sub
    End If

End Sub

[Winon]

You could even combine it with the fine Code from patel45.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim chkRange As Range

Set chkRange = Intersect(Target, [C:C])
On Error Resume Next
If Target <> chkRange Then Exit Sub
If Target.Value = "" Then
With chkRange
a
End With
    Else
        Exit Sub
    End If

End Sub

[herukuncahyono]

Winon
Thanks for the code...perfect

[Winon]

Hello herukuncahyono,

Thank you for the feedback.

You are welcome.

Thank you also for adding to my Reputation.