B4L4KS
Board Regular
- Joined
- Mar 7, 2011
- Messages
- 69
hi
i have been asked to create a spreadsheet for a pizza company that involves being able to add a new customer via a macro, this will include a name and address, this will have to be assigned to a macro and will add a new line for a new customer to be added below.
so basically my question is, how can i cut information from one worksheet and place it into another using the next available row.
thanks in advance,
kristian
i have been asked to create a spreadsheet for a pizza company that involves being able to add a new customer via a macro, this will include a name and address, this will have to be assigned to a macro and will add a new line for a new customer to be added below.
Code:
Sub adddetails()
'
' adddetails Macro
'
'
Range("Q12:R12").Select
Selection.Copy
Sheets("Customer Details").Select
Range("G22:H22").Select
ActiveSheet.Paste
Sheets("Home Page").Select
Range("Q13:R13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Customer Details").Select
Range("I22:J22").Select
ActiveSheet.Paste
Sheets("Home Page").Select
Range("Q17:R17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Customer Details").Select
Range("M22:N22").Select
ActiveSheet.Paste
Sheets("Home Page").Select
Range("Q18:R18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Customer Details").Select
Range("O22:P22").Select
ActiveSheet.Paste
Sheets("Home Page").Select
Range("Q19:R19").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Customer Details").Select
Range("Q22:R22").Select
ActiveSheet.Paste
Sheets("Home Page").Select
Range("Q20:R20").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Customer Details").Select
Range("S22:T22").Select
ActiveSheet.Paste
End Sub
so basically my question is, how can i cut information from one worksheet and place it into another using the next available row.
thanks in advance,
kristian