kbj-engineer
New member
- Local time
- Today, 04:49
- Joined
- Aug 31, 2023
- Messages
- 3
Hi,
I am trying to build a workbook where operators will enter finished good numbers and time they were completed. At the end of the shift, I want to create 2 buttons that will automatically copy and paste this info into two other worksheets (command button for each)
- I want the "Transfer Build Groups" button to copy and paste A1:An (however long list is) to the MasterList file. This list will be populated each day, so it needs to find the last row and paste there each time
- I want the "Transfer Takt times" button to copy and paste data into the TAKT Data tab. This will also need to find the last row and paste columns A1:Cn on that tab.
- Lastly, I want the "Clear List" button to remove all the info in A2:Cn and only have column headers left.
This is the code I have so far, but I keep getting the error "
Private Sub CommandButton3_Click() - "Transfer Build groups" command
End Sub
Private Sub CommandButton4_Click() "Transfer TAKT Time" command
Range("A1:A50").Select
Selection.Copy
Sheets("Master List").Select
Sub CurrentRegion()
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
rg.Select
Dim lastrow As Long
lastrow = rg.Rows(rg.Rows.Count).Row
ActiveSheet.Paste
End Sub
Private Sub CommandButton5_Click()
End Sub
I am trying to build a workbook where operators will enter finished good numbers and time they were completed. At the end of the shift, I want to create 2 buttons that will automatically copy and paste this info into two other worksheets (command button for each)
- I want the "Transfer Build Groups" button to copy and paste A1:An (however long list is) to the MasterList file. This list will be populated each day, so it needs to find the last row and paste there each time
- I want the "Transfer Takt times" button to copy and paste data into the TAKT Data tab. This will also need to find the last row and paste columns A1:Cn on that tab.
- Lastly, I want the "Clear List" button to remove all the info in A2:Cn and only have column headers left.
This is the code I have so far, but I keep getting the error "
Private Sub CommandButton3_Click() - "Transfer Build groups" command
End Sub
Private Sub CommandButton4_Click() "Transfer TAKT Time" command
Range("A1:A50").Select
Selection.Copy
Sheets("Master List").Select
Sub CurrentRegion()
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
rg.Select
Dim lastrow As Long
lastrow = rg.Rows(rg.Rows.Count).Row
ActiveSheet.Paste
End Sub
Private Sub CommandButton5_Click()
End Sub