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
Pues con las propiedades Formula o FormulaR1C1 de Range o de Cells
Ejemplo:
Cells(1,1).Formula = "=$A$3 + $Z$8"
Un saludo
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