Hola a todos..
Hace unos dias el buen amigo Héctor me envió el siguiente código
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If StrConv(Sh.Name, vbLowerCase) = "BDATOS" Then Exit Sub
If Intersect(Target, Sh.Range("a12:a3000")) Is Nothing Then Exit Sub
With Target
If .Value <> "" Then
.Offset(, 4).Formula = "=VLookUp(" & .Offset(, 2).Address(0, 0) &
",BDatos!c2:g3000,3)"
.Offset(, 6).Formula = "=VLookUp(" & .Offset(, 2).Address(0, 0) &
",BDatos!c2:g3000,5)"
Else
.Offset(, 4).ClearContents
.Offset(, 6).ClearContents
End If
End With
End Sub
y traducido en una formula de excel da lo siguiente:
=BUSCARV(C15,BDATOS!C2:G3000,3)
=BUSCARV(C15,BDATOS!C2:G3000,5)
pero a qui es donde esta el problemas eso creo...
la formula que realmente quiero que salga es la siguiente:
=SI($A15<>"",BUSCARV($C15,BDATOS!$C$2:H3000,3,0),"")
=SI($A15<>"",BUSCARV($C15,BDATOS!$C$2:H3000,5,0),"")
NO se porque con a primera no busca bien el articulo y con la ultima si lo saca
sin problemas. Espero y alguien me de otra manita
Gracias.
Un saludo,
Daniel.
Leer las respuestas