Skip to main content
se añadieron 31 caracteres en el cuerpo
Origen Enlace
Mariano
  • 24.5k
  • 20
  • 76
  • 105

Tal vez esto te sirva :

 Sub FormatoCelda(ByVal Celda As String)
    Range(Celda).Font.Underline = xlUnderlineStyleSingle
    Range(Celda).Font.Bold = True
 End Sub
 Sub FormatoCelda(ByVal Celda As String)
    Range(Celda).Font.Underline = xlUnderlineStyleSingle
    Range(Celda).Font.Bold = True
 End Sub

En éstaesta función solo, sólo tienes que pasarle como parámetro el nombre de la celda, donde pondrás el resultado, por ejemplo "A1"

Tal vez esto te sirva :

 Sub FormatoCelda(ByVal Celda As String)
    Range(Celda).Font.Underline = xlUnderlineStyleSingle
    Range(Celda).Font.Bold = True
 End Sub

En ésta función solo tienes que pasarle como parámetro el nombre de la celda, donde pondrás el resultado, por ejemplo "A1"

Tal vez esto te sirva :

 Sub FormatoCelda(ByVal Celda As String)
    Range(Celda).Font.Underline = xlUnderlineStyleSingle
    Range(Celda).Font.Bold = True
 End Sub

En esta función, sólo tienes que pasarle como parámetro el nombre de la celda, donde pondrás el resultado, por ejemplo "A1"

Origen Enlace

Tal vez esto te sirva :

 Sub FormatoCelda(ByVal Celda As String)
    Range(Celda).Font.Underline = xlUnderlineStyleSingle
    Range(Celda).Font.Bold = True
 End Sub

En ésta función solo tienes que pasarle como parámetro el nombre de la celda, donde pondrás el resultado, por ejemplo "A1"