Visual Basic - VLOOKUP

VLOOKUP

Publicado por Luis Fernando (1 intervención) el 19/07/2023 19:28:06

Buenas tardes

Alguien me puede indicar que me falta para que este buscarv se active cuando digite en la celda el resto de referencias , ya que actualmente me arroja solo el primer registro ingresado y no ejecuta mas el buscarv con el resto de ítems de la columna

Sub Vlook1()
' Vlook1 Macro
Range("D3").Select
If Range("c3").Value = 0 Or Range("c3").Value = "" Or Range("c3").Value = Empty Then
Exit Sub
Else
Range("D3").Select
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],'Base Pedido Almacen'!R[-1]C[-1]:R58C4,2,0),0)"
End If

End Sub

BuscarV.zip(22,9 KB)

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 1.259

VLOOKUP

Publicado por Antoni Masana (565 intervenciones) el 19/07/2023 21:38:39

Esta macro solo hace una cosa, poner una formula en la celda C3 cuando hay datos en la celda C3 no este vacia

Hay dos formulas basicámente hacen lo mismo poner una formula en C3 bajo unas condiciones que no acabo de entender que se pretende validar.

Tampoco queda claro que es lo que quieres hacer, cuando se debe ejecutar la macro, manualmente o al rellenar una celda.

Creo que la solución es muy simple, copias esto:

=SI.ERROR(BUSCARV(C3;'Base Pedido Almacen'!$C$2:$D$58;2;0);0)

En la celda C3 y arrastras hacia abajo y solucionado.

Sub Vlook1()

    Range("D3").Select

    If Range("c3").Value = 0 Or Range("c3").Value = "" Or Range("c3").Value = Empty Then

        Exit Sub

    Else

        Range("D3").Select

        ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],'Base Pedido Almacen'!R[-1]C[-1]:R58C4,2,0),0)"

    End If

End Sub

Sub Vlook1()

' Vlook1 Macro

    Range("D3").Select

    If Range("c3").Value = 0 Or Range("c3").Value = "" Or Range("c3").Value = Empty Then

    Else

        Range("D3").Select

        ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],'Base Pedido Almacen'!R[-1]C[-1]:R58C4,2,0),0)"

    End If

End Sub

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar