............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

NEGRILLAS CON MACROS EN CELDAS CONCATENADAS

Ver el tema anterior Ver el tema siguiente Ir abajo

NEGRILLAS CON MACROS EN CELDAS CONCATENADAS

Mensaje por RIKARDOFLORES el Vie Jun 26, 2015 12:30 am

HOLA

ME PUEDEN AYUDAR???

QUIERO HACER UNA MACRO PARA QUE DESPUÉS DE CONCATENAR UNAS CELDAS, VARIAS DE ELLAS SEAN NEGRITAS, PERO SON VARIABLES YA QUE LAS CELDAS QUE SE CONCATENAN PROVIENEN DE FORMULAS SENCILLAS DE BUSCAR, PERO EL RESULTADO SIEMPRE ES DIFERENTE.

PONGO LA MACRO QUE ESTOY TRATANDO DE ARMAR

If Not Intersect(Target, Range("S8, A11")) Is Nothing Then

Range("A15") = Range("AQ15") & _
Range("AQ16") & Range("AQ17") & _
Range("AQ18") & Range("AQ19") & _
Range("AQ20") & Range("AQ21") & _
Range("AQ22") & Range("AQ23")

largo1 = InStr(1, Range("A15"), " para el Puesto ")
largo2 = Len(Range("A15"))

'AQUI SOLO LOGRO PONER UNA PARTE EN NEGRITAS
With Range("A15").Characters(Start:=717, Length:=largo1 - 717)
.Font.FontStyle = "Negrita"
End With

End Sub
End If
End Sub

LAS CELDAS QUE QUIERO EN NEGRILLAS EN LA CELDA CONCATENADA EN "A15" SON:
AQ16, AQ18, AQ20, AQ22

SOY PRINCIPIANTE

RIKARDOFLORES

Masculino Cantidad de envíos : 1
Edad : 33
Ciudad - Pais : MEXICO
Version de Excel : 2007
Fecha de inscripción : 26/06/2015

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.