Automatizar formulas

Prueba:

ActiveCell.Formula = "=COUNTIF(D$2:D$201,Q$1)"

José Luis
Guns And Roses


"Luis" escribió en el mensaje
news:281b901c46388$090103a0$
Hola a todos/as.

Quiero crear una macro con la función:
"=CONTAR.SI(D$2:D$201;Q$1).

Lo que hago es gravar una macro, y después voy a ver el
codigo que ha generado y es el siguiente:

Sub Borrar()
'
' Borrar Macro
' Macro grabada el 06/07/2004 por lbm
'

'
ActiveCell.FormulaR1C1 = "=COUNTIF(R2C[-13]:R201C[-
13],R1C)"
Range("Q3").Select
End Sub

Como veis, la formula no se parece en nada a la original y
si modifico el codigo con la original, no funciona.
¿Porque?

Un saludo.

Ya lo he hecho, pero no compila el codigo.
Gracias igualmente.
Un saludo.

Prueba:

ActiveCell.Formula = "=COUNTIF(D$2:D$201,Q$1)"

José Luis
Guns And Roses


"Luis" escribió en

el mensaje

news:281b901c46388$090103a0$
Hola a todos/as.

Quiero crear una macro con la función:
"=CONTAR.SI(D$2:D$201;Q$1).

Lo que hago es gravar una macro, y después voy a ver el
codigo que ha generado y es el siguiente:

Sub Borrar()
'
' Borrar Macro
' Macro grabada el 06/07/2004 por lbm
'

'
ActiveCell.FormulaR1C1 = "=COUNTIF(R2C[-13]:R201C[-
13],R1C)"
Range("Q3").Select
End Sub

Como veis, la formula no se parece en nada a la original y
si modifico el codigo con la original, no funciona.
¿Porque?

Un saludo.


.

A mi me funciona perfecto

acuerdate de usar la propiedad ActiveCell.Formula y no
ActiveCell.FormulaR1C1

José Luis
Guns And Roses


"Luis" escribió en el mensaje
news:26ea001c4638e$564f4d00$
Ya lo he hecho, pero no compila el codigo.
Gracias igualmente.
Un saludo.

Prueba:

ActiveCell.Formula = "=COUNTIF(D$2:D$201,Q$1)"

José Luis
Guns And Roses


"Luis" escribió en

el mensaje

news:281b901c46388$090103a0$
Hola a todos/as.

Quiero crear una macro con la función:
"=CONTAR.SI(D$2:D$201;Q$1).

Lo que hago es gravar una macro, y después voy a ver el
codigo que ha generado y es el siguiente:

Sub Borrar()
'
' Borrar Macro
' Macro grabada el 06/07/2004 por lbm
'

'
ActiveCell.FormulaR1C1 = "=COUNTIF(R2C[-13]:R201C[-
13],R1C)"
Range("Q3").Select
End Sub

Como veis, la formula no se parece en nada a la original y
si modifico el codigo con la original, no funciona.
¿Porque?

Un saludo.


.

Funciona bien. En vez de 'coma' habia puesto 'punto y
coma' en la formula. Lo siento, es que soy bastante novato
en Excel.
Muchisimas gracias.

A mi me funciona perfecto

acuerdate de usar la propiedad ActiveCell.Formula y no
ActiveCell.FormulaR1C1

José Luis
Guns And Roses


"Luis" escribió en

el mensaje

news:26ea001c4638e$564f4d00$
Ya lo he hecho, pero no compila el codigo.
Gracias igualmente.
Un saludo.

Prueba:

ActiveCell.Formula = "=COUNTIF(D$2:D$201,Q$1)"

José Luis
Guns And Roses


"Luis" escribió en

el mensaje

news:281b901c46388$090103a0$
Hola a todos/as.

Quiero crear una macro con la función:
"=CONTAR.SI(D$2:D$201;Q$1).

Lo que hago es gravar una macro, y después voy a ver el
codigo que ha generado y es el siguiente:

Sub Borrar()
'
' Borrar Macro
' Macro grabada el 06/07/2004 por lbm
'

'
ActiveCell.FormulaR1C1 = "=COUNTIF(R2C[-13]:R201C[-
13],R1C)"
Range("Q3").Select
End Sub

Como veis, la formula no se parece en nada a la original

y

si modifico el codigo con la original, no funciona.
¿Porque?

Un saludo.


.

.

"No hay problema", como decía Alf

José Luis
Guns And Roses

escribió en el mensaje
news:277a101c46395$6ee0f510$
Funciona bien. En vez de 'coma' habia puesto 'punto y
coma' en la formula. Lo siento, es que soy bastante novato
en Excel.
Muchisimas gracias.

A mi me funciona perfecto

acuerdate de usar la propiedad ActiveCell.Formula y no
ActiveCell.FormulaR1C1

José Luis
Guns And Roses


"Luis" escribió en

el mensaje

news:26ea001c4638e$564f4d00$
Ya lo he hecho, pero no compila el codigo.
Gracias igualmente.
Un saludo.

Prueba:

ActiveCell.Formula = "=COUNTIF(D$2:D$201,Q$1)"

José Luis
Guns And Roses


"Luis" escribió en

el mensaje

news:281b901c46388$090103a0$
Hola a todos/as.

Quiero crear una macro con la función:
"=CONTAR.SI(D$2:D$201;Q$1).

Lo que hago es gravar una macro, y después voy a ver el
codigo que ha generado y es el siguiente:

Sub Borrar()
'
' Borrar Macro
' Macro grabada el 06/07/2004 por lbm
'

'
ActiveCell.FormulaR1C1 = "=COUNTIF(R2C[-13]:R201C[-
13],R1C)"
Range("Q3").Select
End Sub

Como veis, la formula no se parece en nada a la original

y

si modifico el codigo con la original, no funciona.
¿Porque?

Un saludo.


.

.