Questione : Valore di cbo di scrittura alla cellula attiva

Ciao l'evento del okClick di Experts

The scrive il valore selezionato in cboEquipment sulla forma dell'utente alla cellula attiva.  Ciò funziona benissimo per il cboEquipment ma la forma dell'utente ha due combos.  Come aggiungo il valore di cboEmployees se quel combinato è selezionato preferibilmente?  

Thanks class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
class= cmdOK_Click secondario " del id= " codeSnippet942414 del 
Private " notpretty " ()
        ActiveWorkbook.Sheets (“DTS„). Attivano
        Gamma (“C15„). Prescelto
    Fare
Se IsEmpty (ActiveCell) = falso allora

        ActiveCell.Offset (1, 0). Prescelto
Concluder se
Collegare fino a IsEmpty (ActiveCell) = allineano
    
        ActiveCell.Value = cboEquipment.Value
            
Sommergibile dell'estremità
class= del

Risposta : Valore di cbo di scrittura alla cellula attiva

Potete fare funzionare il codice per i cboEmployees dopo il ciclo

cmdOK_Click secondario riservato ()
        ActiveWorkbook.Sheets (“DTS„). Attivano
        Gamma (“C15„). Prescelto
    Fare
Se IsEmpty (ActiveCell) = falso allora

        ActiveCell.Offset (1, 0). Prescelto
Concluder se
Collegare fino a IsEmpty (ActiveCell) = allineano
   
        ActiveCell.Value = cboEquipment.Value

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

ActiveWorkbook.Sheets (“DTS„). Attivare
        Gamma (“C16„). Prescelto
    Fare
Se IsEmpty (ActiveCell) = falso allora

        ActiveCell.Offset (1, 0). Prescelto
Concluder se
Collegare fino a IsEmpty (ActiveCell) = allineano
   
        ActiveCell.Value = cboEmployee.Value
           
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us