Hi all,

just two quick questions, requiring two quick and simple answers.

I have searched the help file and tips and cannot get the answers I
need:

1) what code will allow me to select the row within which the active
cell is.

Eg. I have created a loop to find a certain text within a spreadsheet
and once I have found that text then the cell that the text is in
becomes the active cell. What code will select the row that the text
is in?

2) What are the best text books available for VBA programming. I am
just getting into it and would like a thorough and clear manual.

Please let me know if more infor on problem 1 is needed.

Many thanks,

Pedros.


--
Pedros
------------------------------------------------------------------------
Pedros's Profile: http://www.excelforum.com/member.php...o&userid=28202
View this thread: http://www.excelforum.com/showthread...hreadid=564567

1: Rows(ActiveCell.Row).select
2: Excel 2003 Power Programming with VB

--
Kaa
-----------------------------------------------------------------------
Kaak's Profile: http://www.excelforum.com/member.php...nfo&userid=751
View this thread: http://www.excelforum.com/showthread.php?threadid=56456

Thanks Kaak

Perfect.


--
Pedros
------------------------------------------------------------------------
Pedros's Profile: http://www.excelforum.com/member.php...o&userid=28202
View this thread: http://www.excelforum.com/showthread...hreadid=564567

Kaak, or anyone else that may be able to help......

further to my question above, is there a way to select the row
containing the active cell and all rows below that until there is a
value in the same column as the active cell?

for example, the code below colours all cells below the active cell
yellow until the next cell in the column contains a value. I want a
similar action but with row select.

Do While ActiveCell = ""
Selection.Interior.ColorIndex = 6
ActiveCell.Offset(1, 0).Activate
Loop

Note the active cell is in column B.


--
Pedros
------------------------------------------------------------------------
Pedros's Profile: http://www.excelforum.com/member.php...o&userid=28202
View this thread: http://www.excelforum.com/showthread...hreadid=564567

FirstRow = ActiveCell.Row
Do While ActiveCell = ""
Selection.Interior.ColorIndex = 6
ActiveCell.Offset(1, 0).Activate
Loop
LastRow = ActiveCell.Row
Rows(FirstRow & ":" & LastRow).select


--
Kaak
------------------------------------------------------------------------
Kaak's Profile: http://www.excelforum.com/member.php...fo&userid=7513
View this thread: http://www.excelforum.com/showthread...hreadid=564567

Thanks, Kaak.

I am getting very close to what I require now.

The only problem is that this selects the rows below until there is a
value in a cell in column A.

I need the Rows to be selected below until there is a value in column
B.