Vraag : Het schrijven cbowaarde aan actieve cel

Hello die schrijft de gebeurtenis/>The van Experts


Thanks
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
van 
Private 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
            
Sub van het eind

Antwoord : Het schrijven cbowaarde aan actieve cel

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
Andere oplossingen  
 
programming4us programming4us