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ý.

Zaslat odpověď >

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 VBAcitovat

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 fungujecitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.