• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse