Foro Excel

Hola
Tengo un excel en el que me salen los registros únicos de una base de datos. Quisiera saber cómo puedo definir una macro que haga que se copie una formula hasta el final de la la tabla.

Me explico

tengo dos columnas. en la columna A un valor y en la B una fórmula. Nunca sé cuantos valores voy a tener, pero quiero tener tantas fórmulas como valores.
Quiero una macro que me arrastre la fórumula que tengo en la celda b1 hasta B? siendo ? la última celda ocupada de A.

Os agradezco de antemano la ayuda.

saludos!

AVER QUE TAL ESTO:

I = 1 ' o desde la fila donde empiesen los datos
do
i = i+1
loop until cells(i,1).value = "" 'se dentendra donde ya no encuentre datos y
'asignara el ese valor a I

No consigo ponerla en práctica. soy un inutl de vbe

Tengo 6 campos que se me rellenan automáticamente con el autofiltro. Luego tres columnas más que me hacen unos cálculos en cada registro del autofiltro

Por tanto you quisisera que la macro me arrastrara las fórmulas que hay entre la columna g (a partir de la fila 20) y la columna I, hasta la última fila de la columna A
gracias

Por qué no enví­as un archivo de ejemplo para ver qué podemos hacer?

si te entedi bien,creo que para eso no necesitas macros

posicionate en la columna B ,en la esquina inferior derecha de la celda donde tienes la formula (te debe aparecer una pequeña cruz delgada)
ahora solo da doble clic y se rellenaran las celdas con la formula ,igualndola a los datos de la columna "A"

si no es esto entonces me uno a yijo

Para hacerlo con macros.

Se detecta la última fila con uf = Range("A1").End(xlDown).Row
Se detecta el rango a rellenar con rango = Range(Cells(2,2),Cells(uf,2)).Address
Luego se copia la fórmula de B1 al resto del rango Range("B1").Copy Range(rango)

Hola chicos,

Superplanilla";p="26697 escribió:Se detecta la última fila con uf = Range("A1").End(xlDown).Row
Se detecta el rango a rellenar con rango = Range(Cells(2,2),Cells(uf,2)).Address
Luego se copia la fórmula de B1 al resto del rango Range("B1").Copy Range(rango)

Mas opciones:

Código: Seleccionar todo

Sub test1()
    [B2].AutoFill Range([B2], [A65536].End(xlUp).Offset(, 1))
End Sub

Código: Seleccionar todo

Sub test2()
    [B2].Copy Range([B2], [A65536].End(xlUp).Offset(, 1))
End Sub

Código: Seleccionar todo

Sub test3()
    Range([B2], [A65536].End(xlUp).Offset(, 1)) = [B2].FormulaR1C1
End Sub

Código: Seleccionar todo

Sub test4()
    Range([B2], [A65536].End(xlUp).Offset(, 1)) = "=SUM(RC[1]:RC[3])"
End Sub

perdon, se me olvidaba decir que el orden de mi preferncia es justo a la inversa:

Test4
Test3
Test1
Test2

Aki te enví­o una xp sobre una macro que hice y me parece q tambien te puede ser util. Hay q adecuar a tus necesidades.
Saludos
8/2

Range("ab2").Select
Do Until ActiveCell.Offset(0, -1) = "" 'mientras la celda anterior este escrita...
ActiveCell.FormulaR1C1 = "=rc[-1]*rc[-12]"
ActiveCell.Offset(1, 0).Select 'luego pasa a la celda inferior dentro de la misma columna y asi hasta que llega hasta la ultima celda escrita...
Loop

Hola chicos,

Febreroocho";p="26750 escribió:Range("ab2").Select
Do Until ActiveCell.Offset(0, -1) = "" 'mientras la celda anterior este escrita...
ActiveCell.FormulaR1C1 = "=rc[-1]*rc[-12]"
ActiveCell.Offset(1, 0).Select 'luego pasa a la celda inferior dentro de la misma columna y asi hasta que llega hasta la ultima celda escrita...
Loop

El codigo propuesto por Febreroocho es ineficiente y por tanto no recomendable por dos razones fundamentales:
1) es un bucle que recorre el rango celda tras celda (imaginaos 20.000 celdas)
2) usa el metodo Select con cada una de las celdas, lo cual aparte de innecesario, ralentiza aun mas el codigo.

Muchas pero muchas gracias KL,

Lo que se pierde uno por no preguntar..........

Esto lo necesitaba hace mucho tiempo y hacia lo que dice superplanilla, lo malo es que lo hago en libros con muchos rangos cortados (separados) así­ que a veces me confundo en el codigo, pero tus 4 soluciones las probe y funcionan perfectamente,

Muchas gracias,