Keep the Cell Blank if another cell is blank in the same row

[mamun_ges]

Hi, Everyone

Hope all are fine.

I am working on a worksheet with some data related to other cells. In this worksheet, if any cell in between W9:W1200 is empty then any data input in the same row of AC and AD will be cleared.

As before, if any cell between X9:X1200 is empty, then any data if input in the same row of AE and AF will be cleared.

Can it done with the VBA? If, please .....

I upload an image to better understand my thoughts.

Thanks in advance

 

[mamun_ges]

Hi, Joe4

Thanks for your kind support.
I made some changes in my code and it works perfectly.

Thanks again.

 

[mamun_ges]

Hi, joe4
Can I ask something?

Can I change

For r = 9 To 1200

to something like only what I select from the range.
Then what should I do?
How to change

For r = 9 To 1200

to something

r=  Range(Selection.Address) (

Then It will not Loop through rows 9-1200

Thanks in advance

 

[Joe4]

Hi, joe4
Can I ask something?

Can I change

For r = 9 To 1200

to something like only what I select from the range.
Then what should I do?
How to change

For r = 9 To 1200

to something

r=  Range(Selection.Address) (

Then It will not Loop through rows 9-1200

Thanks in advance

If you have selected the range you want, BEING SURE TO ONLY SELECT ONE COLUMN, then you could do something like this:

Sub MyClearValues()

    Dim cell as Range
    Dim r As Long
   
    Application.ScreenUpdating = False
   
'   Loop through all rows selected in column
    For each cell in Selection
'       Get row number
        r = cell.Row
'       See if column W is empty
        If Cells(r, "W") = "" Then
'           Clear columns AC:AD
            Range(Cells(r, "AC"), Cells(r, "AD")).ClearContents
        End If
'       See if column X is empty
        If Cells(r, "X") = "" Then
'           Clear columns AC:AD
            Range(Cells(r, "AE"), Cells(r, "AF")).ClearContents
        End If
    Next r
   
    Application.ScreenUpdating = True
   
    MsgBox "Macro complete!", vbOKOnly
   
End Sub