Risultati da 1 a 11 di 11

Discussione: Inserie spazi vuoti automaticamente in serie di numeri in una colonna



  1. #1
    L'avatar di tigertaffa
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    bergamo
    Messaggi
    10
    Versione Office
    Excelmac15.13.3
    Likes ricevuti
    0
    Likes dati
    1

    Inserie spazi vuoti automaticamente in serie di numeri in una colonna

    ciao ragazzi
    oh...adesso che sono operativo, subito sono fermo perchŔ sono bloccato :-) e per questo chiedo il vostro aiuto:
    Ho due colonne con dei dati:

    A B
    300 30
    310 40
    320 60
    330 70
    ecc

    Io vorrei che automaticamente il sistema, su richiesta ovviamente, inserisca una riga vuota tra i dati e negli spazi vuoti ci inserisca la media tra il numero sopra e quello immediatamente sotto alla riga vuota appena creato, esempio:

    A B
    300 30
    305 35
    310 40
    315 50
    320 60
    325 65
    330 70
    ecc

    Idee ?
    Ultima modifica fatta da:tigertaffa; 26/09/16 alle 19:29 Motivo: sbaglio nell'impaginazione

  2. #2
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    45
    Messaggi
    178
    Versione Office
    2010
    Likes ricevuti
    32
    Likes dati
    8

    Re: Inserie spazi vuoti automaticamente in serie di numeri in una colonna

    Citazione Originariamente Scritto da tigertaffa Visualizza Messaggio
    ciao ragazzi
    oh...adesso che sono operativo, subito sono fermo perchŔ sono bloccato :-)
    Dove sei bloccato?
    Posta il file (anche di esempio) con quello che hai fatto...

    Cuc¨

  3. #3
    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    5337
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    1714
    Likes dati
    1093

    Re: Inserie spazi vuoti automaticamente in serie di numeri in una colonna

    Ciao,
    mettiamo che i tuoi dati partano dalle colonne A1 B1:

    Codice: 
    Option Explicit
    Sub inserisci()
    Dim y As Long, uRiga As Long
    uRiga = Cells(Rows.Count, 1).End(xlUp).Row
        For y = 2 To uRiga Step 2
            Cells(y, 1).EntireRow.Insert
            Cells(y, 1) = Cells(y + 1, 1) - (Cells(y + 1, 1) - Cells(y - 1, 1)) / 2
            Cells(y, 2) = Cells(y + 1, 2) - (Cells(y + 1, 2) - Cells(y - 1, 2)) / 2
        Next
    End Sub
    EDIT: Ciao Cuc¨, avevo lasciato la pagina aperta senza fare il refresh e mi era sfuggita la tua risposta.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  4. I seguenti utenti hanno dato un "Like"


  5. #4
    L'avatar di tigertaffa
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    bergamo
    Messaggi
    10
    Versione Office
    Excelmac15.13.3
    Likes ricevuti
    0
    Likes dati
    1

    Re: Inserie spazi vuoti automaticamente in serie di numeri in una colonna

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao,
    mettiamo che i tuoi dati partano dalle colonne A1 B1:

    Codice: 
    Option Explicit
    Sub inserisci()
    Dim y As Long, uRiga As Long
    uRiga = Cells(Rows.Count, 1).End(xlUp).Row
        For y = 2 To uRiga Step 2
            Cells(y, 1).EntireRow.Insert
            Cells(y, 1) = Cells(y + 1, 1) - (Cells(y + 1, 1) - Cells(y - 1, 1)) / 2
            Cells(y, 2) = Cells(y + 1, 2) - (Cells(y + 1, 2) - Cells(y - 1, 2)) / 2
        Next
    End Sub
    EDIT: Ciao Cuc¨, avevo lasciato la pagina aperta senza fare il refresh e mi era sfuggita la tua risposta.

    Perfetto il tuo codice
    grazie mille
    Adesso cerco di capirlo....perchŔ alla fine l'obiettivo Ŕ quello di imparare !!
    Grazie

  6. #5
    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    5337
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    1714
    Likes dati
    1093

    Re: Inserie spazi vuoti automaticamente in serie di numeri in una colonna

    Citazione Originariamente Scritto da tigertaffa Visualizza Messaggio
    ...
    Adesso cerco di capirlo....perchŔ alla fine l'obiettivo Ŕ quello di imparare !!
    .....
    Ottimo!

    Te lo commento allora:
    Codice: 
    Option Explicit
    Sub inserisci()
    Dim y As Long, uRiga As Long 'Dichiaro le variabili
    uRiga = Cells(Rows.Count, 1).End(xlUp).Row 'Trovo l'ultima riga piena della colonna A
        For y = 2 To uRiga Step 2 'Avvio un ciclo dalla riga 2 all'ultima piena (uRiga), saltando di una riga (Step 2)
            Cells(y, 1).EntireRow.Insert 'Ogni salto aggiungo una riga vuota
            Cells(y, 1) = Cells(y + 1, 1) - (Cells(y + 1, 1) - Cells(y - 1, 1)) / 2 'nella riga vuota - che la trova col ciclo che salta una riga - ci metto l'operazione che vedi sia nella colonna A ....
          Cells(y, 2) = Cells(y + 1, 2) - (Cells(y + 1, 2) - Cells(y - 1, 2)) / 2 ' ... sia nella colonna B
        Next
    End Sub
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  7. #6
    L'avatar di tigertaffa
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    bergamo
    Messaggi
    10
    Versione Office
    Excelmac15.13.3
    Likes ricevuti
    0
    Likes dati
    1

    Re: Inserie spazi vuoti automaticamente in serie di numeri in una colonna

    Veramente grazie

  8. #7
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    Cordenons
    Messaggi
    649
    Versione Office
    2010 64bit
    Likes ricevuti
    106
    Likes dati
    38

    Re: Inserie spazi vuoti automaticamente in serie di numeri in una colonna

    @ges , credo che cosý viene meglio ancora meglio:
    Codice: 
    Option Explicit
    
    Sub inserisci()
    
        Dim y As Long, uRiga As Long
    
        uRiga = Cells(Rows.Count, 1).End(xlUp).Row
        For y = uRiga To 2 Step -1
            Cells(y, 1).EntireRow.Insert
            Cells(y, 1) = Cells(y + 1, 1) - (Cells(y + 1, 1) - Cells(y - 1, 1)) / 2
            Cells(y, 2) = Cells(y + 1, 2) - (Cells(y + 1, 2) - Cells(y - 1, 2)) / 2
        Next
    
    End Sub

  9. #8
    L'avatar di tigertaffa
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    bergamo
    Messaggi
    10
    Versione Office
    Excelmac15.13.3
    Likes ricevuti
    0
    Likes dati
    1

    Re: Inserie spazi vuoti automaticamente in serie di numeri in una colonna

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ottimo!

    Te lo commento allora:
    Codice: 
    Option Explicit
    Sub inserisci()
    Dim y As Long, uRiga As Long 'Dichiaro le variabili
    uRiga = Cells(Rows.Count, 1).End(xlUp).Row 'Trovo l'ultima riga piena della colonna A
        For y = 2 To uRiga Step 2 'Avvio un ciclo dalla riga 2 all'ultima piena (uRiga), saltando di una riga (Step 2)
            Cells(y, 1).EntireRow.Insert 'Ogni salto aggiungo una riga vuota
            Cells(y, 1) = Cells(y + 1, 1) - (Cells(y + 1, 1) - Cells(y - 1, 1)) / 2 'nella riga vuota - che la trova col ciclo che salta una riga - ci metto l'operazione che vedi sia nella colonna A ....
          Cells(y, 2) = Cells(y + 1, 2) - (Cells(y + 1, 2) - Cells(y - 1, 2)) / 2 ' ... sia nella colonna B
        Next
    End Sub

    Scusa ges
    mi sono accorto di un problema nel codice....il ciclo va dalla riga 2 fino all'ultima riga piena....ma cosý facendo il campo ad un certo punto si accorcia e si restringe sempre pi¨ lasciando le ultime righe non processate...vedi esempio allegato
    File Allegati File Allegati

  10. #9
    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    5337
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    1714
    Likes dati
    1093

    Re: Inserie spazi vuoti automaticamente in serie di numeri in una colonna

    Citazione Originariamente Scritto da rollis13 Visualizza Messaggio
    @ges , credo che cosý viene meglio ancora meglio:
    Codice: 
    Option Explicit
    
    Sub inserisci()
    
        Dim y As Long, uRiga As Long
    
        uRiga = Cells(Rows.Count, 1).End(xlUp).Row
        For y = uRiga To 2 Step -1
            Cells(y, 1).EntireRow.Insert
            Cells(y, 1) = Cells(y + 1, 1) - (Cells(y + 1, 1) - Cells(y - 1, 1)) / 2
            Cells(y, 2) = Cells(y + 1, 2) - (Cells(y + 1, 2) - Cells(y - 1, 2)) / 2
        Next
    
    End Sub
    Ciao Rollis, effettivamente Ŕ un buon consiglio.

    @Tiger: modifica la riga rossa postata da Rollis, partendo dal basso.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  11. #10
    L'avatar di tigertaffa
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    bergamo
    Messaggi
    10
    Versione Office
    Excelmac15.13.3
    Likes ricevuti
    0
    Likes dati
    1

    Re: Inserie spazi vuoti automaticamente in serie di numeri in una colonna

    Perfetto, grazie

  12. #11
    L'avatar di dracoscrigno
    Clicca e Apri
    Data Registrazione
    May 2016
    LocalitÓ
    ferrara
    EtÓ
    41
    Messaggi
    1741
    Versione Office
    office pro 2010
    Likes ricevuti
    374
    Likes dati
    206

    Re: Inserie spazi vuoti automaticamente in serie di numeri in una colonna

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao Rollis, effettivamente Ŕ un buon consiglio.

    @Tiger: modifica la riga rossa postata da Rollis, partendo dal basso.

    E' un errore che facevo spesso dimenticando che il ciclo for non aggiorna i propri dati ad ogni giro del ciclo

    Codice: 
    variabile = 10
    for ciclo = 1 to variabile
        debug.print ciclo,variabile
        variabile = variabile+1
        if variabile = 100 then exit for
    next
    di primo acchito si potrebbe esser portati a pensare che il ciclo arrivi fino a (variabile = 100) invece, dopo la decima volta, il ciclo for terminerÓ
    E' sempre il solito mangiatore di mele e donatore di idee che tira fuori queste chicche

    Per questo motivo in molti casi come quello dell' aggiunta di una riga o di una colonna, ma anche nell' aggiunta o rimozione di un elemento da una collection piuttosto che da un array, Ŕ sempre buona norma partire dall' ultimo elemento verso il primo. oppure cambiare pparocio ed utilizzare loop pi¨ versatili anche se pi¨ ingombranti come il Do....Loop

  13. I seguenti utenti hanno dato un "Like"

    ges

Discussioni Simili

  1. [Risolto] Elenco in convalida dati con doppia colonna che richiama automaticamente un dato
    Di Domynix nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 05/01/17, 11:02
  2. [Risolto] trovare i massimi in una serie di 24 dati in una lunghissima serie
    Di SiorTodero nel forum Domande su Excel in generale
    Risposte: 18
    Ultimo Messaggio: 25/11/16, 09:57
  3. [Risolto] Moltiplicare una colonna di numeri per tutti i numeri di un'altra proseguendo in colonna
    Di simo1707 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 05/10/16, 10:13
  4. Copiare dati senza lasciare spazi vuoti
    Di lala10 nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 03/05/16, 12:07
  5. Annulla spazi vuoti
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 20/07/15, 16:06

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
  •