Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Need help - Macro to copy a specific range
Hello everybody,
I have a macro to copy a range of cells (A2:AB100) from sheet1 and paste it to another file as values. Set sourceRange = ThisWorkbook.Worksheets("Sheet1").Range("A2:AB100" ) I would like to insert one more code so as it should copy only todays data; If B2 = todays date then the range of cells to copy should be (A2:AB2) If B3 = todays date then the range of cells to copy should be (A3:AB3) If both B2 and B3 = todays date then the range of cells to copy should be (A2:AB3) If all the cells from B2 to B100 = todays date then the range of cells to copy should be (A2:AB100) Any help is greatly appreciated. Thanks & Regards Dileep Chandran |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Need help - Macro to copy a specific range
Hi
Dim nrows as long nrows=Application.Countif(Range("B2:B100"),Date) Set sourceRange = ThisWorkbook.Worksheets("Sheet1").Range("A2:AB" & nrows) -- Regards Roger Govier "Dileep Chandran" wrote in message oups.com... Hello everybody, I have a macro to copy a range of cells (A2:AB100) from sheet1 and paste it to another file as values. Set sourceRange = ThisWorkbook.Worksheets("Sheet1").Range("A2:AB100" ) I would like to insert one more code so as it should copy only todays data; If B2 = todays date then the range of cells to copy should be (A2:AB2) If B3 = todays date then the range of cells to copy should be (A3:AB3) If both B2 and B3 = todays date then the range of cells to copy should be (A2:AB3) If all the cells from B2 to B100 = todays date then the range of cells to copy should be (A2:AB100) Any help is greatly appreciated. Thanks & Regards Dileep Chandran |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Need help - Macro to copy a specific range
Thanks Roger, Instead of "Date", is it possible to give "Today()" ? -Dileep |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Need help - Macro to copy a specific range
Date is VBA speak for TODAY()
-- --- HTH Bob (change the xxxx to gmail if mailing direct) "Dileep Chandran" wrote in message ups.com... Thanks Roger, Instead of "Date", is it possible to give "Today()" ? -Dileep |
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Need help - Macro to copy a specific range
Thanks Bob!!!
|
#6
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Need help - Macro to copy a specific range
Ok, Thats good. Before copying this specified range is it possible to
unhide all rows and columns in Sheet1? -Dileep |
#7
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Need help - Macro to copy a specific range
Hi Dileep
Cells.Select Selection.EntireRow.Hidden = False Selection.EntireColumn.Hidden = False -- Regards Roger Govier "Dileep Chandran" wrote in message oups.com... Ok, Thats good. Before copying this specified range is it possible to unhide all rows and columns in Sheet1? -Dileep |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Count Specific word in specific range | Excel Worksheet Functions | |||
Count If Specific word in specific range | Excel Discussion (Misc queries) | |||
MACRO TO COPY TO A RANGE | Excel Discussion (Misc queries) | |||
checking that cells have a value before the workbook will close | Excel Worksheet Functions | |||
Highlight Range - wrong macro, please edit. | Excel Worksheet Functions |