• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 303
  • Last Modified:

Writing cbo value to active cell

Hello Experts

The okClick event writes the value selected in cboEquipment on user form to the active cell.  This works fine for the cboEquipment  but the user form has two combos.  How do I add cboEmployees value if that combo is selected instead ?  

Thanks
Private Sub cmdOK_Click()
        ActiveWorkbook.Sheets("DTS").Activate
        Range("C15").Select
    Do
If IsEmpty(ActiveCell) = False Then

        ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
    
        ActiveCell.Value = cboEquipment.Value
            
End Sub

Open in new window

0
zpotok
Asked:
zpotok
1 Solution
 
SheilsCommented:
You can run the code for the cboEmployees after the loop

Private Sub cmdOK_Click()
        ActiveWorkbook.Sheets("DTS").Activate
        Range("C15").Select
    Do
If IsEmpty(ActiveCell) = False Then

        ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
   
        ActiveCell.Value = cboEquipment.Value

'-----------------------------------------------

ActiveWorkbook.Sheets("DTS").Activate
        Range("C16").Select
    Do
If IsEmpty(ActiveCell) = False Then

        ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
   
        ActiveCell.Value = cboEmployee.Value
           
End Sub
0
 
zpotokAuthor Commented:

simple enough....  thanks
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now