Download Clase-20-Ejercicio-For-agregar-otra-fila

Document related concepts
no text concepts found
Transcript
E
S
C
U
E
L
A
D
E
C
I
E
N
C
I
A
S
E
M
P
R
E
S
R
I
A
L
E
S
Buscando registros
en Excel
Paul Leger
Ejercicio
Usar el archivo “baseDatosUsadasParaFor.xlsm” para buscar
todas las personas que tengan el nombre escrito en la celda
4,12. El resultado debe ser ubicado en la hoja 2
Respuesta
Dim encontrado As Integer
Dim nombre As String
nombre = Cells(4, 12).Value
Borrando todos registros de la hoja 2
Sheets(2).Cells.ClearContents
encontrado = 0
Iniciando la variable que contiene el números de
los elementos buscados
Dim i, ultimaFila As Integer
ultimaFila = Range("A65536").End(xlUp).Row
For i = 2 To ultimaFila
If Cells(i, 3).Value = nombre Then
MsgBox ("Lo encontré " + nombre)
encontrado = encontrado + 1
Rows(i).Copy
Sheets(2).Rows(econtrado).PasteSpecial
End If
Next i
If encotrado = 0 Then
MsgBox ("No esta")
Else
Sheets(2).Activate
End If
•
•
1. Aumento encontrado en 1 (esta variable tiene el número
de elementos encotrados)
2. Copiando la fila donde está el elemento buscado (i)
3. Pegando la fila copiada en la fila encontrado de la hoja 2
Si ningún elemento fue encontrado es muestra el
mensaje «No esta»
En caso contrario, se dirige a la hoja 2 para mostrar los
elementos buscados