Como usar Función concatenar con Macros?
Tengo 4 celdas que deseo concatenar en una sola, ¿pero algunos valores necesito que se vean en negrita? Aclaro que la longitud de las Celdas a concatenar son Variables...
Ej. Ficha apellido nombre dni dirección
1) 521 MENDEZ JOSE 30598764 AVENIDA SAN MARTIN 543
2) PEREZ ROSANA 7876576 CASTELLANOS 5432
3) 1254 MURILLO Alejandro 25014732 25 de mayo 876
Como veras Puede o no aparecer el valor de Ficha(como en el Nº2)... Y debe verse así:
1) El Sr. MENDEZ JOSE, dni 30598764, Ficha Nº 521, con Domicilio en AVENIDA SAN MARTIN 543
2) La Sra. PEREZ ROSANA, dni 7876576, con domicilio en CASTELLANOS 543
...
1 Respuesta
Si mal no te entendí, una forma de hacerlo sería la siguiente:
Sub Negrita()
Dim Texto As String
Dim w As Integer, x As Integer, y As Integer, z As Integer
Let w = Len(Range("B1"))
Let x = Len(Range("C1"))
Let y = Len(Range("A1"))
Let z = Len(Range("D1"))
Let Texto = "El Sr. " & [B1] & ", dni " & [C1] & ", Ficha N° " & [A1] & ", con domicilio " & [D1]
With Range("F1")
.Value = Texto
.Characters(Start:=8, Length:=w).Font.Bold = True
.Characters(Start:=8 + w + 6, Length:=x).Font.Bold = True
.Characters(Start:=8 + w + 6 + x + 11 + y + 16, Length:=z).Font.Bold = True
End With
End SubLas sumatorias que he colocado en "start" pueden ser más cortas pero las he dejado así para que entiendas que es lo que voy sumando (largo de texto a concatenar y largo de los textos 'fijos'). Igual es cuestión de que lo vayas ajustando a tus necesidades.
Salu2
Abraham Valencia
