< návrat zpět
MS Excel
Téma: Vyhledat
Zaslal/a mukl 6.9.2011 10:37
Dobrý den,
potřeboval bych poradit, jak pomocí VBA vytvořit fci, která by mi prošla seznam dat a pokud se vyhledávaná hodnota rovná hodnotě ve sloupci A, tak to vrátí hodnotu tomu odpovídající ve sloupci B.
Odpovídající fce v Excelu je SVYHLEDAT, zkoušel jsem to teda řešit použitím této fce, ale nefunguje mi.
Private Sub tbProdejEAN_AfterUpdate()
ufProdej.tbZk.Value = Formula = "=VLOOKUP(ufProdej.tbProdejEAN.Value,Sklad!B:C,2,FALSE)"
End Sub
Za rady budu vděčný.
Vincent(6.9.2011 11:02)#005925 Zdravím, vzorový soubor by bodl
citovat
mukl(6.9.2011 11:20)#005926 Ve vzorovém souboru nic nemám. Zasekl jsem se na tomto problému. Opravdu se mi jedná o fci svyhledat, buď aby fungovala ta z excelu a nebo ji udelat pomoci VBA
citovat
Poki(6.9.2011 11:45)#005928 k nekterym funkcim listu lze pristoupit i z VBA pomoci Application.WorksheetFunction
Application.WorksheetFunction.VLookup("a", Range("A1:B5"), 2, 0)citovat
RomanNTA(6.9.2011 12:05)#005929
Private Sub tbProdejEAN_AfterUpdate()
Dim v
v = ufProdej.tbProdejEAN.Value
' vložim vzorec
Range("A1").FormulaR1C1 = "=VLOOKUP(" & ufProdej.tbProdejEAN.Value & ",'Sklad'!C2:C3,2,0)"
' Zapíšu výsledek kde patří
ufProdej.tbZk.Value = v
End Sub
Je to od pasu ... když tak jsi to uprav. R.
citovat
mukl(6.9.2011 13:25)#005930 Díky Vám oběma, poupravil jsem to a už to funguje
citovat