No Totaliza

hola, ???

Porque este Codigo no me totaliza?

-> POR QUE es que estas 'seguro' que no esta 'totalizando' -???-

1) si estas 'parado' en la celda 'A1'... el codigo esta depositando los acumulados en la celda 'D27'
2) si estas 'parado' en la celda H37' el codigo esta sepositando los acumulados en la celda 'K63'

-> revisa la instruccion: -> ActiveCell.Range("D27").Value = Total

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ el codigo expuesto __

Sub ForNext()
Dim i As Integer
Dim Total As Integer
Dim Valor As Integer
For i = 1 To 10
Valor = Val(InputBox("Introduzca un Número", "ForNext.Repite varias Instrucciones y Totaliza"))
Total = Total + Valor
ActiveCell.Range("D27").Value = Total
Next i
End Sub

Hola Héctor Miguel.No debería colocar el Total siempre en D27?

Gracias.
Cordialmente

Para qué tantas x?
"Héctor Miguel" escribió en el mensaje
news:

hola, ???

Porque este Codigo no me totaliza?

-> POR QUE es que estas 'seguro' que no esta 'totalizando' -???-

1) si estas 'parado' en la celda 'A1'... el codigo esta depositando los
acumulados en la celda 'D27'
2) si estas 'parado' en la celda H37' el codigo esta sepositando los
acumulados en la celda 'K63'

-> revisa la instruccion: -> ActiveCell.Range("D27").Value = Total

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ el codigo expuesto __

Sub ForNext()
Dim i As Integer
Dim Total As Integer
Dim Valor As Integer
For i = 1 To 10
Valor = Val(InputBox("Introduzca un Número", "ForNext.Repite varias
Instrucciones y Totaliza"))
Total = Total + Valor
ActiveCell.Range("D27").Value = Total
Next i
End Sub

hola, ???

... No deberia colocar el Total siempre en D27?

no !... ya que la instruccion: -> ActiveCell.Range("D27")
es 'equivalente' de su similar: -> ActiveCell.Offset(3, 26)

si necesitas que el resultado sea depositado 'siempre' en 'D27'... -> Range("d27") = ???

saludos,
hector.

Porque este Codigo no me totaliza?

-> POR QUE es que estas 'seguro' que no esta 'totalizando' -???-

1) si estas 'parado' en la celda 'A1'... el codigo esta depositando los acumulados en la celda 'D27'
2) si estas 'parado' en la celda H37' el codigo esta sepositando los acumulados en la celda 'K63'

-> revisa la instruccion: -> ActiveCell.Range("D27").Value = Total

Gracias.
Cordialmente

Para qué tantas x?
"Héctor Miguel" escribió en el mensaje
news:

hola, ???

... No deberia colocar el Total siempre en D27?

no !... ya que la instruccion: -> ActiveCell.Range("D27")
es 'equivalente' de su similar: -> ActiveCell.Offset(3, 26)

si necesitas que el resultado sea depositado 'siempre' en 'D27'... ->
Range("d27") = ???

saludos,
hector.

Porque este Codigo no me totaliza?

-> POR QUE es que estas 'seguro' que no esta 'totalizando' -???-

1) si estas 'parado' en la celda 'A1'... el codigo esta depositando
los acumulados en la celda 'D27'
2) si estas 'parado' en la celda H37' el codigo esta sepositando
los acumulados en la celda 'K63'

-> revisa la instruccion: -> ActiveCell.Range("D27").Value = Total