Jump to content

Ayuda para concatenar celdas obviando los ceros


Recommended Posts

Buenos dias, expertos necesito una ayuda que requiero generar una macro para concatenar valores de las celdas de la hoja Verificar Matriz desde la columna E hasta la columna V, dicha concatenación debe ser visualizado en la hoja llamado Principal en la columna E y el resultado debe dar como el siguiente ejemplo "1-Marca="Mica Kids",2-Modelo="SUNNIES LENT",3-Dimensiones="rojo",5-Estilo="40 x 30 cm",6-Forma="Infantil",7-Material principal="Irregular",8-Composición="Poliéster",9-Material del relleno="Sí",11-Información adicional="China"", dependiendo los tipos de datos de las diferentes columnas, pero la concatenacion no lo debe tomar las celdas cuyo datos sean "0" cero (debe pasar a la siguiente columna obviandolos). Por favor agradecere inifinitamente por sus ayudas, muchas gracias.

Adjunto el archivo

Concatenar.rar

Link to comment
Share on other sites

Coloca esta subrutina y el resultado lo pondrá en la Hoja Principal "E15" hacia abajo... Saludos

 

Sub concatena()
    Set DATOS = Worksheets("Verificar Matriz")
    Sheets("principal").Select
    Range("E15:E5000").ClearContents
    rt = 5
    RD = 6
    RS = 15
    Do While DATOS.Cells(RD, 4) <> ""
        pasa = 0
        For C = 5 To 22
            If DATOS.Cells(RD, C) <> "0" Then
                pasa = pasa + 1
            End If
        Next
        If pasa > 0 Then
            CADENA = ""
            For C = 5 To 22
                If DATOS.Cells(RD, C) > 0 Then
                    If Len(CADENA) > 0 Then
                        CADENA = CADENA & ","
                    End If
                    CADENA = CADENA & C - 4 & "-" & DATOS.Cells(rt, C) & "=" & Chr(34) & DATOS.Cells(RD, C) & Chr(34)
                End If
            Next
            Cells(RS, "E") = CADENA
            RS = RS + 1
        End If
        RD = RD + 1
    Loop
End Sub
 

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy