Foro Excel

Buenas a todos

Tengo un problema para copiar y pegar una formula de excel con una macro. El asunto es que esa celda no es siempre la misma, es la celda denominada en la macro como ActiveCell.
La formula no puedo copiarla como texto porque la celda siempre es distinta y para que funcione tiene que llegar hasta la celda como si se arrastrase.

El código se graba funcionando si grabo la macro arrastrando la formula desde otra celda, pero el problema es que se queda delimitada las celdas a arrastrar y yo necesito que se arrastre la formula en la que es la active cell para la macro.

Aparece un error "Object Doest Support this property or method". El código ActiveCell.Paste no sirve

La fórmula que se copia de "A4" tiene más de 80 caracteres que no sé si tendrá que ver.

Pongo el código.

Sheets("BaseDatos").Select

Range("A4").Select
Selection.Copy

Cells.Find(What:="ñ", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

ActiveCell.Offset(-17, 0).Select
ActiveCell.Paste Aquí falla


MUCHAS MUCHAS GRACIAS.

Olaaa

Up y Feliz Navidad

JoP se entiende mi pregunta

En realidad solo necesito copiar y pegar una formula de una celda a otra. Las celdas en la formula están bloqueadas para que al arrastrarse funcione bien la celda en cuestión!!!

Es decir, copiar la celda "A4" a una celda denominada como Active Cell.

Gracias!!

Mostrar un archivo adjunto con la explicación.

Sin repetir lo mismo otra vez ...

joseA escribió:Mostrar un archivo adjunto con la explicación.

Sin repetir lo mismo otra vez ...

Gracias Jose, Me alegra saber que hay alguién ahí.

Te cuento, te adjunto el libro, no es el original pero es que no estoy en el trabajo y he replicado todo en mi casa rápidamente.

Como Verás hay dos botones para ejecutar las macros y el objetivo es crear un calendario de vacaciones.

El boton grabar añade un dia de vacaciones a la persona selecionada. Lo hace machacando la formula de la BBDD por un 1. En esta versión no se ve el calendario resumen de los días reservados pero eso no es importante.

El problema está en la Macro de borrar. La macro llega hasta el dia que hay que borrar y para ello debe arrastar la formula de nuevo. No es capaz.

Les dejo el enlace de descarga

http://www.megaupload.com/?d=IK8MOQK0

Espero que os guste.

Un abrazo

Hola! erpuntxis (y José). Intenta con:

Código: Seleccionar todo

Sub Borrardia()
Dim C As Range
With Sheets("BBDD")
  Set C = .Cells.Find(What:="ñ", LookIn:=xlValues, LookAt:=xlWhole)
  .[b4].Copy C.Offset(-15, 0)
End With
End Sub

Feliz Navidad, Cacho R.

Cacho R escribió:Hola! erpuntxis (y José). Intenta con:

Código: Seleccionar todo

Sub Borrardia()
Dim C As Range
With Sheets("BBDD")
  Set C = .Cells.Find(What:="ñ", LookIn:=xlValues, LookAt:=xlWhole)
  .[b4].Copy C.Offset(-15, 0)
End With
End Sub

Feliz Navidad, Cacho R.

Funciona Perfecto!!!!! Muchas gracias de verdad. Ha sido un verdadero placer obtener tu ayuda. Este foro es desde ahora muy amigo mio. !!

Feliz Navidad a ti también!!!

GRACIAS GRACIAS!!!!!

¡Me alegra que así sea!...

Y no dejes de advertir que tu problema se solucionó inmediatamente luego de mostrar un archivo que pudo ser analizado seriamente.

¡No olvides ese detalle!...