Entering a number via a macro

[jaypatel]

Hi,

I need a macro that says something like:

if cell g3= blank and then enter nothing in cell e3
if cell g4 is not blank then enter "4" in cell e4 etc

all the way through for rows 1-65536.

Basically if cell gx is blank then do nothing. if cell gx is not blank then enter the number 4 in ex (where x is the row number)

Jay

 

[Barrie Davidson]

Dim LastRow As Long

LastRow = Range("G65536").End(xlUp).Row
Range("G1:G" & LastRow).AutoFilter Field:=1, Criteria1:="<>"
Range("H1:H" & LastRow).SpecialCells(xlCellTypeVisible).Value = 4
Range("G1:G" & LastRow).AutoFilter

Best regards,

 

[Joe4]

Another macro:

Sub MyMacro()
    
    Dim cell As Range
    For Each cell In Range("G1:G65536")
        If Len(cell) > 0 Then cell.Offset(0, -2) = 4
    Next cell

End Sub