Risultati da 1 a 21 di 21

Discussione: inserimento numeri in base a colori



  1. #1
    L'avatar di xbux64
    Clicca e Apri
    Data Registrazione
    Aug 2016
    LocalitÓ
    Fidenza
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    inserimento numeri in base a colori

    salve, chiedo cortesemente se posso avere un aiuto per un codice da inserire nel mio file, le spiegazioni dettagliate sono nell'allegato grazie
    File Allegati File Allegati

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

    Re: inserimento numeri in base a colori

    Ciao xbux64
    non Ŕ che abbia capito molto.
    Ti allego il file in cui ho inserito un pulsante e, nel Modulo 2, una macro che genera un numero casuale e lo scrive nella colonna A, conta il numero di volte e lo scrive in corrispondenza del numero (invece delle tue 36 macro - sempre se ho capito bene).

    Poi mi son fermato.

    Fai sapere. Ciao,
    Mario
    File Allegati File Allegati

  3. #3
    L'avatar di xbux64
    Clicca e Apri
    Data Registrazione
    Aug 2016
    LocalitÓ
    Fidenza
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: inserimento numeri in base a colori

    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Ciao xbux64
    non Ŕ che abbia capito molto.
    Ti allego il file in cui ho inserito un pulsante e, nel Modulo 2, una macro che genera un numero casuale e lo scrive nella colonna A, conta il numero di volte e lo scrive in corrispondenza del numero (invece delle tue 36 macro - sempre se ho capito bene).

    Poi mi son fermato.

    Fai sapere. Ciao,
    Mario
    Grazie Mario ma siamo fuori strada Le 36 macro mi servono per creare una pulsantiera che inserirÓ i numeri il resto ŕ scritto nel file

  4. #4
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    316
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: inserimento numeri in base a colori

    Anche io come mario (ciao) non son sicuro di aver capito...
    Cmq ti allego la mia proposta.

    Codice usato:

    Codice: 
    Option Explicit
    Sub Estrai()
    Dim Ir As Byte
    Dim Color(34 To 36)
    Dim C As Range
    Dim Estratti As String
    
    Application.ScreenUpdating = False
    [B39] = ""
    For Ir = 34 To 36
        Set C = Range("L1:L37").Find(Cells(Ir, 1), lookat:=xlWhole)
            If Not C Is Nothing Then
                Color(Ir) = C.Interior.ColorIndex
            End If
    Next Ir
    
    For Each C In Range("M1:M37")
        If C = 1 Then
            If C.Offset(0, -1).Interior.ColorIndex <> Color(34) And C.Offset(0, -1).Interior.ColorIndex <> Color(35) And C.Offset(0, -1).Interior.ColorIndex <> Color(36) Then
                Estratti = Estratti & C.Offset(0, -1).Value & "-"
            End If
        End If
    Next C
    
    [B39] = Estratti
    Application.ScreenUpdating = True
    MsgBox "Elaborazione Terminata"
    
    End Sub
    Cuc¨
    File Allegati File Allegati

  5. I seguenti 2 utenti hanno dato un "Like" a Cuc¨^_^ per questo post:


  6. #5

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    LocalitÓ
    Verona Provincia
    EtÓ
    57
    Messaggi
    1024
    Versione Office
    .
    Likes ricevuti
    367
    Likes dati
    0

    Re: inserimento numeri in base a colori

    Citazione Originariamente Scritto da xbux64 Visualizza Messaggio
    .... le spiegazioni dettagliate sono nell'allegato grazie
    Sarebbe buona norma descrivere il problema direttamente nel post: in questo modo chi legge pu˛ capire subito se Ŕ in grado di poterti aiutare (quindi scaricherÓ il file), anzichÚ dover scaricare il file solo per capire di non essere in grado di aiutarti o semplicemente che il problema non lo "acchiappa".
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  7. I seguenti 4 utenti hanno dato un "Like" a scossa per questo post:


  8. #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

    Re: inserimento numeri in base a colori

    Citazione Originariamente Scritto da scossa Visualizza Messaggio
    Sarebbe buona norma descrivere il problema direttamente nel post: in questo modo chi legge pu˛ capire subito se Ŕ in grado di poterti aiutare (quindi scaricherÓ il file), anzichÚ dover scaricare il file solo per capire di non essere in grado di aiutarti o semplicemente che il problema non lo "acchiappa".
    Cioa Scossa
    Credo che usero questo tuo messaggio (cosý come l'hai scritto) per metterlo nel regolamento come Regola 6.1
    Grazie scossa

  9. #7
    L'avatar di xbux64
    Clicca e Apri
    Data Registrazione
    Aug 2016
    LocalitÓ
    Fidenza
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: inserimento numeri in base a colori

    Perfetto Cuc¨ meglio di cosi non potevi fare era quello che volevo grazie
    La prossima volta cercher˛ di mettere tutto nel post

  10. #8
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    316
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: inserimento numeri in base a colori

    Citazione Originariamente Scritto da xbux64 Visualizza Messaggio
    Perfetto Cuc¨ meglio di cosi non potevi fare era quello che volevo grazie
    La prossima volta cercher˛ di mettere tutto nel post
    Prego!

  11. #9
    L'avatar di xbux64
    Clicca e Apri
    Data Registrazione
    Aug 2016
    LocalitÓ
    Fidenza
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: inserimento numeri in base a colori

    Scusa cuc¨ , ora abbiamo estratto i numeri con valore 1 ,ti chiedo se io volessi estrarre i valori 0 oppure maggiori di 1 , cosa devo e dove cambiare il codice? Grazie

  12. #10
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    316
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: inserimento numeri in base a colori



    Ci hai almeno provato a modificare il mio codice???
    Se lo leggi Ŕ dina semplicitÓ allarmante....

    Cuc¨

  13. #11
    L'avatar di xbux64
    Clicca e Apri
    Data Registrazione
    Aug 2016
    LocalitÓ
    Fidenza
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Unhappy Re: inserimento numeri in base a colori

    Citazione Originariamente Scritto da Cuc¨^_^ Visualizza Messaggio


    Ci hai almeno provato a modificare il mio codice???
    Se lo leggi Ŕ dina semplicitÓ allarmante....

    Cuc¨
    Si cuc¨ ho provato a cambiare qualcosa ma l'unica cosa che esce sono dei trattini , sono proprio a zero con il vba

  14. #12
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    316
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: inserimento numeri in base a colori

    Si vabbe dai...
    Ti allego il file

    ma bastava cambiare


    Codice: 
    If C = 1 Then
    con

    Codice: 
    If C = 0 Then
    per avere i valori relati allo zero e...

    Codice: 
    If C > 1 Then
    per avere i valori maggiori di 1

    File Allegati File Allegati

  15. #13
    L'avatar di xbux64
    Clicca e Apri
    Data Registrazione
    Aug 2016
    LocalitÓ
    Fidenza
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: inserimento numeri in base a colori

    [QUOTE=Cuc¨^_^;39375]Si vabbe dai...
    Ti allego il file

    ma bastava cambiare
    Codice: 
    If C = 1 Then
    hai ragione io sono andato a cambiare qui " Find(Cells(Ir, 1) mi rendo conto che sono proprio una frana
    comunque grazie :
    ps; se io volessi fare dei test e vedere se nella mia stringa di estratti corrisponde il numero che metter˛ in A37 come posso fare ? ho provato con la funzione cerca ma non funziona .

  16. #14
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    316
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: inserimento numeri in base a colori

    [QUOTE=xbux64;39418]
    Citazione Originariamente Scritto da Cuc¨^_^ Visualizza Messaggio
    ps; se io volessi fare dei test e vedere se nella mia stringa di estratti corrisponde il numero che metter˛ in A37 come posso fare ?
    Appunto... fai dei test...anche tanti magari... spesso si impara anche cosi....

  17. #15
    L'avatar di xbux64
    Clicca e Apri
    Data Registrazione
    Aug 2016
    LocalitÓ
    Fidenza
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: inserimento numeri in base a colori

    Cuc¨ , per cortesia , in questi giorni ho provato a scervellarmi e cercare all'interno del forum qualcosa che mi potesse andare bene ma non ho trovato nulla . Il problema Ŕ che la stringa estratta Ŕ sottoforma di testo e non riesco ad applicarci nessuna formula per conteggiare la quantitÓ di numeri presenti nella stringa estratta e per controllare se il numero di A37 Ŕ presente nella mia sringa estartta . Grazie comunque . ciao

  18. #16
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    316
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: inserimento numeri in base a colori

    Spiega bene cosa ti serve:

    mi sembra di capire che vuoi sapere quanti numeri sono presenti nella cella B39 e se il numero presente nella cella A37 Ŕ tra questi??

  19. #17
    L'avatar di xbux64
    Clicca e Apri
    Data Registrazione
    Aug 2016
    LocalitÓ
    Fidenza
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: inserimento numeri in base a colori

    Citazione Originariamente Scritto da Cuc¨^_^ Visualizza Messaggio
    Spiega bene cosa ti serve:

    mi sembra di capire che vuoi sapere quanti numeri sono presenti nella cella B39 e se il numero presente nella cella A37 Ŕ tra questi??
    si esatto comunque adesso non Ŕ piu B39 lo spostato Ú E34

  20. #18
    L'avatar di xbux64
    Clicca e Apri
    Data Registrazione
    Aug 2016
    LocalitÓ
    Fidenza
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: inserimento numeri in base a colori

    Citazione Originariamente Scritto da Cuc¨^_^ Visualizza Messaggio
    Spiega bene cosa ti serve:

    mi sembra di capire che vuoi sapere quanti numeri sono presenti nella cella B39 e se il numero presente nella cella A37 Ŕ tra questi??
    si esatto comunque adesso non Ŕ piu B39 ma E 34

  21. #19
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    316
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: inserimento numeri in base a colori



    Codice: 
    Option ExplicitSub Estrai()
    Dim Ir As Byte, Cont As Integer
    Dim Color(34 To 36)
    Dim C As Range
    Dim Estratti As String
    Dim Ex As Boolean
    
    
    Application.ScreenUpdating = False
    [E34] = ""
    Cont = 0
    Ex = False
    For Ir = 34 To 36
        Set C = Range("L1:L37").Find(Cells(Ir, 1), lookat:=xlWhole)
            If Not C Is Nothing Then
                Color(Ir) = C.Interior.ColorIndex
            End If
    Next Ir
    
    
    For Each C In Range("M1:M37")
        If C = 1 Then
            If C.Offset(0, -1).Interior.ColorIndex <> Color(34) And C.Offset(0, -1).Interior.ColorIndex <> Color(35) And C.Offset(0, -1).Interior.ColorIndex <> Color(36) Then
            Estratti = Estratti & C.Offset(0, -1).Value & "-"
            Cont = Cont + 1
                If C.Offset(0, -1).Value = [A37] Then
                    Ex = True
                End If
            End If
        End If
    Next C
    Application.ScreenUpdating = True
    [E34] = Estratti
    If Ex = True Then
        MsgBox "Sono stati estratti " & Cont & " valori e il valore " & [A37] & " E' presente nella serie!"
    Else
        MsgBox "Sono stati estratti " & Cont & " valori e il valore " & [A37] & " NON E' presente nella serie!"
    End If
    
    
    End Sub
    
    Sub Estrai0() Dim Ir As Byte, Cont As Integer Dim Color(34 To 36) Dim C As Range Dim Estratti As String Dim Ex As Boolean Application.ScreenUpdating = False [E34] = "" Cont = 0 Ex = False For Ir = 34 To 36 Set C = Range("L1:L37").Find(Cells(Ir, 1), lookat:=xlWhole) If Not C Is Nothing Then Color(Ir) = C.Interior.ColorIndex End If Next Ir For Each C In Range("M1:M37") If C = 0 Then If C.Offset(0, -1).Interior.ColorIndex <> Color(34) And C.Offset(0, -1).Interior.ColorIndex <> Color(35) And C.Offset(0, -1).Interior.ColorIndex <> Color(36) Then Estratti = Estratti & C.Offset(0, -1).Value & "-" Cont = Cont + 1 If C.Offset(0, -1).Value = [A37] Then Ex = True End If End If End If Next C Application.ScreenUpdating = True [E34] = Estratti If Ex = True Then MsgBox "Sono stati estratti " & Cont & " valori e il valore " & [A37] & " E' presente nella serie!" Else MsgBox "Sono stati estratti " & Cont & " valori e il valore " & [A37] & " NON E' presente nella serie!" End If End Sub
    Sub Estrai2() Dim Ir As Byte, Cont As Integer Dim Color(34 To 36) Dim C As Range Dim Estratti As String Dim Ex As Boolean Application.ScreenUpdating = False [E34] = "" Cont = 0 Ex = False For Ir = 34 To 36 Set C = Range("L1:L37").Find(Cells(Ir, 1), lookat:=xlWhole) If Not C Is Nothing Then Color(Ir) = C.Interior.ColorIndex End If Next Ir For Each C In Range("M1:M37") If C > 1 Then If C.Offset(0, -1).Interior.ColorIndex <> Color(34) And C.Offset(0, -1).Interior.ColorIndex <> Color(35) And C.Offset(0, -1).Interior.ColorIndex <> Color(36) Then Estratti = Estratti & C.Offset(0, -1).Value & "-" Cont = Cont + 1 If C.Offset(0, -1).Value = [A37] Then Ex = True End If End If End If Next C Application.ScreenUpdating = True [E34] = Estratti If Ex = True Then MsgBox "Sono stati estratti " & Cont & " valori e il valore " & [A37] & " E' presente nella serie!" Else MsgBox "Sono stati estratti " & Cont & " valori e il valore " & [A37] & " NON E' presente nella serie!" End If End Sub


    File Allegati File Allegati
    Ultima modifica fatta da:Gerardo ZuccalÓ; 12/09/16 alle 23:18

  22. #20
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    316
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: inserimento numeri in base a colori

    Xbux
    almeno un ritorno del lavoro prodotto non sarebbe male.

  23. I seguenti utenti hanno dato un "Like"


  24. #21
    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

    Re: inserimento numeri in base a colori

    Citazione Originariamente Scritto da Cuc¨^_^ Visualizza Messaggio
    Xbux
    almeno un ritorno del lavoro prodotto non sarebbe male.
    Ciao Cucu
    Purtroppo credo che xbux64 non ha mai letto il regolamento altrimenti avrebbe letto la regola 1.1

    Regola nr.1.1 "Rispondere alla soluzione ottenuta"
    E' buona educazione rispondere a coloro che ti hanno dato un aiuto e magari sono riusciti a risolverti il problema, vorrei ricordarti che coloro che ti hanno aiutato hanno messo a disposizione il loro tempo gratuitamente, e sono spinti solo dalla loro generositÓ verso il prossimo e dalla passione per Excel, e quindi un vostro grazie Ŕ il vero motore della motivazione e verrÓ tenuto in considerazione per un futuro aiuto, in caso contrario non verrai pi¨ aiutato
    Un saluto

Discussioni Simili

  1. [Risolto] Formula SE che da un valore in base alla corrispondenza dei numeri
    Di nucleool nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 10/03/17, 01:36
  2. [Risolto] Inserimento di dati in celle data base
    Di svizzera nel forum Domande su Excel VBA e MACRO
    Risposte: 28
    Ultimo Messaggio: 04/02/17, 12:55
  3. ordinare in ordine crescente 90 numeri in base al loro ritardo
    Di vince nel forum Domande su Excel in generale
    Risposte: 11
    Ultimo Messaggio: 24/07/16, 17:12
  4. Risposte: 15
    Ultimo Messaggio: 16/03/16, 01:07
  5. Modifica Macro Inserimento Numeri
    Di Bright nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 15/12/15, 17:14

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
  •