Вопрос : Значение cbo сочинительства к активно клетке

Здравствулте! случай okClick Experts

The пишет выбранное значение в cboEquipment на форме потребителя к активно клетке.  Это работает отлично для cboEquipment но форма потребителя имеет 2 combos.  Как я добавляю значение cboEmployees если то комбинированное выбрано вместо?  

Thanks class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:

class= cmdOK_Click " id= " codeSnippet942414 Private Sub () ActiveWorkbook.Sheets («DTS»). Активируйте Ряд («C15»). Отборно Сделайте Если IsEmpty (ActiveCell) = ложно после этого ActiveCell.Offset (1, 0). Отборно Закончитесь если Не закрепить петлеть до IsEmpty (ActiveCell) = True ActiveCell.Value = cboEquipment.Value Подводная лодка конца

class=

Ответ : Значение cbo сочинительства к активно клетке

Вы можете побежать Кодий для cboEmployees после петли

Приватное Sub cmdOK_Click ()
        ActiveWorkbook.Sheets («DTS»). Активируйте
        Ряд («C15»). Отборно
    Сделайте
Если IsEmpty (ActiveCell) = ложно после этого

        ActiveCell.Offset (1, 0). Отборно
Закончитесь если
Не закрепить петлеть до IsEmpty (ActiveCell) = True
   
        ActiveCell.Value = cboEquipment.Value

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

ActiveWorkbook.Sheets («DTS»). Активируйте
        Ряд («C16»). Отборно
    Сделайте
Если IsEmpty (ActiveCell) = ложно после этого

        ActiveCell.Offset (1, 0). Отборно
Закончитесь если
Не закрепить петлеть до IsEmpty (ActiveCell) = True
   
        ActiveCell.Value = cboEmployee.Value
           
Подводная лодка конца