Ayuda para concatenar celdas obviando los ceros

[jeaa]

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

[Janlui]

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
 

[jeaa]

Janlui, genial eso lo lo que buscaba