Macro para modificar formato a la línea de títulos de rango variable

[Zoé]

Buenos días a todos y a tod@s.
Adjunto una macro donde he puesto nombre a las columnas a modo de titulo.
Tiene un formulario y dos botones que al pulsar cambia el formato del texto .
La primera...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Private Sub CommandButton2_Click()
With Hoja1.Range("A1").Resize _
   (1, Hoja1.Cells(1, Columns.Count).End(xlToLeft).Column)
   .Font.Bold = True
   .Font.Color = vbBlue
   .Font.Name =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Zoé]

Hola Antoni;
Muchas gracias, era justo lo que buscaba.
Una última pregunta si es posible. Para cambiar el color a los bordes he puesto el siguiente código, he intentado depurarlo mas pero no he...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Prueba así:

Private Sub CommandButton2_Click()
Const Azul As Long = 7884319 '<--
Dim Rango As Range, Celda As Range
'--
Set Rango = Hoja1.Range("A1").Resize _
   (1, Hoja1.Cells(1...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Zoé]

Prueba así:

Private Sub CommandButton2_Click()
Const Azul As Long = 7884319 '<--
Dim Rango As Range, Celda As Range
'--
Set Rango =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí