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
1 Respuesta
¿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
