Change cell value along row

[alexg7828]

Hi,

I am looking for a VBA that when i press ctrl+shift+N certain cell values on that row change if they are empty.

For example..

- I have "B4" selected
- I press ctrl+shift+N
- If "D4" is empty then make value "N/A" else skip
- If "G4" is empty then make value "No" else skip

I guess i need to set the row of the current selected cell as a variable then it is just an "IF" for each of the queries i want.

Help appreciated.

 

[JackDanIce]

If this works, you can try adding a shortcut to it of CTRL+SHIFT+N:

Sub alexg7828()
    
    With Cells(4, 2).Resize(Application.Max(1, Cells(Rows.Count, 2).End(xlUp).Row - 3))
        .Offset(, 2).SpecialCells(xlCellTypeBlanks).Value = "N/A"
        .Offset(, 5).SpecialCells(xlCellTypeBlanks).Value = "No"
    End With
   
End Sub