Risultati da 1 a 15 di 15

Discussione: Controllo colonne



  1. #1
    L'avatar di Luis
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Messaggi
    9
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    Controllo colonne

    Ciao a tutti

    Devo fare una controllo su delle colonne nel caso del file che allego a1:d9 e I1: L9 (in.E1 H9 la loro differenza
    Che deve risultare sempre 0) ; nel caso dovrei prendere il range a4 d4 spostarlo 2 righe in fondo all'elenco
    Prendere il range a5 d5 e spostarlo in su in modo da azzerare la riga e4 h4 e cosi via
    Ultima modifica fatta da:Gerardo Zuccalà; 05/12/15 alle 21:14

  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 luis Visualizza Messaggio
    Ciao a tutti

    Devo fare una controllo su delle colonne nel caso del file che allego a1:d9 e I1: L9 (in.E1 H9 la loro differenza
    Che deve risultare sempre 0) ; nel caso dovrei prendere il range a4 d4 spostarlo 2 righe in fondo all'elenco
    Prendere il range a5 d5 e spostarlo in su in modo da azzerare la riga e4 h4 e cosi via


    Allegato 1214
    Codice: 
    11115543 23 32123 0 0 0 0 0 11115543 23 32123 0
    11115543 210 0 300 0 0 0 0 11115543 210 0 300
    11774561 10 21 0 0 0 0 0 11774561 10 21 0
    11166567 15 0 63,93 0 0 0 0 11166567 15 0 63,93
    11166976 85 15 0 0 0 0 0 11166976 85 15 0
    11166976 663 0 1026 0 0 0 0 11166976 663 0 1026
    11166976 18 0 22 0 0 0 0 11166976 18 0 22
    11155431 210 56 0 0 0 0 0 11155431 210 56 0
    -1,1E+07 -19 0 -111 11155431 19 0 111
    11166955 15 0 191,48
    ciao Luis ma il risultato poi sarebbe questo? e l'ultima riga che fine fa? e quella tolta?

    Perchè nel file non metti il risultato che dovresti avere magari evidenziandolo con un colore di cella diverso?

    Aspetto un tuo riscontro.

    Ciao

    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 Luis
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Messaggi
    9
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0
    Ciao Baloon
    Si il risultato deve essere quello;Tieni presente che nel file originale le righe sono circa 30.000 quindi il range E1...H30000 deve essere tutto a zero
    E le righe tolte devono rimanere in basso a sx

  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
    Citazione Originariamente Scritto da luis Visualizza Messaggio
    Ciao Baloon
    Si il risultato deve essere quello;Tieni presente che nel file originale le righe sono circa 30.000 quindi il range E1...H30000 deve essere tutto a zero
    E le righe tolte devono rimanere in basso a sx
    ciao Luis scusa se ancora ti chiedo chiarimenti ma non vorrei fare un lavoro per nulla.

    in pratica dovrei prendere la prima riga (I1,J1,K1,L1) e confrontarla con le altre 29.999 (A1,B1,C1,D1) per verificare se le due differenze vanno a zero e se sì spostare da A1 a D1 sulla riga 30.002 poi la prossima su 30.003 e così via giusto?
    Tutte quelle che rimangono e che non si accoppiano (non danno zero) vanno anche loro in fondo? (vedi per esempio l'ultima riga del tuo file)
    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 Luis
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Messaggi
    9
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0
    Ciao Baloon
    Innanzitutto grazie, poi si il confronto va fatto tra tutte le righe adiacenti partendo da
    A1,B1,C1,D1 deve essere uguale a I1,J1,K1,L1, differenza in celle E1,F1,G1,H1 = a zero
    A2,B2,C2,D2 deve essere uguale a I2,J2,K2,L2 diff in celle E2,F2,G2,H2 = a zero ,cosi via per tutte le 30000 righe
    In caso ci siano differenze prendere la riga di sx cancellarla e spostarla in fondo

  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
    Citazione Originariamente Scritto da luis Visualizza Messaggio
    Ciao Baloon
    Innanzitutto grazie, poi si il confronto va fatto tra tutte le righe adiacenti partendo da
    A1,B1,C1,D1 deve essere uguale a I1,J1,K1,L1, differenza in celle E1,F1,G1,H1 = a zero
    A2,B2,C2,D2 deve essere uguale a I2,J2,K2,L2 diff in celle E2,F2,G2,H2 = a zero ,cosi via per tutte le 30000 righe
    In caso ci siano differenze prendere la riga di sx cancellarla e spostarla in fondo
    Ok domani mi ci dedico e quando ho finito ti allego il file
    Per adesso :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)

  7. #7
    L'avatar di Luis
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Messaggi
    9
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0
    Ciao e grazie

  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
    Citazione Originariamente Scritto da luis Visualizza Messaggio
    Ciao Baloon
    Innanzitutto grazie, poi si il confronto va fatto tra tutte le righe adiacenti partendo da
    A1,B1,C1,D1 deve essere uguale a I1,J1,K1,L1, differenza in celle E1,F1,G1,H1 = a zero
    A2,B2,C2,D2 deve essere uguale a I2,J2,K2,L2 diff in celle E2,F2,G2,H2 = a zero ,cosi via per tutte le 30000 righe
    In caso ci siano differenze prendere la riga di sx cancellarla e spostarla in fondo
    Ciao Luis credo di essere riuscito a risolvere il tuo problema prova a vedere se ti va bene. (ti ho lasciato un appunto sul foglio che naturalmente puoi cancellare dopo avelo letto)
    Fammi sapere come va!

    Codice: 
    Option Explicit
    
    Sub estraiDati()
    
    
    Dim uriga, rigaultima As Long
    Dim i, e As Integer
    Dim totale1
    Dim totale2
    
    
    Application.ScreenUpdating = False
    
    
    uriga = Cells(Rows.Count, 9).End(xlUp).Row
    rigaultima = uriga + 3
    
    
     For i = 1 To uriga
    paragona:
            totale1 = Range("I" & i).Value + Range("J" & i).Value + _
            Range("K" & i).Value + Range("L" & i).Value
            totale2 = Range("A" & i).Value + Range("B" & i).Value + _
            Range("C" & i).Value + Range("D" & i).Value
            If totale2 = 0 Then
                Range("E" & i & ":H" & i).Value = ""
                Application.ScreenUpdating = True
                MsgBox ("Elaborazione terminata"), vbInformation
                Range("A1").Select
                Exit Sub
            End If
                If totale1 - totale2 <> 0 Then
                    Range("A" & i & ":D" & i).Copy
                    Range("A" & rigaultima).PasteSpecial
                    Range("A" & i & ":D" & i).Delete Shift:=xlUp
                    Range("E" & i).Value = Range("I" & i).Value - Range("A" & i).Value
                    Range("F" & i).Value = Range("J" & i).Value - Range("B" & i).Value
                    Range("G" & i).Value = Range("K" & i).Value - Range("C" & i).Value
                    Range("H" & i).Value = Range("L" & i).Value - Range("D" & i).Value
                    GoTo paragona
                Else
                    Range("E" & i).Value = Range("I" & i).Value - Range("A" & i).Value
                    Range("F" & i).Value = Range("J" & i).Value - Range("B" & i).Value
                    Range("G" & i).Value = Range("K" & i).Value - Range("C" & i).Value
                    Range("H" & i).Value = Range("L" & i).Value - Range("D" & i).Value
                End If
     Next
    
    
    Application.ScreenUpdating = True
    
    
    End Sub

    :999:
    Ultima modifica fatta da:Gerardo Zuccalà; 06/12/15 alle 17:18

    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 Luis
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Messaggi
    9
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0
    Ciao grazie 1000 Baloon
    Domani proverò in ufficio la routine con il file corposo.....e ti faccio sapere
    Intanto provo a cercare di capire il codice
    :28:

  10. #10
    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 luis Visualizza Messaggio
    Ciao grazie 1000 Baloon
    Domani proverò in ufficio la routine con il file corposo.....e ti faccio sapere
    Intanto provo a cercare di capire il codice
    :28:
    ok attendo tue notizie

    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)

  11. #11
    L'avatar di Luis
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Messaggi
    9
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    controllo colonne

    Ciao Baloon
    ho provato finalmente....ma la macro si blocca forse troppe righe da esaminare vedi foglio controllo del file ???' e poi
    in caso capiti un codice alfanumerico(non dovrebbero quasi mai esserci)si puo' intercettare ???ti allego il link dove e' presente il file che sto costruendo
    ti ringrazio come sempre

    https://www.dropbox.com/s/bw617x8xig...range.xls?dl=0

  12. #12
    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 luis Visualizza Messaggio
    Ciao Baloon
    ho provato finalmente....ma la macro si blocca forse troppe righe da esaminare vedi foglio controllo del file ???' e poi
    in caso capiti un codice alfanumerico(non dovrebbero quasi mai esserci)si puo' intercettare ???ti allego il link dove e' presente il file che sto costruendo
    ti ringrazio come sempre

    https://www.dropbox.com/s/bw617x8xig...range.xls?dl=0
    a me ancora non si è bloccata ma vrdo ci voglia tanto tempo perchè le righe da esaminare sono tante. da quando ho scaricato il file (21.20) sta lavorando. ti farò sapere appena finisce ma credo ci voglia molto. sono a 10050000 e deve arrivare a 11053000

    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)

  13. #13
    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 luis Visualizza Messaggio
    Ciao Baloon
    ho provato finalmente....ma la macro si blocca forse troppe righe da esaminare vedi foglio controllo del file ???' e poi
    in caso capiti un codice alfanumerico(non dovrebbero quasi mai esserci)si puo' intercettare ???ti allego il link dove e' presente il file che sto costruendo
    ti ringrazio come sempre

    https://www.dropbox.com/s/bw617x8xig...range.xls?dl=0
    Caro Luis ho iniziato l'elaborazione alle 21.20 la stessa è terminata alle 22.24 ed ha trovato una differenza = 0 solo per 155 righe.
    Non so a cosa possa servire questo lavoro ma forse ti conviene elaborarlo a mezzogiorno quando vai mangiare così quando torni avrà finito eheheh.

    ti allego il tuo file elaborato.

    https://www.dropbox.com/s/rnn4le6v5c...range.xls?dl=0

    :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)

  14. #14
    L'avatar di Luis
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Messaggi
    9
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0
    Purtroppo Baloon è un controllo standard che devo fornire ahimè mensilmente ;tra dati che vengono imputati da più persone lato sx e
    dati elaborati lato dx e giustificare le differenze

    Grazie e ciao

  15. #15
    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 luis Visualizza Messaggio
    Purtroppo Baloon è un controllo standard che devo fornire ahimè mensilmente ;tra dati che vengono imputati da più persone lato sx e
    dati elaborati lato dx e giustificare le differenze

    Grazie e ciao
    Vabbè ti auguro buon lavoro.
    comunque il codice funziona l'unica cosa appunto è che devi avere pazienza (come ho fatto io per un'ora e qualcosa).
    A questo punto direi che il problema è a posto perciò, per cortesia, dovresti segnare questa discussione come [RISOLTO]Vai nella barra dei menu, situata all'inizio di questa discussione, troverai il menu “Strumenti Discussione” quindi scegli “Segna questo Thread come risolto”

    Grazie ancora :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)

Discussioni Simili

  1. [Risolto] Controllo glicemia
    Di pgft nel forum Domande sui Grafici di Excel
    Risposte: 4
    Ultimo Messaggio: 28/10/16, 11:56
  2. Controllo valori a coppie di colonne
    Di andre nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 22/07/16, 01:15
  3. Grafico con istogrammi in colonne raggruppate e in colonne in pila
    Di Duchess@71 nel forum Domande sui Grafici di Excel
    Risposte: 2
    Ultimo Messaggio: 10/05/16, 08:49
  4. Controllo moduli - casella di controllo
    Di CRISTIAN nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 03/05/16, 22:55
  5. Caselle di controllo
    Di and.vall nel forum Domande su Excel VBA e MACRO
    Risposte: 19
    Ultimo Messaggio: 14/09/15, 11:33

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
  •