Escribir fórmulas mediante código

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Puedes empezar con

Sub Botón1_AlHacerClic()

Range("J12").Select
ActiveCell.Formula = "=If(B12=""DAT"",G12,If(B12="""","""",J11))"

End Sub

Ahora queda hacer un bucle entre 12 y ultimafila, pero eso no me sale,
jejejeje

SALUDOS.
Julián-Valencia-España

"luka" <luka79arrobatelefonica.net> escribió en el mensaje
news:

Hola a todos

Tengo que poner mediante código esta fórmula
=SI(B12="DAT";G12;SI(B12="";"";J11))
en la columna J desde J12 hasta un valor que tengo en una variable que se
llama "ultimafila" :)) y no tengo ni idea de como escribirlo

Gracias de antemano

Javier B.