none
Necesito una macro que me una las filas para los registros iguales RRS feed

  • Pregunta

  • Necesito una macro que me una las filas para los registros iguales por ejemplo:
    EXpediente                            Motivo
    idh-1500079         El CIF de la Comunidad de Propietarios del documento adjunto como factura no coincide con el informado en su solicitud.
    idh-1500079         El documento adjunto como Boletín de instalación no coincide con los datos informados en su solicitud.
    idh-1500079         El documento adjunto como Título constitutivo de la Comunidad no coincide con los datos informados en su solicitud.
    idh-1600089         El documento adjunto como Título constitutivo de la Comunidad no coincide con los datos informados en su solicitud.

    idh-1600089         El CIF de la Comunidad de Propietarios del documento adjunto como factura no coincide con el informado en su solicitud.

    y debe quedar :

    idh-1500079           El CIF de la Comunidad de Propietarios del documento adjunto como factura no coincide con el informado en su solicitud.
                                       El documento adjunto como Boletín de instalación no coincide con los datos informados en su solicitud.
                                      El documento adjunto como Título constitutivo de la Comunidad no coincide con los datos informados en su solicitud.

    idh-1600089           El documento adjunto como Título constitutivo de la Comunidad no coincide con los datos informados en su solicitud.

                                       El CIF de la Comunidad de Propietarios del documento adjunto como factura no coincide con el informado en su solicitud.

    De una fila con celdas independientes que quede en una celda separados por crtl+enter
    y así con toda la hoja y diversos expedientes



    • Editado forisco viernes, 13 de noviembre de 2015 11:53
    viernes, 13 de noviembre de 2015 11:39

Todas las respuestas

  • Solo tienes que recorrer las filas de la hoja y, si como parece con tu ejemplo los registros van ordenados por el expediente hacer algo como esto:

    Te propongo crear una Hoja2 con los resultados. Lo primero es borrarla:

    Sheets("Hoja2").Select
    Hoja2.Cells.Select
    Selection.Delete Shift:=xlUp 'esta línea cambia, si solo queremos borrar el contenido
    Hoja2.Cells(1, 1).Select
    Sheets("Hoja1").Select

    ' Recorremos la Hoja1

    Dim nUltimaFila As Integer
    Dim nUltimaColuma As Integer
    Dim nFila as Integer
    nUltimaFila = Range("A65536").End(xlUp).Row
    nUltimaColuma = ActiveCell.SpecialCells(xlCellTypeLastCell).Column

    Dim UltimoExpediente as String                                                                                                                                            

    For nFila = 9 To nUltimaFila

            For nColumna = 1 To nUltimaColuma

        If nColumna=1 Then   

    If UltimoExpediente <>Cells(nFila, cColumna) Then

    UltimoExpediente  = Cells(nFila, cColumna)
    Cells(nFila, nColum).Copy
                    Hoja2.Cells(nFila, nColumna).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
                                         xlNone, SkipBlanks:=False, Transpose:=False

    End If     Else
                    Cells(nFila, nColumna).Copy
                    Hoja2.Cells(nFila, nColumna).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
                                         xlNone, SkipBlanks:=False, Transpose:=False

                End If

            Next nColumna

    Next nFila


    Saludos, Javier J

    viernes, 13 de noviembre de 2015 12:16