Excel - sumar hojas con macro

   
Vista:

sumar hojas con macro

Publicado por francisco (26 intervenciones) el 06/09/2008 10:50:25
buenos dias a todos
tengo una macro que me crea una hoja nueva (pulsando un boton) y quisiera sumar una celda concreta A1 de cada hoja y que el resultado me lo de en otra hoja llamada
" TOTAL FACTURA "
esta es mi macro

GOMEZ Macro
' Macro grabada el 24/08/2008 por Usuario
'
' Acceso directo: CTRL+g

Sheets("GOMEZ").Select
Sheets("GOMEZ").Copy Before:=Sheets("2")
Range("A15:G41").Select
Selection.ClearContents
Range("G11").Select
Selection.ClearContents
Range("I4:R48").Select
Selection.ClearContents
Range("G11").Select

un saludo y dar las gracias a todos por la ayuda que ofreceis.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:sumar hojas con macro

Publicado por jcs (494 intervenciones) el 07/09/2008 06:23:19
Muy buenas,

mira a ver si te sirve lo siguiente:

Sub totales()
h = 0
For i = 1 To Sheets.Count
Sheets(i).Select
h = h + Cells(1, 1)
Next
Sheets("TOTAL FACTURA").Select
Cells(1, 1) = h - Cells(1, 1)
End Sub

Un saludo. Juanjo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar