Selecting Variable Row Range w/Macro
I currently need to change the following so that I can
select a variable amount of rows, rather than 1 column. I am sure that it has to do with the str_column, but can not figure out how! this is the script I am presently working with: Const target_wb = "VCS Merge Data WORKBOOK.xls" Dim str_column Dim file_name Dim source_wb Dim str_search As String Dim str_replace As String file_name = Application.GetOpenFilename Workbooks.Open Filename:=CStr(file_name) source_wb = ActiveWindow.Caption str_column = InputBox("Enter your column to copy") str_column = str_column & ":" & str_column |
Selecting Variable Row Range w/Macro
Hi Steve
You can use this in your code Sub test() Dim mycell As Range Set mycell = Application.InputBox( _ prompt:="Select a range", Type:=8) ' mycell.Copy Sheets("Sheet2").Range("A1") End Sub -- Regards Ron de Bruin (Win XP Pro SP-1 XL2000-2003) www.rondebruin.nl "steve" wrote in message ... I currently need to change the following so that I can select a variable amount of rows, rather than 1 column. I am sure that it has to do with the str_column, but can not figure out how! this is the script I am presently working with: Const target_wb = "VCS Merge Data WORKBOOK.xls" Dim str_column Dim file_name Dim source_wb Dim str_search As String Dim str_replace As String file_name = Application.GetOpenFilename Workbooks.Open Filename:=CStr(file_name) source_wb = ActiveWindow.Caption str_column = InputBox("Enter your column to copy") str_column = str_column & ":" & str_column |
Selecting Variable Row Range w/Macro
Steve,
Untested. Const target_wb = "VCS Merge Data WORKBOOK.xls" Dim str_column Dim file_name Dim source_wb Dim str_search As String Dim str_replace As String file_name = Application.GetOpenFilename Workbooks.Open Filename:=CStr(file_name) source_wb = ActiveWindow.Caption str_column = InputBox("Enter your column to copy") Cells(1,str_column).Resize(Cells(Rows.Count,str_co lumn).End(xlUp).Row).Selec t -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "steve" wrote in message ... I currently need to change the following so that I can select a variable amount of rows, rather than 1 column. I am sure that it has to do with the str_column, but can not figure out how! this is the script I am presently working with: Const target_wb = "VCS Merge Data WORKBOOK.xls" Dim str_column Dim file_name Dim source_wb Dim str_search As String Dim str_replace As String file_name = Application.GetOpenFilename Workbooks.Open Filename:=CStr(file_name) source_wb = ActiveWindow.Caption str_column = InputBox("Enter your column to copy") str_column = str_column & ":" & str_column |
Selecting Variable Row Range w/Macro
Take a look at the InputBox method of the Application
object using Type 8 in the help file. That might be better for what you're trying to do. -Brad -----Original Message----- I currently need to change the following so that I can select a variable amount of rows, rather than 1 column. I am sure that it has to do with the str_column, but can not figure out how! this is the script I am presently working with: Const target_wb = "VCS Merge Data WORKBOOK.xls" Dim str_column Dim file_name Dim source_wb Dim str_search As String Dim str_replace As String file_name = Application.GetOpenFilename Workbooks.Open Filename:=CStr(file_name) source_wb = ActiveWindow.Caption str_column = InputBox("Enter your column to copy") str_column = str_column & ":" & str_column . |
All times are GMT +1. The time now is 07:50 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com