Set a Range to all of the first row
I'd like to do two things, set a range to all of row one
and set a second range to all of column A Please help with the correct code to use. currently I have Set rgeSearch1 = Application.Worksheets(Z).column(1) Set rgeSearch1 = Application.Worksheets(Z).rows(1) Thanks Best regards KM |
Set a Range to all of the first row
Try this Kevin
The worksheet tab is named Z Sub test() Dim rgeSearch1 As Range Dim rgeSearch2 As Range Set rgeSearch1 = ThisWorkbook.Worksheets("Z").Columns(1) Set rgeSearch2 = ThisWorkbook.Worksheets("Z").Rows(1) End Sub -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "Kevin McCartney" wrote in message ... I'd like to do two things, set a range to all of row one and set a second range to all of column A Please help with the correct code to use. currently I have Set rgeSearch1 = Application.Worksheets(Z).column(1) Set rgeSearch1 = Application.Worksheets(Z).rows(1) Thanks Best regards KM |
Set a Range to all of the first row
I assume you would like to use different variable names.
Dim rngSearchRow1 as Range Dim rngSearchColumn1 as Range Dim Z as Long Z = 1 set rgnSearchRow1 = workbooks("Book1.xls").Worksheets(Z).rows(1).Cells set rngSearchColumn1 = workbooks("Book1.xls").Worksheets(Z).Columns(1).Ce lls -- Regards, Tom Ogilvy "Kevin McCartney" wrote in message ... I'd like to do two things, set a range to all of row one and set a second range to all of column A Please help with the correct code to use. currently I have Set rgeSearch1 = Application.Worksheets(Z).column(1) Set rgeSearch1 = Application.Worksheets(Z).rows(1) Thanks Best regards KM |
Set a Range to all of the first row
Dim rngSearchRow1 as Range
Dim rngSearchColumn1 as Range should be Dim rgeSearchRow1 as Range Dim rgeSearchColumn1 as Range Dim Z as Long Z = 1 set rgeSearchRow1 = workbooks("Book1.xls").Worksheets(Z).rows(1).Cells set rgeSearchColumn1 = workbooks("Book1.xls").Worksheets(Z).Columns(1).Ce lls to be consistent with what you posted and to define the actual variables uses (my typo). if Z is the name of the worksheet and not a variable: Dim rgeSearchRow1 as Range Dim rgeSearchColumn1 as Range set rgeSearchRow1 = workbooks("Book1.xls").Worksheets("Z").rows(1).Cel ls set rgeSearchColumn1 = workbooks("Book1.xls").Worksheets("Z").Columns(1). Cells -- Regards, Tom Ogilvy "Tom Ogilvy" wrote in message ... I assume you would like to use different variable names. Dim rngSearchRow1 as Range Dim rngSearchColumn1 as Range Dim Z as Long Z = 1 set rgnSearchRow1 = workbooks("Book1.xls").Worksheets(Z).rows(1).Cells set rngSearchColumn1 = workbooks("Book1.xls").Worksheets(Z).Columns(1).Ce lls -- Regards, Tom Ogilvy "Kevin McCartney" wrote in message ... I'd like to do two things, set a range to all of row one and set a second range to all of column A Please help with the correct code to use. currently I have Set rgeSearch1 = Application.Worksheets(Z).column(1) Set rgeSearch1 = Application.Worksheets(Z).rows(1) Thanks Best regards KM |
Set a Range to all of the first row
Top bannana, cheers buddy
-----Original Message----- I assume you would like to use different variable names. Dim rngSearchRow1 as Range Dim rngSearchColumn1 as Range Dim Z as Long Z = 1 set rgnSearchRow1 = workbooks("Book1.xls").Worksheets (Z).rows(1).Cells set rngSearchColumn1 = workbooks("Book1.xls").Worksheets (Z).Columns(1).Cells -- Regards, Tom Ogilvy "Kevin McCartney" wrote in message ... I'd like to do two things, set a range to all of row one and set a second range to all of column A Please help with the correct code to use. currently I have Set rgeSearch1 = Application.Worksheets(Z).column(1) Set rgeSearch1 = Application.Worksheets(Z).rows(1) Thanks Best regards KM . |
Set a Range to all of the first row
It might behelpful to point out that either Set rng1 = Rows(1) or
Set rng2 = Rows(1).Cells will set the range to all of Row 1, as you can see from MsgBox rng1.Address & " " & rng2.Address But rng1 and rng2 will nevertheless be different, as you can see from MsgBox rng1(1).Address & " " & rng2(1).Address rng1 will be a collection of rows, rng2 a collection of cells. Alan Beban KM wrote: Top bannana, cheers buddy -----Original Message----- I assume you would like to use different variable names. Dim rngSearchRow1 as Range Dim rngSearchColumn1 as Range Dim Z as Long Z = 1 set rgnSearchRow1 = workbooks("Book1.xls").Worksheets (Z).rows(1).Cells set rngSearchColumn1 = workbooks("Book1.xls").Worksheets (Z).Columns(1).Cells -- Regards, Tom Ogilvy "Kevin McCartney" wrote in message ... I'd like to do two things, set a range to all of row one and set a second range to all of column A Please help with the correct code to use. currently I have Set rgeSearch1 = Application.Worksheets(Z).column(1) Set rgeSearch1 = Application.Worksheets(Z).rows(1) Thanks Best regards KM . |
All times are GMT +1. The time now is 05:08 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com