Ayuda con macro absoluta

Buenas, estoy aprendiendo algo de programación y he tenido algunos problemas con esta macro absoluta:

Sub Notas()
Dim i As Integer
Dim Acumula As Integer
Dim Total As Integer
Dim Prom As Integer
ActiveSheet.Range("A1").Value = "Nota 1"
ActiveSheet.Range("A2").Value = "Nota 2"
ActiveSheet.Range("A3").Value = "Nota 3"
ActiveSheet.Range("A4").Value = "Promedio"
For i = 1 To 3
Acumula = InputBox("Ingrese la nota " & i, "Ingreso de notas")
Total = Total + Acumula
Next
Prom = Total / 3
ActiveSheet.Range("B4").Value = Prom
MsgBox ("El promedio de la nota es: " & Prom)
End Sub

En las celdas B1, B2 y B3 deberían salir las 3 notas respectivamente tal como muestra la siguiente imagen

Agradezco la ayuda de antemano!

1 Respuesta

Respuesta
1

Así sería la macro

Sub Notas()
Dim i As Integer
Dim Acumula As Integer
Dim Total As Integer
Dim Prom As Integer
ActiveSheet.Range("A1").Value = "Nota 1"
ActiveSheet.Range("A2").Value = "Nota 2"
ActiveSheet.Range("A3").Value = "Nota 3"
ActiveSheet.Range("A4").Value = "Promedio"
For i = 1 To 3
Acumula = InputBox("Ingrese la nota " & i, "Ingreso de notas")
ActiveSheet.Range("B" & i) = Acumula
Total = Total + Acumula
Next
Prom = Total / 3
ActiveSheet.Range("B4").Value = Prom
MsgBox ("El promedio de la nota es: " & Prom)
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como incrustar imagen en celda Excel con datos de Access 2013

Quisiera saber si es posible exportar datos de Access a Excel e incrustar automáticamente la imagen a la que hace referencia una url dentro de la tabla de Access. Tengo una tabla que contiene la dirección de una imagen dentro de carpetas de mi pc, y...
2 respuestas

Hacer un ranking de un rango de números

Sobre un rango de celdas en las cuales solo hay números, necesito una función que de por resultado los 10 números más repetidos en dicho rango. Que numero esta en el primer puesto, que numero en el segundo puesto, etc hasta el puesto 10. El rango de...
1 respuesta

Numero con más repeticiones dentro de un rango

En la columna "Numero" tengo los números del 1 al 20 y en la columna "Repetido" tengo las veces que se repitió cada numero, Ejemplo el numero 10 se repitió 6 veces, el numero 11, se repitió 9 veces etc. Necesito una función que me de por resultado el...
1 respuesta

Buscar y copiar filas con una fecha determinada en una celda

Necesito saber como hacer la fórmula para que me localice la fecha que tengo en una determinada celda y no en este caso que así solo me busca la fecha del día de hoy 'Encontrar la última fila con datos en la hoja de origen lastRow =...
2 respuestas

Suma entre rango de fechas para un cliente

Nola, necesito hacer una suma entre un rango de fechas para un cliente definido. Elijo un rango de fechas y luego elijo un cliente de la celda de clientes y me da por resultado la suma de lo facturado de ese cliente dentro del rango de fechas...
3 respuestas

Necesito separar los dos nombres y los dos apellidos en una planilla excel

Tengo una planilla con tanto los nombres y apellido una solo a columna y necesito separar los dos nombres y los dos apellidos en columnas independiente
1 respuesta

Tengo una base de datos escrita en columnas

Necesito que quede escrita de la siguiente forma ¿Cómo lo puedo hacer?
3 respuestas

Macro para cortar un texto en 25 caracteres

Me ayudan a generar una macro que corte un texto que está en la celda A2 en 2 textos, el primer texto que lo ponga en la celda B2, no deberá cortar ninguna palabra deberá cortar el texto en máximo 25 caracteres y cortarlo en donde haya un blanco, el...
4 respuestas

Seleccionar datos mediante un Combobox en formulario

Tengo un listado de números en una columna y me gustaría seleccionar cada número mediante un Combobox de un formulario, su parte inicial sería la siguiente prívate sub combobox_change() Range (“ex”)
2 respuestas

Detectar si hay caracteres raros o acentos en texto excel

Tengo una base de datos que me da error cuando intento encontrar un texto en un campo, independientemente de si está acentuado o no y me da la sensación de que hay algún carácter raro en algún texto. ¿Hay alguna fórmula que me encuentre todos los...
2 respuestas