MS Excel

Téma: najdi v jiném listu

Zaslal/a PavDD 30.3.2023 17:47

Zdravím
Prosím, potřeboval bych jednoduše makrem, najít hodnotu z aktivní buňce na seznamu v jiném listu, a zpět vedle této buňky doplnit její odpovídající cenu ze seznamu.
Neporadil by někdo ?
Děkuji

Příloha: zip

54731_sesit1.zip (16kB, staženo 5x)

Zaslat odpověď >

veny(31.3.2023 7:12)#054734

Sub vlookup1()
Set hledam = ActiveCell
Set myrange = Range("cenik!A2:C6")
Set DoplnCenu = hledam.Offset(0, 1)
DoplnCenu.Value = Application.WorksheetFunction.vlookup(hledam, myrange, 3, False)

End Sub
nějak takhle to funguje, nicméně asi bude vhodné nastavit "Dim"
ale jelikož VBA není můj šálek asi bude lepší až na to kouknou zdejší guru

citovat

Jiří497(31.3.2023 7:41)#054735

Těch variant, jak to udělat, je více. Já bych to uělal takto:
Sub hledej()

Dim rngHledej As Range
Set rngHledej = Worksheets("cenik").Range("A:A").Find(ActiveCell.Text)
If Not rngHledej Is Nothing Then
Range("U" & ActiveCell.Row).Value = rngHledej.Offset(0, 2).Value
End If
End Sub

Příloha: zip

54735_kopie-sesit1.zip (18kB, staženo 7x)

citovat

PavDD(4.4.2023 7:21)#054751

Jak jednoduché, moc děkujucitovat

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.