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.

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
Gracias por preguntar, luka, mira lo que he aprendido, a ver si te sirve:

Sub Botón1_AlHacerClic()
Dim n As Integer
For n = 12 To ultimafila
Range("J" & n).Select
ActiveCell.Formula = "=If(B" & n & "=""DAT"",G" & n & ",If(B" &
"="""","""",J" & n - 1 & "))"
Next n
End Sub


SALUDOS.
Julián-Valencia-España

"julian-vlc-sp" escribió en el mensaje
news:uWn$

> ¡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.

Hola Julián,
Mañana en el trabajo lo probaré.
A mi me pasa lo mismo con los correos de la gente. Aprendo mas
intentando hacer lo que piden, aunque casi siempre alguien se adelanta y
con una respuesta mejor. Pero como decía el cómico Joe Rigoli, "yo sigo"

Saludos,
Javier B.
julian-vlc-sp escribió:

> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
> Gracias por preguntar, luka, mira lo que he aprendido, a ver si te sirve:

Sub Botón1_AlHacerClic()
Dim n As Integer
For n = 12 To ultimafila
Range("J" & n).Select
ActiveCell.Formula = "=If(B" & n & "=""DAT"",G" & n & ",If(B" &
"="""","""",J" & n - 1 & "))"
Next n
End Sub


SALUDOS.
Julián-Valencia-España

"julian-vlc-sp" escribió en el mensaje
news:uWn$

>> ¡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.

Hola Luka,

A ver mi version (in bucles ni variables adicionales).

Sub Macro1()
Dim UltimaFila As Long
UltimaFila = Cells(Rows.Count, "B").End(xlUp).Row
If UltimaFila < 12 Then Exit Sub
Range("J12").Resize(UltimaFila - 12 + 1).FormulaR1C1 = _
"=IF(RC[-8]=""DAT"",RC[-3],IF(RC[-8]="""","""",R[-1]C))"
End Sub

Saludos,
KL


"luka" <luka79arrobatelefonica.net> wrote in message news:%23iA3%23$

Hola Julián,
Mañana en el trabajo lo probaré.
A mi me pasa lo mismo con los correos de la gente. Aprendo mas
intentando hacer lo que piden, aunque casi siempre alguien se adelanta y
con una respuesta mejor. Pero como decía el cómico Joe Rigoli, "yo sigo"

Saludos,
Javier B.
julian-vlc-sp escribió:

>> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>> Gracias por preguntar, luka, mira lo que he aprendido, a ver si te sirve:

Sub Botón1_AlHacerClic()
Dim n As Integer
For n = 12 To ultimafila
Range("J" & n).Select
ActiveCell.Formula = "=If(B" & n & "=""DAT"",G" & n & ",If(B" &
"="""","""",J" & n - 1 & "))"
Next n
End Sub


SALUDOS.
Julián-Valencia-España

"julian-vlc-sp" escribió en el mensaje
news:uWn$

>>> ¡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.

Saludos a los dos

Me funcionaron perfectamente, ambas dos.
Al respecto de lo que me habéis puesto, ¿la coma es el sustituto del
punto y coma? he buscado en la ayuda y no he encontrado (tendré que
llamar a sherlock holmes) nada sobre ello.

Graaaaaaaaaaaacias.

Javier B.

Hola Luka,

A ver mi version (in bucles ni variables adicionales).

Sub Macro1()
Dim UltimaFila As Long
UltimaFila = Cells(Rows.Count, "B").End(xlUp).Row
If UltimaFila < 12 Then Exit Sub
Range("J12").Resize(UltimaFila - 12 + 1).FormulaR1C1 = _
"=IF(RC[-8]=""DAT"",RC[-3],IF(RC[-8]="""","""",R[-1]C))"
End Sub

Saludos,
KL

Gracias por preguntar, luka, mira lo que he aprendido, a ver si te sirve:

Sub Botón1_AlHacerClic()
Dim n As Integer
For n = 12 To ultimafila
Range("J" & n).Select
ActiveCell.Formula = "=If(B" & n & "=""DAT"",G" & n & ",If(B" &
"="""","""",J" & n - 1 & "))"
Next n
End Sub
SALUDOS.
Julián-Valencia-España