Añadir formula a rango

Por curiosidad ¿por qué tiene que ser con una macro?

"Belinda" escribió en el mensaje de noticias
news:
Buenos días amigos...

Ya me ha dado la paranoia y estoy intentando hacer una
Ž"virguería" (para mi modo de ver) y voy por partes...El amigo Benito
me ha ayudado con una cosa, ahora no se como hacer esto...A ver si me
ayudáis. Aviso!!! Seguiré dando la "vara"... (...santos que son
algunos que aguantan iletrados como yo...

Pues es esto. Lo que quiero es que una macro (tiene que ser una macro)
sume en I lo que hay en F, G y H y que sume en L lo que hay en J y K.
Ambos rangos (columna I y L) empiezan en la linea 2 y no se donde
acaban (depende del fichero generado), pero en las columnas adyacentes
hay datos (algunos son ceros)

Una vez más, gracias por vuestra ayuda

On 3 dic, 15:53, "pepe" wrote:

Por curiosidad ¿por qué tiene que ser con una macro?

"Belinda" escribió en el mensaje de noticiasnews:
Buenos días amigos...

Ya me ha dado la paranoia y estoy intentando hacer una
Ž"virguería" (para mi modo de ver) y voy por partes...El amigo Benito
me ha ayudado con una cosa, ahora no se como hacer esto...A ver si me
ayudáis. Aviso!!! Seguiré dando la "vara"... (...santos que son
algunos que aguantan iletrados como yo...

Pues es esto. Lo que quiero es que una macro (tiene que ser una macro)
sume en I lo que hay en F, G y H y que sume en L lo que hay en J y K.
Ambos rangos  (columna I y L) empiezan en la linea 2 y no se donde
acaban (depende del fichero generado), pero en las columnas adyacentes
hay datos (algunos son ceros)

Una vez más, gracias por vuestra ayuda

Hola Pepe...

Porque quiero automatizar una tarea: Son datos bajados de una Web que
tengo que agrupar, poner precios, separar por provincias, etc, para
dárselo "hecho" a un grupo de gente que tiene que hacer lo mismo y que
lo más que sabe de excel es (casi) abrir la hoja...Yo tampoco es que
sepa mucho, pero, eso si, soy muy curioso y cabezón...

De todas maneras, esta pregunta está respondida por el magnífico KL en
Mayo de 2007 ( ¡¡¡ a mi mismo !!!) de esta manera:

Sub test()
Dim Rng As Range
Dim strRng1 As String
Dim strRng2 As String
Dim strRng3 As String

With ActiveSheet
Set Rng = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End
(xlUp))
End With

strRng1 = Rng.Address(, , , 1)
strRng2 = Rng.Offset(, 29).Address(, , , 1)
strRng3 = Rng.Offset(, 30).Address(, , , 1)

Rng.Offset(, 31) = Evaluate("IF(" & strRng1 & "<>""""," & strRng2
& "+" & strRng3 & ","""")")
End Sub

...solo hay que adaptar los rangos a lo que yo pedía...

Saludos

Tratándose de una relación de datos, la forma más conveniente de abordar el
problema (en principio) es con una tabla dinámica. Échale un vistazo a la
ayuda de tablas dinámicas.




"Belinda" escribió en el mensaje de noticias
news:
On 3 dic, 15:53, "pepe" wrote:

Por curiosidad ¿por qué tiene que ser con una macro?

"Belinda" escribió en el mensaje de
noticiasnews:
Buenos días amigos...

Ya me ha dado la paranoia y estoy intentando hacer una
Ž"virguería" (para mi modo de ver) y voy por partes...El amigo Benito
me ha ayudado con una cosa, ahora no se como hacer esto...A ver si me
ayudáis. Aviso!!! Seguiré dando la "vara"... (...santos que son
algunos que aguantan iletrados como yo...

Pues es esto. Lo que quiero es que una macro (tiene que ser una macro)
sume en I lo que hay en F, G y H y que sume en L lo que hay en J y K.
Ambos rangos (columna I y L) empiezan en la linea 2 y no se donde
acaban (depende del fichero generado), pero en las columnas adyacentes
hay datos (algunos son ceros)

Una vez más, gracias por vuestra ayuda

Hola Pepe...

Porque quiero automatizar una tarea: Son datos bajados de una Web que
tengo que agrupar, poner precios, separar por provincias, etc, para
dárselo "hecho" a un grupo de gente que tiene que hacer lo mismo y que
lo más que sabe de excel es (casi) abrir la hoja...Yo tampoco es que
sepa mucho, pero, eso si, soy muy curioso y cabezón...

De todas maneras, esta pregunta está respondida por el magnífico KL en
Mayo de 2007 ( ¡¡¡ a mi mismo !!!) de esta manera:

Sub test()
Dim Rng As Range
Dim strRng1 As String
Dim strRng2 As String
Dim strRng3 As String

With ActiveSheet
Set Rng = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End
(xlUp))
End With

strRng1 = Rng.Address(, , , 1)
strRng2 = Rng.Offset(, 29).Address(, , , 1)
strRng3 = Rng.Offset(, 30).Address(, , , 1)

Rng.Offset(, 31) = Evaluate("IF(" & strRng1 & "<>""""," & strRng2
& "+" & strRng3 & ","""")")
End Sub

...solo hay que adaptar los rangos a lo que yo pedía...

Saludos