Macro para concatenar solo si es mayor a cero y considerar solo valores únicos
Tengo datos en la columna "Z". Necesito una macro para que CONCATENE solo los valores mayores a cero y que cada valor este separado con "/" y considerar solo valores únicos. Todas las cedas se concatenaran en la celda "B2".
Adjunto código utilizado, funciona pero considera valores duplicados y necesito valores únicos.
Range("B3").Value = ""
For i = 2 To Range("Z" & Rows.Count).End(xlUp).Row
If Range("Z" & i).Value > 0 Then
Range("B3").Value = Range("B3").Value & "/" & Range("Z" & i).Value
End If
Next
Range("B3").Value = "'" & Mid(Range("B3").Value, 2)
2 respuestas
Respuesta de Dante Amor
1
Te anexo la macro actualizada
Sub concatenar()
Dim valores As New Collection
Set valores = Nothing
Range("B3").Value = ""
For i = 2 To Range("Z" & Rows.Count).End(xlUp).Row
valor = Range("Z" & i).Value
existe = False
If valor > 0 Then
For j = 1 To valores.Count
If valores(j) = valor Then
existe = True
End If
Next
If existe = False Then
valores.Add valor
End If
End If
Next
'
For i = 1 To valores.Count
cad = cad & "/" & valores(i)
Next
Range("B3").Value = "'" & Mid(cad, 2)
End Sub
.Sal u dos. Dante Amor. No olvides valorar la respuesta. G raci as
