go to end of ROW

[Guest]

hi,

I have the following:

Range("G6").Select
Range(Selection, Selection.End(xlToRight)).Select

The opnly problem is that G6 is empty, so when the command executes, it goes
to the very next cell to the right, instead of the true last cell to the last
where data has been entered.

How can I get it to go to the last cell to the right where data has been
entered?

Thanks in advance,
geebee

 

[PCLIVE]

Try this:

Range("IV6").End(xlToLeft).Select

HTH,
Paul

 

[Don Guillett]

try
range("g6").select ' You DONT need to do this. Just use

cells(6,columns.count).end(xltoleft).select

however, it is almost never necessary or desirable to SELECT.

 

[NickHK]

There's probably a better way, but what about thinking the otherway ; start
over to the right and come left.

Worksheets(1).Range("A4").Offset(0, 255).End(xlToLeft).Offset(0, 1).Select

NickHK

 

[Gary Keramidas]

maybe this

Sub test()
Dim lastcol As Long
lastcol = Cells(6, Columns.Count).End(xlToLeft).Column
Range(Cells(6, "g"), Cells(6, lastcol)).Select ' or use .copy iinstead of select

End Sub

 

[Guest]

Neither of these solutions will work for me. After the cell G6, there is
data entered for about 5 columns... Then there is a break ...and data starts
again in like 5 columns later. So I want to ignore the column happening 5
columns later and just go to the end of the row before the break.

HOW?

Thanks in advance,
geebee

 

[PCLIVE]

So you don't actually want to go to the end of the row. You want to go to
the next break?
Possibly something like this:

If Range("G6").Value = "" _
Then
Range("H6")..end(xlToRight).Select
Else:
Range("G6").end(xlToRight).Select
End If


Or if G6 is always blank, why not just use H6.

Range("H6").end(xlToRight).Select


Regards,
Paul

 

[Guest]

Neither of these solutions will work for me. After the cell G6, there is
data entered for about 5 columns... Then there is a break ...and data starts
again in like 5 columns later. So I want to ignore the column happening 5
columns later and just go to the end of the row before the break.

HOW?

Thanks in advance,
geebee

 

[Gary Keramidas]

post a more detailed description of what you are trying to do. give us the
cell addresses involved, which have data, which don't and what you want to
select.

 

[Stopher]

Do you want a continuous string of data with no breaks, asin start at
"G6" and then go across the right of the row, and remove the blanks as
I go to create a string or array of the values?

 

[Don Guillett]

Sub gotoblank()
Cells(6, "g").End(xlToRight).End(xlToRight).Select
End Sub

 

[Don Guillett]

Sub gotoblank()
Cells(4, 1).End(xlToRight).End(xlToRight).Select
End Sub