Extender formulas

Daniel

sin macros seria asi:

posicionate enla ezquina inferior derecha de la celda que contiene la
formula y extiendela(cuando te salga un cruz delgada en la orila de
lacelda presiona el boton izquierdo del raton y arrastrala hasta donde
deseas)

si la formula que deseas extender es en sentido vertical(hacia
abajo),entonces es mas sencillo.
te posicionas el la esquina inferior derecha de la celda y cuando te
aparezca la cruz delgada,das doble clic y automaticamente te rellenara
las celdas.(es necesario que la columna inmediata anterior tenga datos)

Queria hacerlo con una macro
Gracias Igual

Saludos

Daniel




"ST" escribió en el mensaje
news:

Daniel

sin macros seria asi:

posicionate enla ezquina inferior derecha de la celda que contiene la
formula y extiendela(cuando te salga un cruz delgada en la orila de
lacelda presiona el boton izquierdo del raton y arrastrala hasta donde
deseas)

si la formula que deseas extender es en sentido vertical(hacia
abajo),entonces es mas sencillo.
te posicionas el la esquina inferior derecha de la celda y cuando te
aparezca la cruz delgada,das doble clic y automaticamente te rellenara
las celdas.(es necesario que la columna inmediata anterior tenga datos)

Algo asi tal vez:

Sub test()
Dim x As Long, xx As Long, col As String
x = 2: xx = 22: col = "A"
Range(Cells(x, col), Cells(xx, col)) = Cells(x, col).Formula
End Sub

Saludos,
KL


"Daniel Pozzi" wrote in message news:

Queria hacerlo con una macro
Gracias Igual

Saludos

Daniel




"ST" escribió en el mensaje
news:

Daniel

sin macros seria asi:

posicionate enla ezquina inferior derecha de la celda que contiene la
formula y extiendela(cuando te salga un cruz delgada en la orila de
lacelda presiona el boton izquierdo del raton y arrastrala hasta donde
deseas)

si la formula que deseas extender es en sentido vertical(hacia
abajo),entonces es mas sencillo.
te posicionas el la esquina inferior derecha de la celda y cuando te
aparezca la cruz delgada,das doble clic y automaticamente te rellenara
las celdas.(es necesario que la columna inmediata anterior tenga datos)

Gracias!

Daniel



"KL" escribio en el mensaje
news:
Algo asi tal vez:

Sub test()
Dim x As Long, xx As Long, col As String
x = 2: xx = 22: col = "A"
Range(Cells(x, col), Cells(xx, col)) = Cells(x, col).Formula
End Sub

Saludos,
KL


"Daniel Pozzi" wrote in message
news:

Queria hacerlo con una macro
Gracias Igual

Saludos

Daniel




"ST" escribió en el mensaje
news:

Daniel

sin macros seria asi:

posicionate enla ezquina inferior derecha de la celda que contiene la
formula y extiendela(cuando te salga un cruz delgada en la orila de
lacelda presiona el boton izquierdo del raton y arrastrala hasta donde
deseas)

si la formula que deseas extender es en sentido vertical(hacia
abajo),entonces es mas sencillo.
te posicionas el la esquina inferior derecha de la celda y cuando te
aparezca la cruz delgada,das doble clic y automaticamente te rellenara
las celdas.(es necesario que la columna inmediata anterior tenga datos)