Risultati da 1 a 14 di 14

Discussione: Unione Celle con contenuto uguale con macro vba.



  1. #1
    L'avatar di Mastorin
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Forlì
    Messaggi
    7
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    3

    Unione Celle con contenuto uguale con macro vba.

    Buongiorno, sono nuovo del forum e preciso di non essere esperto di VBA, ma avendo l'esigenza di seguito specificata, ho provato ad adattare un codice trovato in rete ma che non riesco ad adattare per il mio caso.
    In poche parole, ho l'esigenza di unire moltissimi dati uguali in colonna (impossibile da fare a mano).
    In particolare, ho tre colonne di cui:
    -nella prima, ho delle date di cui vorrei si unissero quelle uguali per poi visualizzarle con testo in verticale;
    -nella seconda colonna ho dei nominativi da unire (se sono uguali), visualizzando anch'essi in verticale mantenendo la cronologia/ordine in cui sono stati inseriti;
    -nella terza colonna, devo solo unire i dati uguali e centrare il testo.

    Infine, avrei bisogno che il codice funzionasse per tutti e 5 i fogli presenti nel File.
    Il file si chiama "PS", e i fogli: Lun, Mar, Mer, Gio, Ven.
    Per spiegarvi meglio la mia richiesta, vi allego un immagine con l'esempio (in scala ridotta), in cui a destra ho inserito il risultato finale che vorrei ottenere.

    Potreste aiutarmi gentilmente...

    Grazie mille.

    (N.B. l'esempio e ricavato da Excel 2007)



  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Unione Celle con contenuto uguale con macro vba.

    Ciao Mastorin,
    certo che la tua richiesta non è proprio nello spirito del forum visto che stai solamente chiedendo che ti venga fatto il lavoro...

    Comunque sia, se vuoi qualche aiuto devi allegare il file (con l'immagine non ci si può fare nulla).

    Ciao

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  3. #3

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7147
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1300

    Re: Unione Celle con contenuto uguale con macro vba.

    Visto l'argomento,ho spostato la discussione in macro.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Unione Celle con contenuto uguale con macro vba.

    Prova così:
    Codice: 
    Sub Organizza()
    Dim uRiga As Long
    Dim iCount As Long
    Dim iCol As Integer
    Dim Inizio As Long
    Dim Fine As Long
    
    
    uRiga = Range("A" & Rows.Count).End(xlUp).Row
    
    
    Application.DisplayAlerts = False
    
    
    For iCol = 1 To 3
        For iCount = 6 To uRiga
            Inizio = iCount
            Do While Cells(iCount, iCol) = Cells(iCount + 1, iCol)
                iCount = iCount + 1
            Loop
            Fine = iCount
            With Range(Cells(Inizio, iCol), Cells(Fine, iCol))
                .Merge
                .VerticalAlignment = xlCenter
            End With
        Next iCount
    Next iCol
            
    Application.DisplayAlerts = True
        
    End Sub

  5. I seguenti utenti hanno dato un "Like"


  6. #5
    L'avatar di Mastorin
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Forlì
    Messaggi
    7
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    3

    Re: Unione Celle con contenuto uguale con macro vba.

    Ciao,
    so bene di aver chiesto tanto, ma credimi è da mesi che mi sbatto per risolverequesto problema, nonostante le mie lacune in vba, ma ho ottenuto risultati soddisfacenti solo per la prima colonna...
    qualora voleste aiutarmi, vi allego il file d'esempio.

    Grazie mille per l'interessamento


    File Allegati File Allegati
    • Tipo File: xlsx PS.xlsx (12.2 KB, 19 Visualizzazioni)

  7. #6
    L'avatar di Mastorin
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Forlì
    Messaggi
    7
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    3

    Re: Unione Celle con contenuto uguale con macro vba.

    E' perfetto grazie!!!! l'unica cosa che non ottengo da questo codice è il testo in verticale delle prime due colonne A e B. E' possibile integrare il codice con questa'altra funzionalità?

  8. #7

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Unione Celle con contenuto uguale con macro vba.

    Ciao a tutti,

    nel codice di rubik (un saluto) aggiungi queste righe (in rosso):

    Codice: 
    Sub Organizza()
    Dim uRiga As Long
    Dim iCount As Long
    Dim iCol As Integer
    Dim Inizio As Long
    Dim Fine As Long
    
    
    uRiga = Range("A" & Rows.Count).End(xlUp).Row
    Application.DisplayAlerts = False
    
    
    For iCol = 1 To 3
        For iCount = 6 To uRiga
            Inizio = iCount
            Do While Cells(iCount, iCol) = Cells(iCount + 1, iCol)
                iCount = iCount + 1
            Loop
            Fine = iCount
            With Range(Cells(Inizio, iCol), Cells(Fine, iCol))
                .Merge
                .VerticalAlignment = xlCenter
                If iCol <> 3 Then
                    .Orientation = 90
                End If
            End With
        Next iCount
    Next iCol
    Application.DisplayAlerts = True
    End Sub

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  9. I seguenti utenti hanno dato un "Like"


  10. #8

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Unione Celle con contenuto uguale con macro vba.

    Modifica così:
    Codice: 
    Sub Organizza()
    Dim uRiga As Long
    Dim iCount As Long
    Dim iCol As Integer
    Dim Inizio As Long
    Dim Fine As Long
    
    
    uRiga = Range("A" & Rows.Count).End(xlUp).Row
    
    
    Application.DisplayAlerts = False
    
    
    For iCol = 1 To 3
        For iCount = 7 To uRiga
            Inizio = iCount
            Do While Cells(iCount, iCol) = Cells(iCount + 1, iCol)
                iCount = iCount + 1
            Loop
            Fine = iCount
            With Range(Cells(Inizio, iCol), Cells(Fine, iCol))
                .Merge
                .VerticalAlignment = xlCenter
            End With
        Next iCount
    Next iCol
            
    Application.DisplayAlerts = True
        
    End Sub
    Edit: 66°?

  11. I seguenti utenti hanno dato un "Like"


  12. #9
    L'avatar di Mastorin
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Forlì
    Messaggi
    7
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    3

    Re: Unione Celle con contenuto uguale con macro vba.

    Grandioso!!! E' quello che cercavo...
    proverò ancora sul file originale da lavoro, ma credo che sia perfetto.
    grazie mille davvero...RubiK72 e Cromagno, forse per voi è poca roba, ma per me siete alieni informatici allo stato puro....

  13. #10
    L'avatar di Mastorin
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Forlì
    Messaggi
    7
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    3

    Re: Unione Celle con contenuto uguale con macro vba.

    Scusa, Cosa intendi per 66°?

  14. #11

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Unione Celle con contenuto uguale con macro vba.

    Citazione Originariamente Scritto da Mastorin Visualizza Messaggio
    Grandioso!!! E' quello che cercavo...
    proverò ancora sul file originale da lavoro, ma credo che sia perfetto.
    grazie mille davvero...RubiK72 e Cromagno, forse per voi è poca roba, ma per me siete alieni informatici allo stato puro....
    Ciao Mastorin,

    anche io non ho capito i "66°".....

    comunque,
    se hai risolto il problema, segna questo thread come "RISOLTO".
    Vai sul menù "Strumenti Discussione" (all'inizio del thread) e scegli la voce "Segna questa discussione come Risolta...".

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  15. #12
    L'avatar di Mastorin
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Forlì
    Messaggi
    7
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    3

    Re: Unione Celle con contenuto uguale con macro vba.

    Ciao, ragazzi ho provato il codice con il file da lavoro, ma mi sono accorto di avere fatto un errore, o dimenticato di inserire una colonna "Periodi" :292: tra la colonna "Ente" e "Pl", che non deve essere inclusa nel codice vba, ma rimanere così com'è. Ho provato da solo a rettificare il codice, per certi aspetti funziona ma non mi esclude la colonna "C". Vi mostro il codice e un immagine di ciò che vi ho spiegato. È possibile rettificarlo?

    grazie ancora e scusate...

    Codice: 
    Sub Organizza()
    Dim uRiga As Long
    Dim iCount As Long
    Dim iCol As Integer
    Dim Inizio As Long
    Dim Fine As Long
    
    
    uRiga = Range("A" & Rows.Count).End(xlUp).Row
    Application.DisplayAlerts = False
    
    
    For iCol = 1 To 4
    For iCount = 6 To uRiga
    Inizio = iCount
    Do While Cells(iCount, iCol) = Cells(iCount + 1, iCol)
    iCount = iCount + 1
    Loop
    Fine = iCount
    With Range(Cells(Inizio, iCol), Cells(Fine, iCol))
    .Merge
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    If iCol <> 3 Then
    .HorizontalAlignment = xlCenter
    .Orientation = 90
    If iCol = 4 Then
    .HorizontalAlignment = xlCenter
    .Orientation = 0
    
    End If
    End If
    
    End With
    Next iCount
    Next iCol
    Application.DisplayAlerts = True
    End Sub
    Ultima modifica fatta da:Gerardo Zuccalà; 28/04/16 alle 10:56 Motivo: messo il codice tra tag CODE

  16. #13

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Unione Celle con contenuto uguale con macro vba.

    Ecco la soluzione per saltare la colonna 3:
    Codice: 
    Sub Organizza()
    Dim uRiga As Long
    Dim iCount As Long
    Dim iCol As Integer
    Dim Inizio As Long
    Dim Fine As Long
    
    
    uRiga = Range("A" & Rows.Count).End(xlUp).Row
    Application.DisplayAlerts = False
    
    
    For iCol = 1 To 4
        If iCol = 3 Then iCol = 4
        For iCount = 7 To uRiga
            Inizio = iCount
            Do While Cells(iCount, iCol) = Cells(iCount + 1, iCol)
                iCount = iCount + 1
            Loop
            Fine = iCount
            With Range(Cells(Inizio, iCol), Cells(Fine, iCol))
                .Merge
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
                If iCol < 3 Then
                    .Orientation = 90
                ElseIf iCol = 4 Then
                    .Orientation = 0
                End If
            End With
        Next iCount
    Next iCol
    Application.DisplayAlerts = True
    End Sub

  17. I seguenti utenti hanno dato un "Like"


  18. #14
    L'avatar di Mastorin
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Forlì
    Messaggi
    7
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    3

    Re: Unione Celle con contenuto uguale con macro vba.

    Grazie mille Rubik72, adesso ho risolto.
    grazie a tutti.

Discussioni Simili

  1. Comando SE uguale per diverse celle
    Di fabiuspizza nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 26/02/17, 22:14
  2. [Risolto] Unione di più celle
    Di Darkness nel forum Domande su Excel VBA e MACRO
    Risposte: 20
    Ultimo Messaggio: 16/01/17, 21:45
  3. [Risolto] Evidenziare articoli con descrizione uguale data di carico uguale ma codice prodotto disverso
    Di ginofamilio nel forum Domande su Excel VBA e MACRO
    Risposte: 18
    Ultimo Messaggio: 29/12/16, 11:06
  4. Problema su Macro per numero in un campo uguale ad altri
    Di Kinoppi90 nel forum Domande su Excel VBA e MACRO
    Risposte: 12
    Ultimo Messaggio: 30/09/16, 11:45
  5. Cambiare colore a riga/colonna di celle se una cella uguale ad un testo
    Di Cavier80 nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 22/05/16, 13:23

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
  •