Formato Negrita solo a Mayúsculas


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.




If this post was 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