-
Articoli
-
trump61Select Case var2
Case Is = "Battistini"
UserForm1.ComboBox4.Clear
For AA = 1 To 2
UserForm1.ComboBox4.AddItem Choose(AA, alfa, beta)
Next
If UserForm1.ComboBox4.Text = "Dev.1AB-2AB-3AB-4AB" Then
UserForm1.TextBox3 = "GR1"
Else
UserForm1.TextBox3 = "GR3"
End If
trump61scusate non mi ritrovo con il nuovo Look, Volevo chiedere perche in textbox3 mi ritrovo solo GR3?
Ciao
Dico sempre che è meglio allegare un file.
Comunque, da quello che hai scritto, posso immaginare che la Combo
UserForm1.ComboBox4.Text
NON CONTIENE ESATTAMENTE
“Dev.1AB-2AB-3AB-4AB”
Ciao,
Mario
L'oggetto del messaggio deve riflettere il problema e non essere un saluto o altro, leggi il regolamento
trump61Ciao scusa il ritardo ma purtroppo ho avuto dei problemi inderogabili. mettere tutto il file è improponibile è enorme, quando l'ho fatto qualcuno di voi mi ha giustamente detto che era improponibile. come puoi vedere dalla parte di listato che ho inserito:
Case Is = “Battistini”
UserForm1.ComboBox4.Clear
For AA = 1 To 2
UserForm1.ComboBox4.AddItem Choose(AA, alfa, beta)la variabile alfa sarebbe “Dev.1AB-2AB-3AB-4AB”. la beta corrisponde ad un altro valore. utilizzando
: If UserForm1.ComboBox4.Text = alfa Then
UserForm1.TextBox3 = “GR1”
Else
UserForm1.TextBox3 = “GR3”
End Ifil risultato non cambia, e questo mi sembra strano.
Questo è il codice completo di questa parte di file:
Private Sub ComboBox3_Change()
Dim alfa, beta, delta, lambda, teta, omega, gamma, rho, fi, zeta, AA, BB, CC, DD, EE, FF, GG, HH
Dim var2
alfa = "Dev.1AB-2AB-3AB-4AB"
beta = "Dev.5AB-6AB-7AB"
delta = "Dev.1AB-2AB-3AB"
lambda = "Dev.4AB-5AB"
teta = "Dev.11AB-12AB"
omega = "Dev.1AB-3AB"
gamma = "Dev.12AB"
rho = "Dev.1AB-2AB-4AB"
fi = "Svincolo_Dev.7AB-8AB-10AB"
zeta = "Svincolo_Dev.5AB-6AB-9AB"
var2 = UserForm1.ComboBox3.Text
Select Case var2
Case Is = "Battistini"
UserForm1.ComboBox4.Clear
For AA = 1 To 2
UserForm1.ComboBox4.AddItem Choose(AA, alfa, beta)
If AA = alfa Then
TextBox3 = GR1
Else
TextBox3 = GR3
End IfNext
Case Is = "Ottaviano"
UserForm1.ComboBox4.Clear
For BB = 1 To 2
UserForm1.ComboBox4.AddItem Choose(BB, delta, lambda)
Next
Case Is = "Lepanto"
UserForm1.ComboBox4.Clear
For CC = 1 To 1
UserForm1.ComboBox4.AddItem Choose(CC, teta)
Next
Case Is = "Termini"
UserForm1.ComboBox4.Clear
For DD = 1 To 1
UserForm1.ComboBox4.AddItem Choose(DD, delta)
Next
Case Is = "S.Giovanni"
UserForm1.ComboBox4.Clear
For EE = 1 To 1
UserForm1.ComboBox4.AddItem Choose(EE, omega)
Next
Case Is = "Arco_di_Travertino"
UserForm1.ComboBox4.Clear
For FF = 1 To 1
UserForm1.ComboBox4.AddItem Choose(FF, delta)
Next
Case Is = "Cinecitta"
UserForm1.ComboBox4.Clear
For GG = 1 To 1
UserForm1.ComboBox4.AddItem Choose(GG, gamma)
Next
Case Is = "Anagnina"
UserForm1.ComboBox4.Clear
For HH = 1 To 3
UserForm1.ComboBox4.AddItem Choose(HH, rho, fi, zeta)
Next
End Select
UserForm1.TextBox2.Text = UserForm1.ComboBox3.TextEnd Sub
come vedi ho dichiarato le variabili e senza l' aggiunta che sto cercando di mettere funziona,
a meno che non devo dichiarale come variabili di testo? però non è che sono proprio convinto.
Ciao grazie
da quello che ho potuto capire, modifica questo spezzone di codice con quello che ti posto
zeta = "Svincolo_Dev.5AB-6AB-9AB" var2 = UserForm1.ComboBox3.Text Select Case var2 Case Is = "Battistini" UserForm1.ComboBox4.Clear For AA = 1 To 2 UserForm1.ComboBox4.AddItem Choose(AA, alfa, beta) dato = Choose(AA, alfa, beta) If dato = alfa Then TextBox3.Text = "GR1" Else TextBox3.Text = "GR3" End If NextQual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )
trump61Non va, ma per dato cosa intendi?
trump61Scusa avevo saltato una parte, comunque non va. Il problema è che come dalla combobox3 seleziono battistini la textbox3 viene riempita con il valore GR3, mentre dovrebbe aspettare il valore che seleziono in combobox4
perderesti meno tempo se tu allegassi un file di esempio come ti è già stato chiesto
Assegna all'evento Chenge della combobox4 il codice che ti posto, naturalmente lo devi completare con le altre variabili, provalo è fai sapere, se ho capito
Private Sub ComboBox4_Change() alfa = "Dev.1AB-2AB-3AB-4AB" beta = "Dev.5AB-6AB-7AB" delta = "Dev.1AB-2AB-3AB" lambda = "Dev.4AB-5AB" teta = "Dev.11AB-12AB" omega = "Dev.1AB-3AB" gamma = "Dev.12AB" rho = "Dev.1AB-2AB-4AB" fi = "Svincolo_Dev.7AB-8AB-10AB" zeta = "Svincolo_Dev.5AB-6AB-9AB" posizione = ComboBox4.Text Select Case posizione Case alfa TextBox3.Text = "GR1" Case beta TextBox3.Text = "GR2" End Select End SubQual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )
trump61vorrei ma non mi loggare, mi dice che ho dimenticato la password poi se chiedo di poterla recuperare si blocca
wrote: vorrei ma non mi loggare, mi dice che ho dimenticato la password poi se chiedo di poterla recuperare si blocca
Con username trump61 non risultano utenti registrati.. dovresti registrarti prima. Comunque puoi mandare una mail a staff@excelvba.it e ricevere assistenza.
trump61posso anche cambiare ma se vai sul vecchio forum e metti trump61 escono svariate discussioni
dovrebbe essere questo, non se funziona dall'inizio , ma è dalla userform1 che non va hai cambiamenti
vorrei ma non mi loggare, mi dice che ho dimenticato la password poi se chiedo di poterla recuperare si blocca
con le credenziali del vecchio forum non entri, ti devi registrare al nuovo forum anche con le vecchie credenziali
Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente?
( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )Ciao scusate ma non mi ricordo di aver inserito il file
il file che hai allegato scheda6.0new.xlsx, non contiene nessuna macro e tanto meno nessuna userform, riallega il file con estensione .xlsm cosi salva pure le macro
Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente?
( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )ecco il file le varie userform mi servono per compilare la scheda e stamparla, poi la salvo per poterla riguardare se mi serve
Albatros54 wrote:Assegna all'evento Chenge della combobox4 il codice che ti posto, naturalmente lo devi completare con le altre variabili, provalo è fai sapere, se ho capito
ti allego il file, nella combobox stazione seleziona Battistini , vedi quello che succede ( ma agli impianti elettrici di RFI ognuno si fa il proprio progamma? 🙂 )
Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )Grazie Funziona
trump61Questa è Atac Roma. quando rientri alle 4.00 di notte diciamo che la caligrafia lascia il tempo che trova
trump61poi se uno fa errori di ortografia come me
Login
Registrati
Stai vedendo 22 articoli - dal 1 a 22 (di 22 totali)
Stai vedendo 22 articoli - dal 1 a 22 (di 22 totali)