Concatenar por macro unos datos en modo horizontal

Buenas!
Necesito una macro para concatenar unos datos que están en el rango AA4 y EE4

Por ejemplo:
AA4=Descripción

AB4=Aquí la descripción
AC4=Marca
AD4=aquí la marca

y deberían quedar asi:
Descripción=aquí la descripción,marca=aquí la marca

ademas si no encuentra un valor, debería omitir ese dato en el concatnado

ejemplo

AA4=Descripción
AB4=Aquí la descripción
AC4=Marca
AD4=vacio

AE4=Precio
AF4=5000

y que quede asi

descipcion=aquí la descripción;precio=5000

Espeor me puedan ayudar

Saludos

1 respuesta

Respuesta
1

Mándame el archivo con el ejemplo explicado para poder ayudarte mejor

[email protected]

enviado

gracias

Ejecuta esta macro en tu archivo y todo solucionado

También te he mandado el archivo

Sub proceso()
'por luismondelo
Range("c2").Select
Do While ActiveCell.Column <> 11
If ActiveCell.Offset(0, 1).Value <> "" Then
lista = lista & ", " & ActiveCell.Value & " =" & ActiveCell.Offset(0, 1).Value
End If
ActiveCell.Offset(0, 2).Select
Loop
lista = Mid(lista, 3, Len(lista) - 2)
Range("c8").Value = lista
End Sub

recuerda finalizar la consulta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas