¿Cómo hacer una consultav usando vba?

Estoy realizando una búsqueda o consulta de datos, usando la función CONSULTAV pero desde VBA.
Los problemas que tengo es que en las celdas donde se me arroja el resultado de la búsqueda no se me permite escribir otro valor, lo cuál necesito. Además, también ocupo que al borrar o suprimir el valor de la celda que contiene el valor buscado, también se me borren los resultados de la búsqueda.
Apreciaría muchísimo la valiosa ayuda que me puedan brindar.
P. D. Adjunto archivo http://www.mediafire.com/?t2j6zubrgscu3sn

1 respuesta

Respuesta
1
Como estas amigo, revise tu archivo y le hice las siguites modificaciones
Ahora puedes escribir en las celdas c8 y c10 y ademas al borrar el contenido de c5 borra el contenido de c8 y c10.
Espero te ayude.
No olvides finalizar la pregunta.
Saludos
Bacter
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Row = 5 And Target.Column = 3 Then
If Target.Value = "" Then
Sheets("Hoja1").Range("C8").Select
ActiveCell.Value = ""
Sheets("Hoja1").Range("C10").Select
ActiveCell.Value = ""
Range("c5").Select
Else
Sheets("Hoja1").Range("C8").Value = Application.WorksheetFunction.VLookup(Hoja1.[C5], Sheets("Hoja2").Range("B:F"), 2, False)
Sheets("Hoja1").Range("C10").Value = Application.WorksheetFunction.VLookup(Hoja1.[C5], Sheets("Hoja2").Range("B:F"), 3, False)
End If
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Una macro para copiar y pegar sin duplicar valores

Tengo en la Hoja1 un formato de captura de información. Tengo una macro que me copia la información de la Hoja1 y me la pega en columnas en la hoja2. Pero en la hoja1 en la celda C8 se ingresa un valor que es un código y que no se debe duplicar....
1 respuesta

Buscar V usando una macro

Intento realizar una búsqueda vertical en un numero indeterminado de datos. La idea es que cuando yo ingrese un valor en la casilla "F1" de la hoja N° 1 me de los datos almacenados en la hoja 2 dispuestos en la calumna AyB(estos datos los puedo...
1 respuesta

Función buscarV con macros

Señores: Revisando el portal encontré la siguiente macro: Sub Traer() Application.ScreenUpdating = False Sheets("hoja2").Select Range("A1").Select Posicion = 1 While ActiveCell.Value <> "" direccion = ActiveCell.Value Sheets("hoja1").Select...
1 respuesta

Buscar dato, copiar rango y pegar traspuesto

Dios les bendiga, primero que todo saludar a todos los expertos que han sido de gran ayuda en mi proceso de formación laboral y agradecer a todoexpertos por crear esta pagina la cual ha sido de mucha ayuda. Tengo un libro compuesto por dos hojas...
1 respuesta

Buscar lista de valores en otra lista

Resulta que tengo una lista de una sola columna cuyos valores tengo que buscar en otra lista mas grande que tengo en otra hoja, esta con dos columnas, la búsqueda es en la segunda columna. Esto necesitaría hacerlo en la tercera hoja de manera que me...
1 respuesta

Macro para Comprar dos Rangos e insertar una fila

Como puedo construir una macro que compare dos rangos de fechas en hojas diferentes teniendo en cuenta que en la hoja1 tengo el rango del 15/07/2009 hasta el 16/08/2009 y en la hoja2 tengo valores entre ese rango, cuando se realice la comparación en...
1 respuesta

Macro busque datos en otro libro rango variable (Luis Mondelo)

Agradecería su ayuda para crear una macro que busque datos a manera de un consultav(), uso Excel 2010, tengo 2 libros de la siguiente forma... Libro1 - hoja1 con estos datos: ... A... B... 1... Producto... StockAgo 2........Prod1..............2......
1 respuesta

"VLOOKUP" la segunda y la tercera coincidencia

Buscando un dato con "VLOOKUP" me da la primera coincidencia pero tiene 3 coincidencias como pedir la segunda y la tercera
1 respuesta