Excel - Range

   
Vista:

Range

Publicado por jorge luis (35 intervenciones) el 16/03/2013 17:45:29
Este código me funciono muy bien me lo envió Juanjo para ingresar los datos en forma vertical

For i = 1 To 3
Acumula = InputBox("Ingrese la nota: " & i, "Ingreso de Notas")
Range("B" & i).Value = Acumula
Total = Total + Acumula
Next i

Para que ingresen en forma horizontal me parece que el truco esta en
Range("B" & i).Value = Acumula

Aquí lo coloco completo pero variando la posicion de los Rangos

Sub Notas()

Dim i As Integer
Dim Acumula As Integer
Dim Total As Integer
Dim Prom As Integer

Range("A1").Value = "Nota1"
Range("B1").Value = "Nota2"
Range("C1").Value = "Nota3"
Range("D1").Value = "Promedio"

For i = 1 To 3
Acumula = InputBox("Ingrese la nota: " & i, "Ingreso de Notas")
Range("B" & i).Value = Acumula /"Aquí esta donde estoy viendo cambiar la posición
Total = Total + Acumula
Next i

Prom = (Total / (i - 1))

Range("B4").Value = Prom
MsgBox "El Promedio de las Notas es: & Prom " / Esto no funciona ya revise y no se donde esta el error
End Sub
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
Imágen de perfil de JuanC

Range

Publicado por JuanC juanc2942@gmail.com (1053 intervenciones) el 17/03/2013 01:37:46
cambiá
MsgBox "El Promedio de las Notas es: & Prom "
por
MsgBox "El Promedio de las Notas es: " & Prom

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