Private Sub btnSaveChanges_Click()
Dim l As Long
Dim lRow As Long
Dim rngTarget As Range
lRow = ActiveWorkbook.Sheets("Active Equip").Range("A56635").End(xlUp).Row
For l = 4 To lRow
Set rngTarget = Sheets("Active Equip").Range("A" & l)
If UserForm2.tbxHospital.Value = rngTarget.Value Then
rngTarget.Offset(, 1).Value = UserForm2.cboTM.Value
rngTarget.Offset(, 2).Value = UserForm2.cboMHCP.Value
rngTarget.Offset(, 4).Value = UserForm2.cboPSQOutcome.Value
rngTarget.Offset(, 5).Value = UserForm2.tbxPSQScore.Value
rngTarget.Offset(, 6).Value = UserForm2.cboProgramme.Value
rngTarget.Offset(, 7).Value = UserForm2.cboReference.Value
rngTarget.Offset(, 8).Value = UserForm2.tbxInstallBase.Value
rngTarget.Offset(, 9).Value = UserForm2.tbxInstallBaseMDT.Value
rngTarget.Offset(, 11).Value = UserForm2.tbxNPNP.Value
rngTarget.Offset(, 12).Value = UserForm2.tbxIndustryInstallBase
rngTarget.Offset(, 15).Value = UserForm2.tbxTotalPumps.Value
If Not UserForm2.TextBoxMeeting.Value = "" Then
rngTarget.Offset(, 16).Value = DateValue(UserForm2.TextBoxMeeting.Value)
End If
rngTarget.Offset(, 17).Value = strNames()
If Not UserForm2.tbxCycle1.Value = "" Then
rngTarget.Offset(, 22).Value = DateValue(UserForm2.tbxCycle1.Value)
End If
If Not UserForm2.tbxCycle2.Value = "" Then
rngTarget.Offset(, 23).Value = DateValue(UserForm2.tbxCycle2.Value)
End If
If Not UserForm2.tbxCycle3.Value = "" Then
rngTarget.Offset(, 24).Value = DateValue(UserForm2.tbxCycle3.Value)
End If
If Not UserForm2.tbxPlannedExit.Value = "" Then
rngTarget.Offset(, 25).Value = DateValue(UserForm2.tbxPlannedExit.Value)
End If
rngTarget.Offset(, 27).Value = UserForm2.cboScheduleExit.Value
rngTarget.Offset(, 29).Value = UserForm2.tbxLeadContact.Value
rngTarget.Offset(, 30).Value = UserForm2.tbxLeadContactNo.Value
rngTarget.Offset(, 31).Value = UserForm2.tbxSecondaryContact.Value
rngTarget.Offset(, 32).Value = UserForm2.tbxSecondaryContactNo.Value
rngTarget.Offset(, 33).Value = UserForm2.tbxComments.Value
End If
Next l
Unload Me
End Sub
Bookmarks