Risultati da 1 a 12 di 12

Discussione: Numerazione Progressiva



  1. #1
    L'avatar di ric91
    Clicca e Apri
    Data Registrazione
    Feb 2016
    LocalitÓ
    Voghera
    EtÓ
    26
    Messaggi
    35
    Versione Office
    excel2013
    Likes ricevuti
    0
    Likes dati
    0

    Numerazione Progressiva

    Ciao a tutti,

    Vi volevo chiedere come gestire questa numerazione progressiva particolare. Io ho:
    • Colonna A: info irrilevanti
    • Colonna B:da completare con numerazione progressiva
    • Colonna C: dei codici (US30, IC10, GL01 etc)

    Nella colonna B ho inserito la seguente formula per la numerazione progressiva: =+IF(OR(C4="GL01";C4="IC10");"";B4+1), ovvero se nella colonna C mi trova 2 codici particolari allora mettimi blank. Il punto Ŕ che poi quando procede la formula, mi restituisce l'errore giustamente. Ecco come posso gestire questa numerazione progressiva considerando le mie due condizionali. Vorrei che mi facesse una numerazione progressiva escludendo quei due casi.

    Grazie in anticipo,

    CIao

    Riccardo



    p.s. ho provato con una macro ma credo che mi manchi qualche condizione

    Codice: 
    Sub Macro6()
    '
    ' Macro6 Macro
    
    
    Range("B5").Select
    ActiveCell.FormulaR1C1 = _
    "=+IF(OR(R[-1]C[1]=""GL01"",R[-1]C[1]=""IC10""),"""",R[-1]C+1)"
    Range("B5").Select
    Dim uRiga As Long 'NUOVA RIGA
    uRiga = Range("A" & Rows.Count).End(xlUp).Row 'NUOVA RIGA
    Selection.AutoFill Destination:=Range("B5:B" & uRiga) 'RIGA MODIFICATA
    
    
    
    
    
    
    '
    End Sub
    Ultima modifica fatta da:ges; 20/07/16 alle 18:31 Motivo: Inserito codice nei Tag

  2. #2

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

    Re: Numerazione Progressiva

    Ciao,
    hai commesso due errori:
    1) Non hai inserito il codice nei Tag (e per questa volta te lo sistemo io)
    2) Non hai allegato un file excel come esempio e questo ci costringe a riscrivere quello che hai detto rischiando anche di equivocare, quindi allega un file excel come esempio di ci˛ che vuoi ottenere.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  3. #3
    L'avatar di ric91
    Clicca e Apri
    Data Registrazione
    Feb 2016
    LocalitÓ
    Voghera
    EtÓ
    26
    Messaggi
    35
    Versione Office
    excel2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Numerazione Progressiva

    Ciao,

    Grazie per la risposta.
    Allego il file come titolo di esempio
    File Allegati File Allegati

  4. #4

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

    Re: Numerazione Progressiva

    Allora, se ho ben capito:

    Codice: 
    Option Explicit
    Sub progressivi()
        Dim uRow As Long, i As Integer, cl As Object
            uRow = Cells(Rows.Count, 3).End(xlUp).Row
               i = 1
                For Each cl In Range(Cells(2, 3), Cells(uRow, 3))
                    If cl = "IC10" Or cl = "GL01" Then
                        cl.Offset(0, -1) = ""
                    Else
                        cl.Offset(0, -1) = i
                i = i + 1
                    End If
                Next
    End Sub
    ----------Post unito in automatico----------

    Rileggendo il file mi sembra che chiedi anche la somma dei numeri progressivi, nel caso sia cosý, ti propongo questa variazione:

    Codice: 
    Option Explicit
    Sub progressivi()
        Dim uRow As Long, i As Integer, y As Integer
            uRow = Cells(Rows.Count, 3).End(xlUp).Row
            Range(Cells(2, 2), Cells(uRow + 1, 2)) = ""
            Range(Cells(2, 2), Cells(uRow + 1, 2)).Interior.ColorIndex = xlNone
            i = 1
                For y = 2 To uRow
                    If Cells(y, 3) = "IC10" Or Cells(y, 3) = "GL01" Then
                        Cells(y, 2) = ""
                    Else
                        Cells(y, 2) = i
                i = i + 1
                    End If
                    Cells(uRow + 1, 2) = Cells(uRow + 1, 2) + Cells(y, 2)
                    Cells(uRow + 1, 2).Interior.ColorIndex = 6
                Next
    End Sub
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  5. #5
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    Roma
    EtÓ
    45
    Messaggi
    1168
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    570

    Re: Numerazione Progressiva

    Io ho provato con le formule....
    Codice: 
    =SE(O(C3="IC10";C3="GL01");"";MAX($B$1:B2)+1)
    in B2 da tirare gi¨
    File Allegati File Allegati

  6. I seguenti 2 utenti hanno dato un "Like" a D@nilo per questo post:


  7. #6

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

    Re: Numerazione Progressiva

    Ciao Danilo,
    ottima formula ... io mi sono limitato al vba visto che l'autore ha postato la richiesta nella sezione macro.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  8. #7
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    Roma
    EtÓ
    45
    Messaggi
    1168
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    570

    Re: Numerazione Progressiva

    grazie Ges....detto da te Ŕ un onore....

  9. #8
    L'avatar di ric91
    Clicca e Apri
    Data Registrazione
    Feb 2016
    LocalitÓ
    Voghera
    EtÓ
    26
    Messaggi
    35
    Versione Office
    excel2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Numerazione Progressiva

    Ringrazio molto entrambi per le soluzioni proposte!

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

    Re: Numerazione Progressiva

    Mi son permesso di modificare leggermente il codice di Ges (che saluto) poichŔ calcola la somma dei numeri progressivi all'interno di un ciclo, ed ho messo la somma solo a fine ciclo, niente di clamoroso ovviamente, ma su grossi numeri potrebbe incidere notevolmente.
    Ecco la proposta:
    Codice: 
    Sub Aggressiv()'by Cuc¨
    Dim uRow As Long, i As Integer, C As Range
        
    uRow = Cells(Rows.Count, 3).End(xlUp).Row
    i = 1
    With Range(Cells(2, 2), Cells(uRow + 1, 2))
        .ClearContents
        .Interior.ColorIndex = xlNone
    End With
    For Each C In Range(Cells(2, 3), Cells(uRow + 1, 3))
        If C <> "IC10" And C <> "GL01" Then
            C.Offset(, -1) = i
            i = i + 1
        End If
    Next C
    Cells(uRow + 1, 2).Interior.ColorIndex = 6
    Cells(uRow + 1, 2) = Application.Sum(Range(Cells(2, 2), Cells(uRow, 2)))
    End Sub

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Allora, se ho ben capito:

    Rileggendo il file mi sembra che chiedi anche la somma dei numeri progressivi, nel caso sia cosý, ti propongo questa variazione:

    Codice: 
    Option Explicit
    Sub progressivi()
        Dim uRow As Long, i As Integer, y As Integer
            uRow = Cells(Rows.Count, 3).End(xlUp).Row
            Range(Cells(2, 2), Cells(uRow + 1, 2)) = ""
            Range(Cells(2, 2), Cells(uRow + 1, 2)).Interior.ColorIndex = xlNone
            i = 1
                For y = 2 To uRow
                    If Cells(y, 3) = "IC10" Or Cells(y, 3) = "GL01" Then
                        Cells(y, 2) = ""
                    Else
                        Cells(y, 2) = i
                i = i + 1
                    End If
                    Cells(uRow + 1, 2) = Cells(uRow + 1, 2) + Cells(y, 2)
                    Cells(uRow + 1, 2).Interior.ColorIndex = 6
                Next
    End Sub

  11. #10

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

    Re: Numerazione Progressiva

    Citazione Originariamente Scritto da Cuc¨^_^ Visualizza Messaggio
    Mi son permesso di modificare leggermente il codice di Ges (che saluto) poichŔ calcola la somma dei numeri progressivi all'interno di un ciclo, ed ho messo la somma solo a fine ciclo, niente di clamoroso ovviamente, ma su grossi numeri potrebbe incidere notevolmente.
    ..
    Ciao Cuc¨,
    ben accette le alternative, ma perchŔ
    Codice: 
     Cells(uRow + 1, 2) = Cells(uRow + 1, 2) + Cells(y, 2)
    dovrebbe "incidere notevolmente" sui grossi numeri?
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

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

    Re: Numerazione Progressiva

    Ad ogni ciclo da 1 a Urow (che puo essere 10 ma anche 10.000) ti va a calcolare e a modificare la cella del totale, ma siccome a te non serve saper volta per volta che valore assume la somma dei numeri progressivi, ma ti serve sapere solo alla fine, forse, e dico forse, conviene tralasciare questo calcolo nel ciclo e inserire un unico comando alla fine che ti somma il tutto, come ho fatto io inserendo alla fine una semplice somma di tutti i numeri. (per inciso stessa cosa vale anche ovviamente per
    Codice: 
    Cells(uRow + 1, 2).Interior.ColorIndex = 6 & Cells(y, 2) = ""
    )
    Cuc¨

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao Cuc¨,
    ben accette le alternative, ma perchŔ
    Codice: 
     Cells(uRow + 1, 2) = Cells(uRow + 1, 2) + Cells(y, 2)
    dovrebbe "incidere notevolmente" sui grossi numeri?
    PS ti allego l'esempio con sole 500 righe.
    File Allegati File Allegati

  13. #12

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

    Re: Numerazione Progressiva

    Ok, grazie.
    Ciao
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

Discussioni Simili

  1. [Risolto] Numerazione automatica
    Di sergiogranero nel forum Domande su Excel in generale
    Risposte: 15
    Ultimo Messaggio: 02/12/16, 19:58
  2. [Risolto] Formula Numerazione Progressiva
    Di Bright nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 28/11/16, 13:10
  3. somma progressiva da pi¨ fogli
    Di 84pmempoli nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 22/07/16, 02:50
  4. Data progressiva per soli giorni feriali
    Di maverick69net nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 11/07/16, 11:15
  5. Somma progressiva
    Di vtedone nel forum Domande su Excel in generale
    Risposte: 28
    Ultimo Messaggio: 04/12/15, 20:19

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
  •