Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
encontrar informacion eliminando filas, Encontrar información eliminando filas

Encontrar información eliminando filas

| 4 comentarios

Se buscará información de una base de datos buscando el código del alumno y se obtendrá la línea que corresponda al código para lo cual se copiará en otra hoja la base y se eliminarán filas hasta dejar solo la que contiene los datos necesarios.

Sintaxis

Application.ScreenUpdating = False
Sheets("Data").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Notas").Select
Range("A5").Select
ActiveSheet.Paste

codigo = Cells(2, 2)
ult = Cells(Rows.Count, 1).End(xlUp).Row
For i = ult To 5 Step -1
If Cells(i, 1) <> codigo Then
Rows(i).Delete
End If
Next

Cells.Select
Cells.EntireColumn.AutoFit
Imagenes

Base de datos

base 300x165, Encontrar información eliminando filas

(Para mayor visualización de la imagen, hacer click en la misma)

Nota por código

nota 300x91, Encontrar información eliminando filas

(Para mayor visualización de la imagen, hacer click en la misma)

Adjunto ejemplo de Notas

 

Elaborado por: Tiffani Zambrano

4 comentarios

Deja una respuesta

Los campos requeridos estan marcados con *.