Guardar datos de varias hojas en otras hojas

Muy Buenas noches nuevamente Experto lo que quiero pedirte es lo siguiente:

Tengo una serie de 8 exámenes que tiene una macro en la que los estudiantes resuelven y la puntuación que obtienen se guarda en mi registro de notas por medio de un botón; el examen que ellos resuelven esta desde la fila 4 hasta la fila 22 y lo que quiero es que esas filas se archiven en una determinada hoja por decir el examen que den de la hoja EX 1 esas filas del examen EX 1 se archiven en la hoja RES ; la del EX 2 en RES 2; ..... Y así sucesivamente

Te quedaré agradecido y que Dios te ilumine para que me puedas ayudar

Saludos Victor

Respuesta
1

¿Pregunta la hoja res esta en el mismo libro del alumno o es un libro independiente?

Muchas gracias experto

Las hojas de respuestas están en el mismo libro

Aca el macro:

Sub copia_respuestas()
Dim fila As Long
Dim hoja As String
'4c7569735f50
fila = Application.WorksheetFunction.CountA(Sheets("RES").Range("A:A")) + 1
hoja = ActiveSheet.Name
Application.ScreenUpdating = False
ActiveSheet.Range("A4:A22").EntireRow.Select
Selection.Copy
Sheets("RES").Select
Range("A" & fila).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets(hoja).Select
Range("A4").Select
Application.ScreenUpdating = True
End Sub

Pasara a la hoja RES el contenido de las filas 4 a 22 y luego retornara a la hoja desde donde se llamo el macro

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas