PDA

View Full Version : Solved: cell activate



av8tordude
12-12-2011, 02:05 PM
I have this code that select the last cell empty in a column, but I only want to limit the range between B11:B250. Can someone assist. Thanks in advance.

Cells(Range("B250").End(xlUp).Row + 1, 2).Activate

GTO
12-12-2011, 09:02 PM
Maybe:


Sub example1()
Dim Cell As Range

With Range("B11:B250")
Set Cell = .Find("*", .Cells(1), xlValues, xlWhole, xlByColumns, xlPrevious)
If Not Cell Is Nothing Then
Cell.Offset(1).Select
Else
.Cells(1).Select
End If
End With
End Sub

Hope that helps,

Mark

av8tordude
12-13-2011, 03:31 AM
GTO...It works great. With sincere gratitude...Thank you :friends: