Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Recording simple Macro
I have a workbook with different sheets
I fill in data on the balance sheet copy cheques data into sheet2, a list of all cheques & copy invoice data into sheet3, a list of all invoices I have recorded a macro and assigned it to a new button for each of these tasks The only problem is, after pasting the data into sheet 2 or 3 I need to move down to select the next empty cell before finishing so that it is set up ready for the next use of the macro. Recording the macro does this fine the first time but as it specifies the actual cell selected it always returns to the same cell, hence it will only paste into the first two cells. I would like it to move down one cell from which ever cell is selected without specifying the location can anyone tell me how to do this or how to edit my original macro Sub ChequesOut() ' ' ChequesOut Macro ' Macro recorded 14/07/2005 by D L ' ' Selection.Copy Sheets("Cheques").Select ActiveSheet.Paste Application.CutCopyMode = False With Selection.Font .Name = "Arial" .FontStyle = "Regular" .Size = 8 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("D4").Select (THIS IS THE PROBLEM) Sheets("Spreadsheet").Select With Selection.Font .Name = "Arial" .FontStyle = "Regular" .Size = 8 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 43 End With End Sub Thanks to anyone who may endevour to help Dave |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Recording simple Macro
Change
Range("D4").Select to Range("D65536").End(xlUp).Offset(1,0).Select -- HTH... Jim Thomlinson "Dave" wrote: I have a workbook with different sheets I fill in data on the balance sheet copy cheques data into sheet2, a list of all cheques & copy invoice data into sheet3, a list of all invoices I have recorded a macro and assigned it to a new button for each of these tasks The only problem is, after pasting the data into sheet 2 or 3 I need to move down to select the next empty cell before finishing so that it is set up ready for the next use of the macro. Recording the macro does this fine the first time but as it specifies the actual cell selected it always returns to the same cell, hence it will only paste into the first two cells. I would like it to move down one cell from which ever cell is selected without specifying the location can anyone tell me how to do this or how to edit my original macro Sub ChequesOut() ' ' ChequesOut Macro ' Macro recorded 14/07/2005 by D L ' ' Selection.Copy Sheets("Cheques").Select ActiveSheet.Paste Application.CutCopyMode = False With Selection.Font .Name = "Arial" .FontStyle = "Regular" .Size = 8 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("D4").Select (THIS IS THE PROBLEM) Sheets("Spreadsheet").Select With Selection.Font .Name = "Arial" .FontStyle = "Regular" .Size = 8 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 43 End With End Sub Thanks to anyone who may endevour to help Dave |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Recording simple Macro
Thanks for your time and help
Dave "Jim Thomlinson" wrote in message ... Change Range("D4").Select to Range("D65536").End(xlUp).Offset(1,0).Select -- HTH... Jim Thomlinson "Dave" wrote: I have a workbook with different sheets I fill in data on the balance sheet copy cheques data into sheet2, a list of all cheques & copy invoice data into sheet3, a list of all invoices I have recorded a macro and assigned it to a new button for each of these tasks The only problem is, after pasting the data into sheet 2 or 3 I need to move down to select the next empty cell before finishing so that it is set up ready for the next use of the macro. Recording the macro does this fine the first time but as it specifies the actual cell selected it always returns to the same cell, hence it will only paste into the first two cells. I would like it to move down one cell from which ever cell is selected without specifying the location can anyone tell me how to do this or how to edit my original macro Sub ChequesOut() ' ' ChequesOut Macro ' Macro recorded 14/07/2005 by D L ' ' Selection.Copy Sheets("Cheques").Select ActiveSheet.Paste Application.CutCopyMode = False With Selection.Font .Name = "Arial" .FontStyle = "Regular" .Size = 8 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("D4").Select (THIS IS THE PROBLEM) Sheets("Spreadsheet").Select With Selection.Font .Name = "Arial" .FontStyle = "Regular" .Size = 8 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 43 End With End Sub Thanks to anyone who may endevour to help Dave |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
My excel macro recorder no longer shows up when recording macro | Excel Discussion (Misc queries) | |||
My excel macro recorder no longer shows up when recording macro | Excel Discussion (Misc queries) | |||
Recording simple macro | Excel Worksheet Functions | |||
Recording simple macro | Setting up and Configuration of Excel | |||
Macro recording | Excel Programming |