Ok, I'm back at it with another copy and paste question. In this sub I have a cell I click on(customer name) and it begins copy and pasting information from one sheet to another. However I'm not even able to compile this code. I have a feeling the ActiveCell is causing the problem. Any ideas?
Code:
Dim jobTracking As Worksheet
Dim resApp As Worksheet
Set resApp = Worksheets("residential_applications")
Set jobTracking = Worksheets("residential_job_tracking")
jobTracking.Range("C1").End(xlDown).Offset(0, 1).Value = resApp.ActiveCell.Value
'acct
jobTracking.Range("C1").End(xlDown).Offset(-1, 1).Value = resApp.ActiveCell.Offset(-1, 0).Value
'address
jobTracking.Range("C1").End(xlDown).Offset(1, 1).Value = resApp.ActiveCell.Offset(3, 0).Value
'city
jobTracking.Range("C1").End(xlDown).Offset(2, 1).Value = resApp.ActiveCell.Offset(4, 0).Value
'zip
jobTracking.Range("C1").End(xlDown).Offset(3, 1).Value = resApp.ActiveCell.Offset(5, 0).Value
'app received date
jobTracking.Range("C1").End(xlDown).Offset(8, 1).Value = resApp.ActiveCell.Offset(-2, 0).Value
'phone
jobTracking.Range("C1").End(xlDown).Offset(12, 1).Value = resApp.ActiveCell.Offset(2, 0).Value
'em
jobTracking.Range("C1").End(xlDown).Offset(13, 1).Value = resApp.ActiveCell.Offset(1, 0).Value
Last edited: