U kunt de code voor cboEmployees na de lijn in werking stellen
Privé SubcmdOK_Click ()
ActiveWorkbook.Sheets („DTS“). Activeer
Waaier („C15“). Selecteer
Als IsEmpty (ActiveCell) = Vals toen
ActiveCell.Offset (1, 0). Selecteer
Beëindig als
Lijn tot IsEmpty (ActiveCell) = Waar
ActiveCell.Value = cboEquipment.Value
'
ActiveWorkbook.Sheets („DTS“). Activeer
Waaier („C16“). Selecteer
Als IsEmpty (ActiveCell) = Vals toen
ActiveCell.Offset (1, 0). Selecteer
Beëindig als
Lijn tot IsEmpty (ActiveCell) = Waar
ActiveCell.Value = cboEmployee.Value
Sub van het eind