UserForm help

[jphina]

Hey All,

I'm currently trying out userForms for the first time and I'm lacking knowledge as to how to have when I double click on a cell in range("D5:D26") for:

• open the form and allow the user to select from the 3 choices
• on choice "On" for it to turn the cell double-clicked green and leave the corresponding cell in E & F blank
• on choice "Off" for it to turn the cell double-clicked red and for the corresponding cell in E & F to say closed
• on choice "Intermittent" for it to turn the cell double-clicked orange and leave the corresponding cell in E & F blank

Probably a simple task, but I'm a bit confused on what the worksheet code or userform code should read. Any help would be greatly appreciated!

 

[dmt32]

Hi,
try following & see if helps

Place following in your userforms code page

Private Sub IntermittentButton_Click()
    With ActiveCell
        .Interior.Color = rgbOrange
        .Offset(, 1).Resize(, 2).Value = ""
    End With
End Sub

Private Sub OffButton_Click()
    With ActiveCell
        .Interior.Color = rgbRed
        .Offset(, 1).Resize(, 2).Value = "Closed"
    End With
End Sub

Private Sub OnButton_Click()
    With ActiveCell
        .Interior.Color = rgbGreen
        .Offset(, 1).Resize(, 2).Value = ""
    End With
End Sub

Place following in your WORKSHEETS code page

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("D5:D26")) Is Nothing Then UserForm1.Show
End Sub

Change the names of Userform & commandbuttons as required to meet your specific project need.

If new to userforms then suggest visit site like this: How to Create Excel UserForm for Data Entry
for some free very helpful guidance

Dave

 

[jphina]

Hi,
try following & see if helps

Place following in your userforms code page

Private Sub IntermittentButton_Click()
    With ActiveCell
        .Interior.Color = rgbOrange
        .Offset(, 1).Resize(, 2).Value = ""
    End With
End Sub

Private Sub OffButton_Click()
    With ActiveCell
        .Interior.Color = rgbRed
        .Offset(, 1).Resize(, 2).Value = "Closed"
    End With
End Sub

Private Sub OnButton_Click()
    With ActiveCell
        .Interior.Color = rgbGreen
        .Offset(, 1).Resize(, 2).Value = ""
    End With
End Sub

Place following in your WORKSHEETS code page

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("D5:D26")) Is Nothing Then UserForm1.Show
End Sub

Change the names of Userform & commandbuttons as required to meet your specific project need.

If new to userforms then suggest visit site like this: How to Create Excel UserForm for Data Entry
for some free very helpful guidance

Dave

Thank you Dave! Worked perfect

 

[dmt32]

Thank you Dave! Worked perfect

most welcome - appreciate the feedback

Dave