Ayuda con Macro & Funcion VLookUp
Publicado por Julio (3 intervenciones) el 20/03/2012 20:14:26
Buen dia a todos los miembros de esta comunidad.
Solicito ayuda para elaborar una Macro que busque en una matriz de datos y traslade a otra Hoja del mismo Libro una serie de valores como resultado de dicha busqueda.
He estado codificando el procedimiento pero no encuentro por donde entrarle.
Sub Button2_Click()
Dim sAccount As String
Dim sAddress As String
Dim sCity As String
Dim sState As String
Dim sZipCode As String
Dim sPhone As String
Dim sFax As String
Dim seMail As String
Dim sValue As String
Dim sWorkbookName As String
Dim sSheetName As String
Dim sRange As String
sWorkbookName = ActiveWorkbook.Name
sSheetName = "ContactList"
sRange = ("a2:g128")
sValue = InputBox("Introduzca valor a Buscar:")
If sValue > " " Then
Application.WorksheetFunction.VLookup(sValue, "'[" & sWorkbookName & "]" & sSheetName & "'!" & sRange, "1,0")
'sAccount =
'sAddress =
'sCity =
'sState =
'sZipCode =
'sPhone =
'sFax =
'seMail =
Else
'MsgBox vbInformation, "VALOR NO ENCONTRADO"
End If
End Sub
Espero contar con algun tips para continuar con el desarrollo de esta macro.
Julio
Solicito ayuda para elaborar una Macro que busque en una matriz de datos y traslade a otra Hoja del mismo Libro una serie de valores como resultado de dicha busqueda.
He estado codificando el procedimiento pero no encuentro por donde entrarle.
Sub Button2_Click()
Dim sAccount As String
Dim sAddress As String
Dim sCity As String
Dim sState As String
Dim sZipCode As String
Dim sPhone As String
Dim sFax As String
Dim seMail As String
Dim sValue As String
Dim sWorkbookName As String
Dim sSheetName As String
Dim sRange As String
sWorkbookName = ActiveWorkbook.Name
sSheetName = "ContactList"
sRange = ("a2:g128")
sValue = InputBox("Introduzca valor a Buscar:")
If sValue > " " Then
Application.WorksheetFunction.VLookup(sValue, "'[" & sWorkbookName & "]" & sSheetName & "'!" & sRange, "1,0")
'sAccount =
'sAddress =
'sCity =
'sState =
'sZipCode =
'sPhone =
'sFax =
'seMail =
Else
'MsgBox vbInformation, "VALOR NO ENCONTRADO"
End If
End Sub
Espero contar con algun tips para continuar con el desarrollo de esta macro.
Julio
Valora esta pregunta
0