Risultati da 1 a 12 di 12

Discussione: Modifica Macro Inserimento Numeri



  1. #1
    L'avatar di Bright
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    .
    Età
    48
    Messaggi
    153
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    0

    Modifica Macro Inserimento Numeri

    Buona sera essendomi iscritto da poco vi propongo il mio quesito, ricercando nel web o trovato una macro di mio interesse selezionando tramite un pulsante le celle R3:S3 inserisco numeri Min 0 Max 90, vorrei modificarla limitandola a partire come presenza 0 le celle R3:S3 e partire come inserimento Min 40 Max 49 , non essendo pratico di WBA vorrei un vosto aiuto.
    Vi allego il file.

    Saluti

  2. #2
    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
    Citazione Originariamente Scritto da Bright Visualizza Messaggio
    Buona sera essendomi iscritto da poco vi propongo il mio quesito, ricercando nel web o trovato una macro di mio interesse selezionando tramite un pulsante le celle R3:S3 inserisco numeri Min 0 Max 90, vorrei modificarla limitandola a partire come presenza 0 le celle R3:S3 e partire come inserimento Min 40 Max 49 , non essendo pratico di WBA vorrei un vosto aiuto.
    Vi allego il file.

    Saluti
    Ciao Bright prova a vedere se è quello che volevi

    :999:

    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)

  3. #3
    L'avatar di Bright
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    .
    Età
    48
    Messaggi
    153
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    0
    Grazie la modifica e quella giusta vorrei che le due celle partissero anche da 0.

  4. #4
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Citazione Originariamente Scritto da Bright Visualizza Messaggio
    Grazie la modifica e quella giusta vorrei che le due celle partissero anche da 0.
    Ciao Bright
    Rispondo io per Baloon_50 che mi correggerà se sbaglio qualcosa (sto imparando VBA)






    Codice: 
    
    
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    
    
    
    SpinnArea = ("R3:S3")
    
    
    If Application.Intersect(Target, Range(SpinnArea)) Is Nothing Then Exit Sub
        
    Application.EnableEvents = False
        With SpinButton1
            .LinkedCell = Target.Address
            .Value = Target.Value
            .Min = 1
            .Max = 99
            .SmallChange = 10
            
        End With
    
    
    Application.EnableEvents = True
    
    
    End Sub
    
    
    
    
    Application.EnableEvents = True
    
    
    End Sub


    e poi dovresti sistemare le proprietà,(vedi immagine)

    >>Vai in alto nella ribbon e scegli la scheda "Sviluppo"
    1) metti in "modalità di progettazione"
    2)Doppio Click sul pulsante di selezione per sistemare il codice
    3) clicca su proprità
    4) dalla scheda proprità scegli Min e MAX
    Fammi sapere!

    Ultima modifica fatta da:Gerardo Zuccalà; 14/12/15 alle 22:24 Motivo: ortografico

  5. #5
    L'avatar di Bright
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    .
    Età
    48
    Messaggi
    153
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    0
    Ciao Gerardo io mi riferisco che le due celle R3:S3 devono contenere come valore iniziale numerico 0 e selezionando una o tutte e due le celle posso inserire i numeri compresi da 40 a 49.

  6. #6
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Ciao be allora mi arrendo, avevo capito male la tua domanda, passo la palla agli esperti del VBA

  7. #7
    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
    Citazione Originariamente Scritto da Bright Visualizza Messaggio
    Ciao Gerardo io mi riferisco che le due celle R3:S3 devono contenere come valore iniziale numerico 0 e selezionando una o tutte e due le celle posso inserire i numeri compresi da 40 a 49.
    Ciao Bright purtroppo anch'io non sono in grado di aiutarti non ho mai usato la barra di scorrimento e sinceramente non saprei come muovermi.

    :280:

    Comunque salvo smentite (spero ci siano) non credo che si possa dare valore zero e poi partire da un altro valore (nel tuo caso 40)

    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)

  8. #8
    L'avatar di Bright
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    .
    Età
    48
    Messaggi
    153
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    0
    Ciao Baloon 50 come dicevo la tua macro funziona benissimo se con il pulsante vado indietro si ferma a 40 io vorrei azzerare a 0 le due celle .

  9. #9
    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
    Citazione Originariamente Scritto da Bright Visualizza Messaggio
    Ciao Baloon 50 come dicevo la tua macro funziona benissimo se con il pulsante vado indietro si ferma a 40 io vorrei azzerare a 0 le due celle .
    come ho appena spiegato se le vuoi azzerare devi partire poi da 0 ed arrivare a 49 non credo si possa mettere zero e poi partire da 40
    Se vuoi partire da zero ed arrivare a 49 si può fare.

    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)

  10. #10
    L'avatar di Bright
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    .
    Età
    48
    Messaggi
    153
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    0
    Bravo Baloon ai capito un altra soluzione e possibile?

  11. #11
    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
    Citazione Originariamente Scritto da Bright Visualizza Messaggio
    Bravo Baloon ai capito un altra soluzione e possibile?
    eccolo

    Codice: 
    
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)'
    
    
    SpinnArea = ("R3:S3")
    
    
    If Application.Intersect(Target, Range(SpinnArea)) Is Nothing Then Exit Sub
        
    Application.EnableEvents = False
        With SpinButton1
            .LinkedCell = Target.Address
            .Value = Target.Value
            .Min = 0
            .Max = 49
            .SmallChange = 1
        End With
    
    
    Application.EnableEvents = True
    
    
    End Sub
    :999:
    Ultima modifica fatta da:Gerardo Zuccalà; 15/12/15 alle 18:07

    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)

  12. I seguenti utenti hanno dato un "Like"


  13. #12
    L'avatar di Bright
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    .
    Età
    48
    Messaggi
    153
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    0
    Mi accontento visto che non e risolvibile.

Discussioni Simili

  1. inserimento numeri in base a colori
    Di xbux64 nel forum Domande su Excel VBA e MACRO
    Risposte: 20
    Ultimo Messaggio: 12/09/16, 23:44
  2. modifica macro
    Di D@nilo nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 13/04/16, 22:06
  3. Risposte: 15
    Ultimo Messaggio: 16/03/16, 01:07
  4. Modifica macro Sorteggio
    Di roky48 nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 31/10/15, 14:47
  5. Modifica macro
    Di nick0573 nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 22/07/15, 13:10

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
  •