Risultati da 1 a 11 di 11

Discussione: Maiuscolo in VBA e piccoli aggiustamenti



  1. #1
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    870
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    186

    Maiuscolo in VBA e piccoli aggiustamenti

    Ciao a tutti,
    riprendo un mio vecchio thread (Compilare celle usando userform ) per proseguire la formazione VBA.

    Sistemazioni:
    1) Nella userform vorrei che digitando la stringa si modifichi in MAIUSCOLO. Con questo script ottengo il risultato ma non mi permette di digitare il codice ma lo prende in automatico dal cognome.
    Il codice è:
    Codice: 
    Private Sub TextBox14_Change()
    TextBox14 = UCase(TextBox1)
    End Sub
    2) flaggando SI in "Nuovo Assunto" (optionbutton1 sempre della userform), i dati del dipendente vengo riportati nel foglio "0_Nuovo assunto" ma lasciando delle righe vuote

    3) Compilare il campo Nominativo (colonna C) nel foglio Anagrafica concatenandolo con VBA (Cognome +Nome)
    https://www.dropbox.com/s/uaelmjnj8h...rmV0.xlsm?dl=0

    Gene

  2. #2
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3208
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155

    Re: Maiuscolo in VBA e piccoli aggiustamenti

    Ciao Gene
    innanzi tutto come stai? Spero bene.

    Risposte alle tue domande:
    1) stai attento che quel codice non trasforma il contenuto della TextBox in maiuscolo ma "trasforma in maiuscolo ed ASSEGNA" il contenuto di altra TextBox. Tu infatti dici: TextBox14 = UCase(TextBox1). Forse ti è saltato un 4.

    2) le prove che ho fatto non mi lasciano righe vuote. Piuttosto apporterei le seguenti modifiche al tuo codice
    Codice: 
    Private Sub Label21_Click()
    Dim wks As Worksheet, iRow As Long
    Set wks = Sheets("Anagrafica")
        With wks
            iRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    '        iRow = 3
    '        While .Cells(iRow, 2).Value <> ""
    '            iRow = iRow + 1
    '        Wend
    questo per due motivi: il valore di risposta di Riga e Colonna è sempre Long (scossa insegna); la riga in rosso è per risparmio, utilizzi solo una riga invece di 4 per un ciclo.

    3) a quanto vedo la colonna C contiene già la concatenazione delle colonne D+E

    Ciao,
    Mario

  3. #3
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    870
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    186

    Re: Maiuscolo in VBA e piccoli aggiustamenti

    Ciao Mario,
    tutto in miglioramento.
    Di seguito prove:
    1) Risolto. Avevo effettivamente saltato il 4!! ( Ma non dirlo a Ninai!!!!)
    2) La prova che faccio è la seguente. Inserisco dal form un nuovo dipendente. Clicco su salva. Mi sposto nel foglio di lavoro nuovo assunto e il nuovo nominativo è inserito nella riga 17 lasciando le precedenti vuote. A te questo non succede?
    3) Chiarisco meglio il pensiero. Ho anticipatamente impostato il concatenamento nella colonna C ma se volessi farlo fare al VBA quando faccio salva nel form?

    Gene

  4. #4
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Maiuscolo in VBA e piccoli aggiustamenti

    Citazione Originariamente Scritto da G.Bove Visualizza Messaggio
    Ciao a tutti,
    riprendo un mio vecchio thread (Compilare celle usando userform ) per proseguire la formazione VBA.

    Sistemazioni:
    1) Nella userform vorrei che digitando la stringa si modifichi in MAIUSCOLO. Con questo script ottengo il risultato ma non mi permette di digitare il codice ma lo prende in automatico dal cognome.
    Il codice è:
    Codice: 
    Private Sub TextBox14_Change()
    TextBox14 = UCase(TextBox1)
    End Sub
    2) flaggando SI in "Nuovo Assunto" (optionbutton1 sempre della userform), i dati del dipendente vengo riportati nel foglio "0_Nuovo assunto" ma lasciando delle righe vuote

    3) Compilare il campo Nominativo (colonna C) nel foglio Anagrafica concatenandolo con VBA (Cognome +Nome)
    https://www.dropbox.com/s/uaelmjnj8h...rmV0.xlsm?dl=0

    Gene
    Ciao Gene non so se ho capito bene ma se vuoi che scrivendo in una textbox i caratteri siano maiuscoli, per la textbox interessata devi scrivere questo codice :


    Codice: 
    Private Sub TxtCognome_keypress(ByVal KeyAscii As MSForms.ReturnInteger) 
    KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
     
    End Sub
    La scritta in rosso è il nome della tua textbox.

    Ciao e fammi sapere.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  5. #5
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    870
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    186

    Re: Maiuscolo in VBA e piccoli aggiustamenti

    Ciao Baloon,
    è sempre un piacere leggerti.
    Il punto 1 è stato risolto grazie al buon Mario.
    Dritte sugli altri 2 punti?

    Gene

  6. #6
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Maiuscolo in VBA e piccoli aggiustamenti

    Citazione Originariamente Scritto da G.Bove Visualizza Messaggio
    Ciao Baloon,
    è sempre un piacere leggerti.
    Il punto 1 è stato risolto grazie al buon Mario.
    Dritte sugli altri 2 punti?

    Gene
    Ciao Gene come ti ha già scritto Mario, anche a me il punto 2 funziona.
    Da quanto hai scritto nel #3, prima di salvare devi cliccare su nuovo assunto in maniera che diventi sì
    per il punto 3 ho aggiunto una riga nella routine salva :

    .Cells(iRow, 3) = TextBox1 & " " & TextBox2 ' cognome + nome

    Ciao ciao.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  7. #7
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    870
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    186

    Re: Maiuscolo in VBA e piccoli aggiustamenti

    Ciao Baloon e Mario,
    per il punto 2 anche il file postato da Baloon presenta "il difetto" spero che l'immagine mi aiuti a spiegarmi.



    Gene

  8. #8
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Maiuscolo in VBA e piccoli aggiustamenti

    a me continua a funzionare.
    Prova ad andare in debug.
    Metti un flag su questa riga

    .Cells(iRow, 1) = iRow - 2

    e poi esegui il tutto
    quando arrivi a quella riga, controlla che valore ti da iRow
    a me da il valore giusto (in questo caso 10)

    P.S.
    Naturalmente sul foglio elimina le righe vuote

    Fammi sapere

    ----------Post unito in automatico----------

    Ciao Gene
    ho fatto una modifica alla routine salva (quelle in rosso) in pratica ho aggiunto l'inserimento automatico nel foglio "0_Nuovo assunto" del cognome e nome nella colonna A e perciò non devi più preoccupartene.

    Codice: 
    Private Sub Label21_Click()Dim wks As Worksheet, iRow As Integer
    Dim uriga As Long
    Dim wks1 As Worksheet
    Set wks = Sheets("Anagrafica")
    Set wks1 = Sheets("0_Nuovo assunto")
    
    
    uriga = wks1.Range("A" & Rows.Count).End(xlUp).Row
    With wks
               iRow = 3
               While .Cells(iRow, 2).Value <> ""
               iRow = iRow + 1
              Wend
              .Cells(iRow, 1) = iRow - 2
              .Cells(iRow, 2) = TextBox15 'badge
              .Cells(iRow, 3) = TextBox1 & " " & TextBox2 ' cognome + nome
              .Cells(iRow, 4) = TextBox1 'cognome
              .Cells(iRow, 5) = TextBox2 'nome
              .Cells(iRow, 6) = OptionButton1 'nuovo assunto
              .Cells(iRow, 7) = TextBox12 'data nascita
              .Cells(iRow, 8) = TextBox13 'luogo nascita
              .Cells(iRow, 9) = TextBox14 'codice fiscale
              .Cells(iRow, 10) = ComboBox2 'qualifica
              .Cells(iRow, 11) = ComboBox1 'stabilimento
              .Cells(iRow, 12) = ComboBox3 'ruolo aziendale
              .Cells(iRow, 13) = ComboBox4 'ruolo sicurezza
              .Cells(iRow, 14) = ComboBox5 'titolo di studio
              .Cells(iRow, 15) = ComboBox6 'in forza
        wks1.Range("A" & uriga).Value = TextBox1 & " " & TextBox2
              TextBox1 = ""
              TextBox2 = ""
              TextBox12 = ""
              TextBox13 = ""
              TextBox14 = ""
              TextBox15 = ""
              ComboBox2 = ""
              ComboBox1 = ""
              ComboBox3 = ""
              ComboBox4 = ""
              ComboBox5 = ""
              ComboBox6 = ""
            
    End With
    Set wks = Nothing
    Set wks1 = Nothing
    End Sub
    Guarda se così ti può andare bene.

    Ciao

    piccola modifica ti allego il file
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  9. #9
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3208
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155

    Re: Maiuscolo in VBA e piccoli aggiustamenti

    Ciao Gene

    @Baloon
    Complimenti. Io non avevo fatto caso al fatto che NON C'ERA NULLA che riportasse al Foglio 0_Nuovo_Assunto

    Per Gene,
    anche stavolta, troppa disattenzione.
    E speriamo che non lo veda ges o ninai, altrimenti sono ... problemi tuoi.

    Ciao,
    Mario

  10. #10
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    870
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    186

    Re: Maiuscolo in VBA e piccoli aggiustamenti

    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Complimenti. Io non avevo fatto caso al fatto che NON C'ERA NULLA che riportasse al Foglio 0_Nuovo_Assunto

    Per Gene,
    anche stavolta, troppa disattenzione.
    E speriamo che non lo veda ges o ninai, altrimenti sono ... problemi tuoi.
    Mi dispiace ma questa volta ho prove tangibili della mia innocenza (leggi attenzione) e mi appello al 5° emendamento.

    A testimonianza che i riferimenti al fogli c'erano:
    a) autorizzo l'uso dell'immagine del post #7. Da dove si evince che la stringa veniva copiata nel foglio giusto ma nella riga errata.
    b) Convoco come testimone a favore il mio tutor Ges.
    c) Richiedo come giudice superpartes: Gerardo Zuccalà

    In fede
    Gene

    PS x @Baloon
    Scherzi a parte...tutto funziona bene e posso continuare lo sviluppo del file. Grazie ancora.

  11. #11

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7124
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1298

    Re: Maiuscolo in VBA e piccoli aggiustamenti

    Citazione Originariamente Scritto da G.Bove Visualizza Messaggio
    .....
    b) Convoco come testimone a favore il mio tutor Ges.

    ...
    Io non c'ero ... e se c'ero non ho visto nulla .... e se ho visto non ricordo .... e se ricordo non sono certo!!!
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

Discussioni Simili

  1. Creare bordi con VBA e altri aggiustamenti
    Di G.Bove nel forum Domande su Excel VBA e MACRO
    Risposte: 16
    Ultimo Messaggio: 19/08/16, 18:50
  2. Mese immediatamente maiuscolo
    Di Alessandro nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 21/06/16, 22:02
  3. Rubrica + ricerca + piccoli accorgimenti
    Di domenico.frau nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 09/06/16, 13:57
  4. Aggiustamenti su formula GRANDE
    Di G.Bove nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 08/02/16, 19:23
  5. Matematica per piccoli e perchè no... per grandi
    Di Baloon_50 nel forum Lavori e giochi con Excel
    Risposte: 9
    Ultimo Messaggio: 12/01/16, 09:28

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •