Tomar datos de un libro mediantte una macro.

Tengo un libro llamado PrimerAño en la carpeta Datos, que contiene en la hoja1 los nombres y las calificaciones de los estudiantes. En un libro que está en la carpeta reprobados quiero que mediante una macro aparezca en la hoja1 los nombres de los estudiantes que tienen una nota menor que 10.

1 Respuesta

Respuesta
1
Eso lo puedes hacer mediante los Filtros Avanzados, Autofiltros o Tablas Dinámicas.
Con el Filtro Avanzado si quieres que los datos se desplieguen en otra hoja si habría que utilizar una macro.
Ahora bien para pasar datos de un libro a otro el código es un poquito extenso por lo que te pido si puedes enviarme tus archivos y te pongo el código.
<span id="ctl00_ctl00_Main_Body_AskOrFinishQuestionControl1_AskQuestionControl1_lblExpertName">Gracias jcgonzalez31</span>
<span>Te mandé un correo ayer</span>
<span>Tengo una macro que me resuelve el problema pero trabajando con las hojas de un mismo libro, estas son las instrucciones:
</span>
<span>Sub Aplazad()
Dim fila, columna, I, J As Integer
Dim nombre As String
fila = 5
For I = 5 To 50
     If Hoja1.Cells(I, 2) < 10 Then
          Hoja2.Cells(fila, 1) = Hoja1.Cells(I, 1)
          Hoja2.Cells(fila, 2) = Hoja1.Cells(I, 2)
          fila = fila + 1
     End If
Next
Range("A5:B22").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A5").Select
End Sub
En la carpeta Estudiantes tengo el libro Datos con las calificaciones de los alumnos, en la carpeta Aplazados tengo el libro Aplazados donde quiero que aparezcan los datos de los estudiantes aplazados pero tomados del libro Datos por medio de una macro parecida a la anterior </span>
Muchas gracias por tu esfuerzo.
Sigo esperando tu sugerencia para resolver mi problema
Voy a realizar la pregunta en otra catehoría
George

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas