Hi All,
I have created the userform using VBA too add the data and i am able to add the data as per the requirement, However even after spending two days i am not able to apply the formula to edit the data. can anyone please help to resolve this.
i am sharing the codes which i have used to add the data in userform, i am not sure if i can share the excel psreadheet here in this website, kindly help on this
rivate Sub CommandButton12_Click()
MsgBox "Continue to Save", 0, "Message"
Dim target As Integer
TargetRow = Sheets("Engine").Range("B3").Value + 1
Sheets("Data").Range("Data_start").Offset(TargetRow).Value = txt_task
Sheets("Data").Range("Data_start").Offset(TargetRow, 1).Value = txt_date
Sheets("Data").Range("Data_start").Offset(TargetRow, 2).Value = Combo_proccess
Sheets("Data").Range("Data_start").Offset(TargetRow, 3).Value = Combo_qc
Sheets("Data").Range("Data_start").Offset(TargetRow, 4).Value = Combo_fail
Sheets("Data").Range("Data_start").Offset(TargetRow, 5).Value = Combo_type
Sheets("Data").Range("Data_start").Offset(TargetRow, 6).Value = Combo_team
Sheets("Data").Range("Data_start").Offset(TargetRow, 7).Value = Combo_reason
Sheets("Data").Range("Data_start").Offset(TargetRow, 8).Value = txt_comm
Sheets("Data").Range("Data_start").Offset(TargetRow, 9).Value = txt_just
Unload Input_data
End Sub
I have created the userform using VBA too add the data and i am able to add the data as per the requirement, However even after spending two days i am not able to apply the formula to edit the data. can anyone please help to resolve this.
i am sharing the codes which i have used to add the data in userform, i am not sure if i can share the excel psreadheet here in this website, kindly help on this
rivate Sub CommandButton12_Click()
MsgBox "Continue to Save", 0, "Message"
Dim target As Integer
TargetRow = Sheets("Engine").Range("B3").Value + 1
Sheets("Data").Range("Data_start").Offset(TargetRow).Value = txt_task
Sheets("Data").Range("Data_start").Offset(TargetRow, 1).Value = txt_date
Sheets("Data").Range("Data_start").Offset(TargetRow, 2).Value = Combo_proccess
Sheets("Data").Range("Data_start").Offset(TargetRow, 3).Value = Combo_qc
Sheets("Data").Range("Data_start").Offset(TargetRow, 4).Value = Combo_fail
Sheets("Data").Range("Data_start").Offset(TargetRow, 5).Value = Combo_type
Sheets("Data").Range("Data_start").Offset(TargetRow, 6).Value = Combo_team
Sheets("Data").Range("Data_start").Offset(TargetRow, 7).Value = Combo_reason
Sheets("Data").Range("Data_start").Offset(TargetRow, 8).Value = txt_comm
Sheets("Data").Range("Data_start").Offset(TargetRow, 9).Value = txt_just
Unload Input_data
End Sub