Como INSERTAR CHECKBOX LIKE DISLIKE con Distinto Color Fuente en Misma Celda en EXCEL VBA #609

Inserta Iconos en Excel automaticamnete formato

MACRO de EXCEL PARA AGREGAR ICONOS COMO TILDE, LIKE, DISLIKE O CUALQUIER OTRO SIMBOLO

La macro de Excel permite dar formato a celda de Excel, agregando simbolos como tilde, like, dislike dependiendo del valor de una celda, también se muestra como dar formato a celda con dos tipos de fuentes distintas, en una parte de la celda se tendra como fuente «Arial» y en la restante parte de la celda la fuente será «Wingdings», fuente que permite usar distintos iconos o simbolos en vez de letras.

Maneja Excel como los mejores deberías hacer click acá, si quieres aprender sobre Excel en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los ❤️MEJORES CURSOS de EXCEL ON LINE❤️ que he visto en internet, te lo recomiendo no te arrepentirás.

Puedes ver la macro en acción y una explicación más detallada de su codificación y funcionamiento, descarga el archivo y mira el video para una más fácil comprensión de la macro; suscribe a nuestro canal de You Tube, mira los playlist con Vídeos de Macros de Excel con Ejemplos Gratis para Descargar donde podrás ver la macros relacionadas en acción con una explicación en forma visual que ayudará a entender el ejemplo en forma más fácil. Te pido que apoyes al canal; suscribe y comenta en DTube y Odysee para poder seguir publicado macros gratis.

https://youtu.be/TrNcIz7zltk

MACRO PARA DAR FORMATO DE FUENTE A UNA CELDA DE EXCEL CON MACRO

Hoy veremos como dar formato a una celda con una fuente denominada «Wingdings» que hace que se visualice en pantalla tildes, puntos rojos, cuadrados, mano de like o dislike y un montón iconos mas, lo que hace la macro al apretar el botón formato es dar formato a la celda con la fuente «Wingdings», con lo cual se logra una apariencia de un ícono en vez de una letra, dependiendo del valor de la celda se insertará uno u oto ícono.

En el ejemplo funciona con un botón que se encuentra en la celda una vez modificadas las celdas determinará el valor que tienen y mostrará en la celda uno u otro ícono, claro está que esto se puede hacer automático al modificar la celda de una columna especifica, es el mismo código solo que se tiene que incorporar en la codificación de la hoja donde se desea que se ejecute la macro.

Código que PERMITE INSERTAR ICONOS Y DAR FORMATO DISTINTO EN UNA MISMA CELDA

Código que va en un modulo VBA Excel

Sub Formato()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Set a = Sheets(«Cartera»)
ufa = a.Range(«A» & Rows.Count).End(xlUp).Row

For x = 3 To ufa

If a.Cells(x, «K») = 0 Then
a.Cells(x, «L») = «Estado: ý» ‘»CþDý»
cad = Cells(x, «L»)
guion = InStr(cad, » «)
lar = Len(cad)

With a.Cells(x, «L»).Characters(Start:=guion + 1, Length:=lar)
.Font.Name = «Wingdings»
.Font.ColorIndex = 3 ‘verde
.Font.Size = 14
End With

ElseIf a.Cells(x, «K») = 1 Then

a.Cells(x, «L») = «Estado: ü»
cad = Cells(x, «L»)
guion = InStr(cad, » «)
lar = Len(cad)

With a.Cells(x, «L»).Characters(Start:=guion + 1, Length:=lar)
.Font.Name = «Wingdings»
.Font.ColorIndex = 4 ‘verde
.Font.Size = 14
End With

ElseIf a.Cells(x, «H») > 1 Then

a.Cells(x, «L») = «Estado: ÕnlÖ»
cad = Cells(x, «L»)
guion = InStr(cad, » «)
lar = Len(cad)

With a.Cells(x, «L»).Characters(Start:=guion + 1, Length:=lar)
.Font.Name = «Wingdings»
.Font.ColorIndex = 3 ‘tojo
.Font.Size = 14
End With

End If

If a.Cells(x, «H») > 0 Then
a.Cells(x, «M») = «C» ‘Pulgar Arriba
With a.Cells(x, «M»)
.Font.Name = «Wingdings»
.Font.ColorIndex = 14
.Font.Size = 14
End With

Else

a.Cells(x, «M») = «D» ‘»CþDý»‘Pulgar Abajo
With a.Cells(x, «M»)
.Font.Name = «Wingdings»
.Font.ColorIndex = 3 ‘verde
.Font.Size = 14
End With

End If

Next x

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

LINK PARA DESCARGA MACRO PARA DAR FORMATO A FUENTE CON DOS COLORES EN UNA MISMA CELDA Y DEPENDIENDO DE VALOR DE OTRA CELDA

Descarga el fichero usado como ejemplo en este post y en el vídeo explicativo, el mismo es totalmente gratuito y su uso es libre, solicito aportar para sostener esta web, si está dentro de tus posibilidades, desde ya muchas gracias.

Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.

If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.

Donate:
👉⏩ Cuenta Paypal: https://paypal.me/programarexcel

👉⏩ Cuenta Bitcoin: 1KBGGb8fyDzyR3X1Rie6m7VguzaAfngNbd

👉⏩ Cuenta Ether: 0x41Bbd24556914C83a31217eBb3BC49789b66e407

👉⏩ Cuenta Skrill: marcrodos@yahoo.es

👉⏩ Cuenta Neteller: marcrodos@yahoo.es

👉⏩ Apoya mi trabajo https://www.patreon.com/programarexcel

👉⏩ Sígueme en DTube: https://d.tube/#!/c/programarexcel01

👉⏩ Sígueme en Odysee: https://odysee.com/@programarexcel:3