Este procedimiento de VBA o macro de Excel, recorre todas las filas mientras no estén, en caso de encontrar una cadena de texto en Mayúscula le da formato negrita, una vez recorrida hasta la última fila de la columna, pasa a la columna siguiente y así hasta la última columna con datos del ahoja de Excel, haz click en el link del final para bajar el ejemplo. Te recomiendo que leas un excelente libro sobre Excel para ello haz click acá. El código que se encuentra a continuación se debe ingresar en un módulo, descargando el ejemplo lo podrás ver en funcionamiento, analizar, modificar y adaptar a lo que tú estés realizando el código está abierto sin ningún tipo de restricción.
Código a insertar en módulo
Sub NegritaaMayuscula()
Dim cadena As String
Dim fila, col As Integer
fila = 2
col = 1
While Sheets(«hoja1»).Cells(fila, col) <> Empty
While Sheets(«hoja1»).Cells(fila, col) <> Empty
cadena = Sheets(«hoja1»).Cells(fila, col)
If UCase(cadena) = cadena Then
Cells(fila, col).Select
Selection.Font.Bold = True
End If
fila = fila + 1
Wend
fila = 2
col = col + 1
Wend
End Sub
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.
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.
helpful INVITE ME A COFFEE and so help keep
up the page, CLICK to download free example.
Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends