Suma en hoja seleccionada

3 envíos / 0 nuevos
Último envío
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 8 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Suma en hoja seleccionada

Buenas tardes,

Tengo el siguiente código

Sub Copiar_Rec_a_Kardex()
For Each Hoja In Worksheets
If Hoja.Name <> "REC" Then
Set Origen = Range("O2")
For Each cell In Origen
If cell.Value = Hoja.Name Then
uFila = Worksheets("REC").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("REC").Range("A3:N" & uFila).Copy Destination:=Worksheets(Hoja.Name).Range("A" & Rows.Count).End(xlUp).Offset(1)
Else
'si no coincide no hace nada
End If
Next cell
End If
Next
Range("f1") = ""
End Sub

Lo que hace es copiar el rango de la hoja con el nombre "REC" a la hoja con el nombre de mi libro que coincide con la celda "O2" de la hoja REC, funciona a la perfección, ¿pero cómo hacer una fórmula de suma en la hoja donde se ha copiado el contenido?

Muchas gracias por su tiempo, saludos cordiales

Jesús





Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 7 meses 3 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Pues con las propiedades

Pues con las propiedades Formula o FormulaR1C1 de Range o de Cells

Ejemplo:

Cells(1,1).Formula = "=$A$3 + $Z$8"

 

Un saludo

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 8 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Hice lo siguiente

Buenos dias, hice lo siguiente

 

Sub Ir_a_Kardysumtkt()

 

ActiveWorkbook.Sheets(Range("s2").Value).Activate

Range("s2").Select

ATotalizar

 

'Sheets("NCLT").Select

Range("a1").Select

End Sub

Saludos cordiales

Jesús

TEMA SOLUCIONADPO

Jesus Martinez Plantarosa