Valore UserForm1.TextBox

[trump61 trump61]

Select 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

[trump61 trump61]

scusate non mi ritrovo con il nuovo Look, Volevo chiedere perche in textbox3 mi ritrovo solo GR3? 

[Marius44Moderatore Marius44 Karma: 58 pts]

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

[patelModeratore patel Karma: 51 pts]

L'oggetto del messaggio deve riflettere il problema e non essere un saluto o altro, leggi il regolamento

[trump61 trump61]

Ciao 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 If

il 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 If

Next
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.Text

End 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

 

[albatros54Moderatore albatros54 Karma: 89 pts]

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

            Next

 

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 )

[trump61 trump61]

Non va, ma per dato cosa intendi?

[trump61 trump61]

Scusa 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

[patelModeratore patel Karma: 51 pts]

perderesti meno tempo se tu allegassi un file di esempio come ti è già stato chiesto

[albatros54Moderatore albatros54 Karma: 89 pts]

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 Sub

 

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 )

[trump61 trump61]

vorrei ma non mi loggare, mi dice che ho dimenticato la password poi se chiedo di poterla recuperare si blocca

[vionPartecipante vion Karma: 3 pts]

 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.

[trump61 trump61]

posso anche cambiare ma se vai sul vecchio forum e metti trump61 escono svariate discussioni

 

[Fabrizio61Partecipante Fabrizio61]

dovrebbe essere questo, non se funziona dall'inizio , ma è dalla userform1 che non va hai cambiamenti

Allegati:

You must be logged in to view attached files.

[albatros54Moderatore albatros54 Karma: 89 pts]

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 )

[Fabrizio61Partecipante Fabrizio61]

Ciao scusate ma non mi ricordo di aver inserito il file

 

[albatros54Moderatore albatros54 Karma: 89 pts]

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 )

[Fabrizio61Partecipante Fabrizio61]

ecco il file le varie userform mi servono per compilare la scheda e stamparla, poi la salvo per poterla riguardare se mi serve

Allegati:

You must be logged in to view attached files.

[albatros54Moderatore albatros54 Karma: 89 pts]

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 )

Allegati:

You must be logged in to view attached files.

[Fabrizio61Partecipante Fabrizio61]

Grazie Funziona

[trump61 trump61]

Questa è Atac Roma. quando rientri alle 4.00 di notte diciamo che la caligrafia lascia il tempo che trova

[trump61 trump61]

poi se uno fa errori di ortografia come me

[Autore]

Articoli