select next empty cell and go 2 cells right

[RAJESH1960]

I am able to select the next empty cell with the help of this VBA.
Range("F1").End(xlDown).Offset(1).Select
But I want to go to the second empty cell in row F1 and then move 1 cell right in the same row, i.e. G column.
What is the right code.?

 

[PureBluff]

Not sure why you're using .end(xlDown) - wasn't neccesary

Range("F1").Offset(2, 1).Select

(offset 2 positive rows, 1 positive column)

to step back wards, use negative offset values; so from from G3 to F1 you could use:

ActiveCell.Offset(-2, -1).Select

 

[RAJESH1960]

Not sure why you're using .end(xlDown) - wasn't neccesary

Range("F1").Offset(2, 1).Select

(offset 2 positive rows, 1 positive column)

to step back wards, use negative offset values; so from from G3 to F1 you could use:

ActiveCell.Offset(-2, -1).Select

G column has a lot of empty cells in the middle. But F column has empty cell in the end. Your code is selecting the empty cell in G3 where as it has to select G:141 as F:140 is the next empty cell.

 

[PureBluff]

Range("F1").End(xlDown).Offset(2, 1).Select

 

[RAJESH1960]

Range("F1").End(xlDown).Offset(2, 1).Select

Thanks PureBluff. It is working now.

 

[MARK858]

select G:141 as F:140 is the next empty cell

Are you in reality just trying to find the last cell in column G with data?

 

[RAJESH1960]

Are you in reality just trying to find the last cell in column G with data?

Yes Mark858

 

[MARK858]

Cells(Rows.count, "G").End(xlUp).Select

or

Columns("G").Find("*", , xlValues, , xlByRows, xlPrevious).Select

 

[RAJESH1960]

Cells(Rows.count, "G").End(xlUp).Select

or

Columns("G").Find("*", , xlValues, , xlByRows, xlPrevious).Select

Even that code works. Thanks Mark.

 

[MARK858]

Even that code works. Thanks Mark.

You're welcome