Excel - sumar columnas

   
Vista:

sumar columnas

Publicado por Albert (70 intervenciones) el 08/01/2008 17:59:59
Estimados foreros tengo un problema con un informe (los datos estan en varias hojas y los filtro con un usf) que estoy realizando la cosa es que he de sumar la columna D y por otro lado la columna I y luego en otro lugar hacer la resta. las sumas ya las se hacer pero ahora quiero convertirlas en una variable para despues usarlas en la resta y no se como es la sintaxis.
Os adjunto el codigo por si le podeis hechar un vistazo
De antemano mil gracias

Dim rng As Excel.Range
Dim X&, Y&
Dim K As Integer
Dim z As Integer
Dim sumaTotalEntradas As Integer
Dim SUMENTR As Integer

For K = 11 To 10000
If Hoja15.Cells(K, 4) = "" Then
final = K - 1
Exit For
End If
Next

X = 11: Y = K
Set rng = Range("D" & X & ":D" & Y)
With rng
.Select
End With


For z = 11 To 10000
If Hoja15.Cells(z, 4) = "" Then
sumaTotalEntradas = z + 1
Exit For
End If
Next
'esta es la linea que da error
SUMENTR = "=SUM(" & "D" & X & ":D" & Y & ")"

Hoja15.Cells(sumaTotalEntradas, 4) = SUMENTR
Hoja15.Cells(sumaTotalEntradas, 3) = "ENTRADES"

Set rng = Nothing
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 columnas

Publicado por JuanC (792 intervenciones) el 08/01/2008 20:10:40
primero cambia el tipo de variable Integer a Double
Dim SUMENTR As Double
y luego remplaza la línea de error por
SUMENTR = Excel.WorksheetFunction.Sum(rng)

(no es necesario seleccionar el rango)

Saludos desde Baires, JuanC
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

RE:sumar columnas

Publicado por albert (70 intervenciones) el 09/01/2008 11:20:08
Mil gracias funciona de maravilla
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