.
En este post WorksheetFunction funciones de Excel en VBA se dijo que WorksheetFunction tiene por objeto ejecutar casi todas las funciones que trae incorporadas Excel, es decir se puede agregar en una macro y echar manos a estas funciones, luego se expuso un listado de todas las funciones de Excel que se pueden ejecutar desde una macro de VBA.
El significado de los parámetros son:
Arg3, este argumento es obligatorio e indica la columna donde se encuentra el dato a devolver, 2 indica la columna dos, 6 la columna seis y así sucesivamente.
Arg4, este argumento es opcional indica si se requiere que VLookup localice la coincidencia exacta o aproximada.
Una vez encontrado el dato lo agrega en una variable, en este caso se desean recuperar todos los datos contenidos en la fila donde se encuentra el dato buscado, es por ello que se aplica la función varias veces y se agrega el dato correspondiente a una variable.
Luego se copia el valor de las diferentes variables en las celdas de la A a la E de la fila 3, en el caso de que no encuentre el código ingresado en la base de datos, en dicha fila 3 aparece un letrero indicando que no se han encontrado datos.
Posteriormente aparece un Msgbox, si quieres aprender sobre como crear msgbox click en el link; en el Msgbox se establece muestra si se encontraron datos en caso que no existan datos muestra otro cartel indicando que no existen datos.
El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.
if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}
Código que se inserta en un userform
Application.ScreenUpdating = False
On Error Resume Next
DisplayAlerts = False
Dim uf As String
pf = 6
uf = Sheets(«Hoja1»).Range(«A» & Rows.Count).End(xlUp).Row
bus1 = Application.WorksheetFunction.VLookup(Cells(1, «B»), Range(«A» & pf & «:E» & uf), 1)
bus2 = Application.WorksheetFunction.VLookup(Cells(1, «B»), Range(«A» & pf & «:E» & uf), 2)
bus3 = Application.WorksheetFunction.VLookup(Cells(1, «B»), Range(«A» & pf & «:E» & uf), 3)
bus4 = Application.WorksheetFunction.VLookup(Cells(1, «B»), Range(«A» & pf & «:E» & uf), 4)
bus5 = Application.WorksheetFunction.VLookup(Cells(1, «B»), Range(«A» & pf & «:E» & uf), 5)
Cells(3, «A») = bus1
Cells(3, «B») = bus2
Cells(3, «C») = bus3
Cells(3, «D») = bus4
Cells(3, «E») = bus5
Range(«C» & 3 & «:E» & 3).NumberFormat = «#,##0.00»
If bus1 <> Empty Then
MsgBox («Los datos fueron encontrados con éxito»), vbInformation, «AVISO»
Else
Cells(3, «A») = «No se encontraron registros en la base de datos»
MsgBox («No se encontraron datos»), vbInformation, «AVISO»
End If
DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends