Problemas con macro

Veamos si te sirve este ejemplo:
La Macro1 vale para cualquier celda que selecciones.
La Macro2 lo primero que hace es seleccionar la F14.

O sea, que la instrucción Select no se incluya en esa macro. Hazla con el
ratón..


Sub Macro1()
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
-
Sub Macro2()

Range("F14").Select
With Selection.Interior
.ColorIndex = 42
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Range("F10").Select
End Sub


"Arturo" escribió > Al grabar paso a paso
una macro como puedo hacer para que luego se ejecute

referida a la celda seleccionadada y no a la celda en que elegí al

grabarla?

O sea que realice las acciones pero relativamente a la celda donde me

sitúe

al ejecutarla cada vez?
Gracias y saludos

Este es un ejemplo concreto de la macro que necesito. Quiero posicionarme en
F8 y ejecutar una macro que "Autoajuste a la selección" el ancho decolumna de
las 10 celdas contiguas a su derecha. Luego poder hacer lo mismo hubicado en
en cualquier otra celda.
Muchas gracias.

"C. A. G." escribió:

Veamos si te sirve este ejemplo:
La Macro1 vale para cualquier celda que selecciones.
La Macro2 lo primero que hace es seleccionar la F14.

O sea, que la instrucción Select no se incluya en esa macro. Hazla con el
ratón..


Sub Macro1()
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
-
Sub Macro2()

Range("F14").Select
With Selection.Interior
.ColorIndex = 42
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Range("F10").Select
End Sub


"Arturo" escribió > Al grabar paso a paso
una macro como puedo hacer para que luego se ejecute
> referida a la celda seleccionadada y no a la celda en que elegí al
grabarla?
> O sea que realice las acciones pero relativamente a la celda donde me
sitúe
> al ejecutarla cada vez?
> Gracias y saludos

hola, Arturo !

... ejemplo concreto de la macro que necesito... posicionarme en F8 y
... una macro que "Autoajuste a la seleccion" el ancho de columna de las 10 celdas contiguas a su derecha
... poder hacer lo mismo ubicado en cualquier otra celda.

suponiendo que la celda seleccionada 'se incluye' en las 10 celdas a su derecha para 'autoajustar' ancho de columna...
en un modulo de codigo 'normal' ==Sub Ajustar_Ancho_10_Columnas()
ActiveCell.Resize(, 10).Columns.AutoFit
End Sub

si las 10 columnas a la derecha 'excluyen' a la celda activa... cambia la instruccion a...
ActiveCell.Offset(, 1).Resize(, 10).Columns.AutoFit

saludos,
hector.

Gracias Héctor Miguel, ha funcionado
Pero abuso de tu ayuda y te pido algo mas. Cual sería la intrucción para a
esas mismas celdas en lugar de "autoajustar a la selección" el ancho de
columna, darles un ancho determinado, por ejemplo "20".
Nuevamente gracias

"Héctor Miguel" escribió:

hola, Arturo !

> ... ejemplo concreto de la macro que necesito... posicionarme en F8 y
> ... una macro que "Autoajuste a la seleccion" el ancho de columna de las 10 celdas contiguas a su derecha
> ... poder hacer lo mismo ubicado en cualquier otra celda.

suponiendo que la celda seleccionada 'se incluye' en las 10 celdas a su derecha para 'autoajustar' ancho de columna...
en un modulo de codigo 'normal' ==> Sub Ajustar_Ancho_10_Columnas()
ActiveCell.Resize(, 10).Columns.AutoFit
End Sub

si las 10 columnas a la derecha 'excluyen' a la celda activa... cambia la instruccion a...
ActiveCell.Offset(, 1).Resize(, 10).Columns.AutoFit

saludos,
hector.

hola, Arturo !

... Cual seria la intruccion para... en lugar de "autoajustar a la seleccion"...darles un ancho determinado, por ejemplo "20"

solo modifica la parte final de la instruccion...
de -> .Resize(, 10).Columns.AutoFit
a -> .Resize(, 10).ColumnWidth = 20

saludos,
hector.