Desertbird
New Member
- Joined
- Jul 21, 2021
- Messages
- 16
- Office Version
- 2016
- Platform
- Windows
- Mobile
Hello,
I'm using the below code for a userform that adds items to a dataset. However it is not adding a new row and instead is replacing the row. I tried putting this together based off of the below youtube video, but I'm not sure what I'm doing wrong and why it's not working. Any advice would be helpful at this point, thank you!
Private Sub CommandButton1_Click()
Dim TargetRow As Integer
TargetRow = Sheets("Engine").Range("B5").Value
Sheets("data").Range("DataStart").Offset(TargetRow, 1).Value = SupName
Sheets("data").Range("DataStart").Offset(TargetRow, 2).Value = AgentName
Sheets("data").Range("DataStart").Offset(TargetRow, 3).Value = Dates
Sheets("data").Range("DataStart").Offset(TargetRow, 4).Value = Reason
Sheets("data").Range("DataStart").Offset(TargetRow, 5).Value = Types
Sheets("data").Range("DataStart").Offset(TargetRow, 6).Value = Method
Sheets("data").Range("DataStart").Offset(TargetRow, 7).Value = Discussion
Sheets("data").Range("DataStart").Offset(TargetRow, 8).Value = Followup
Unload DLOGDASHBOARD
End Sub
I'm using the below code for a userform that adds items to a dataset. However it is not adding a new row and instead is replacing the row. I tried putting this together based off of the below youtube video, but I'm not sure what I'm doing wrong and why it's not working. Any advice would be helpful at this point, thank you!
Private Sub CommandButton1_Click()
Dim TargetRow As Integer
TargetRow = Sheets("Engine").Range("B5").Value
Sheets("data").Range("DataStart").Offset(TargetRow, 1).Value = SupName
Sheets("data").Range("DataStart").Offset(TargetRow, 2).Value = AgentName
Sheets("data").Range("DataStart").Offset(TargetRow, 3).Value = Dates
Sheets("data").Range("DataStart").Offset(TargetRow, 4).Value = Reason
Sheets("data").Range("DataStart").Offset(TargetRow, 5).Value = Types
Sheets("data").Range("DataStart").Offset(TargetRow, 6).Value = Method
Sheets("data").Range("DataStart").Offset(TargetRow, 7).Value = Discussion
Sheets("data").Range("DataStart").Offset(TargetRow, 8).Value = Followup
Unload DLOGDASHBOARD
End Sub