With help from this forum I have been able to come up with a macro to help update spreadsheets. I am now trying to use option buttons to have it color the background of the 8 cells in questions below is what I have come up with so far. I was thinking of a if then statement between the options but have been struggling. Any help would be great.
Code:
Private Sub ComboCentrifuge_Click()
Me.TextFeatures.Value = Sheets("Centrifuge").Range("B" & ComboCentrifuge.ListIndex + 17)
Me.ComboBoxRig.Value = Sheets("Centrifuge").Range("C" & ComboCentrifuge.ListIndex + 17)
Me.TextRigNum.Value = Sheets("Centrifuge").Range("E" & ComboCentrifuge.ListIndex + 17)
Me.ComboBoxOper.Value = Sheets("Centrifuge").Range("F" & ComboCentrifuge.ListIndex + 17)
Me.TextBoxArea.Value = Sheets("Centrifuge").Range("G" & ComboCentrifuge.ListIndex + 17)
Me.TextBoxRR.Value = Sheets("Centrifuge").Range("H" & ComboCentrifuge.ListIndex + 17)
Me.TextBoxStatus.Value = Sheets("Centrifuge").Range("I" & ComboCentrifuge.ListIndex + 17)
End Sub
Private Sub CommandClose_Click()
Worksheets("Centrifuge").Range("B" & ComboCentrifuge.ListIndex + 17) = TextFeatures.Value
Worksheets("Centrifuge").Range("C" & ComboCentrifuge.ListIndex + 17) = ComboBoxRig.Value
Worksheets("Centrifuge").Range("E" & ComboCentrifuge.ListIndex + 17) = TextRigNum.Value
Worksheets("Centrifuge").Range("F" & ComboCentrifuge.ListIndex + 17) = ComboBoxOper.Value
Worksheets("Centrifuge").Range("G" & ComboCentrifuge.ListIndex + 17) = TextBoxArea.Value
Worksheets("Centrifuge").Range("H" & ComboCentrifuge.ListIndex + 17) = TextBoxRR.Value
Worksheets("Centrifuge").Range("I" & ComboCentrifuge.ListIndex + 17) = TextBoxStatus.Value
Unload Me
End Sub
Private Sub OptionButtonBonneyville_Click()
End Sub
Private Sub OptionButtonEstevan_Click()
End Sub
Private Sub OptionButtonFtNelson_Click()
End Sub
Private Sub OptionButtonGP_Click()
End Sub
Private Sub OptionButtonLeduc_Click()
End Sub
Private Sub UserForm_Initialize()
For Each c In Worksheets("Centrifuge").Range("A17", Range("A65000").End(xlUp))
Me.ComboCentrifuge.AddItem c.Value
Next c
End Sub
Last edited by a moderator: