Zavrieť

Porady

Porovnanie hodnôt v hárkoch a pridelenie hodnoty

Prosím, viem mi niekto poradiť:
V hárku1 mám v stĺpci A objednávacie čísla našich výrobkov a v stĺpci B nákupnú cenu. V hárku2 mám taktiež v stĺpci A objednávacie čísla, ale v stĺpci B mám maloobchodnú cenu, v stĺpci C veľkoobchodnú. Potrebujem porovnať hárok1 s hárkom2, tak, aby mi k zhodným objednávacím číslam pridelilo do hárku1-stĺpca C a D hodnotu z hárku2 zo stĺpcov B a C - takže budem mať v hárku1 stĺpec A objednávacie čísla, stĺpec B nákupnú cenu, stĺpec C maloobchodnú a stĺpec D veľkoobchodnú cenu. Taktiež pokiaľ by sa v hárku2 nachádzala nejaká hodnota, ktorá nie je v hárku1, aby sa tam doplnila. Ďakujem veľmi pekne.
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
    Usporiadať podľa času

    MTV75 je offline (nepripojený) MTV75

    MTV75
    Ešte som našiel na nete toto, ale neviem neviem to makro použiť:

    Sub test()
    Dim a, i As Long, ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = Sheets("Sheet1")
    Set ws2 = Sheets("Sheet2")
    With CreateObject("Scripting.Dictionary")
    .CompareMode = vbTextCompare
    a = ws2.Range("a1").CurrentRegion.Resize(,2).Value
    For i = 1 To UBound(a,1)
    If Not .exists(a(i,1)) Then .add a(i,1), a(i,2)
    Next
    a = ws1.Range("a1").CurrentRegion.Resize(,3).Value
    If .exists(a(i,1)) Then
    a(i,3) = .item(a(i,1))
    Else
    a(i,3) = ""
    End If
    End With
    ws1.Range("a1").CurrentRegion.Resize(,3).Value = a
    Set ws1 = Nothing : Set ws2 = Nothing
    End Sub

    MTV75 je offline (nepripojený) MTV75

    MTV75
    Tu je testovací hárok:
    rapidshare.com/files/438681602/test.xls
    a tu odkaz na podobnú vec, ktorú som uviedol vyššie, ale neviem to použiť:
    ozgrid.com/forum/showthread.php?t=66698&page=1

    Ďakujem veľmi pekne.

    jojom je offline (nepripojený) jojom

    jojom
    Prvá časť by mohla byť takto? Ak chýba objednávacie číslo tak vypíše "Nenašlo". Druhú čast zatial nemám.

    MTV75 je offline (nepripojený) MTV75

    MTV75
    Tak to je super! Klobúk dole. Ja som si minulý týždeň kúpil knihu "Excel-funkcie a vzorce", ale ešte to asi potrvá, kým to takto zvládnem. Ďakujem veľmi pekne a budem čakať na druhú časť.

    MTV75 je offline (nepripojený) MTV75

    MTV75
    Ahoj! Skoro pred rokom si mi veľmi pomohol s jedným vzorcom ktorý stále využívam.
    Chcem sa lem popýtať na časti vzorca,lebo mi to nie je jasné a pomohlo by mi to:
    A2 - s touto bunkou sa porovnáva
    Hárok2 - odkaz na hárok kde sú údaje na porovnanie
    $A$1 - s touto sa porovnáva
    $C$1000 - z tejto bunky C zapisuje?
    3;0 - toto mi tiež nie je jasné
    Ďakujem veľmi pekne.

    Porovnanie hodnôt v hárkoch a pridelenie hodnoty

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.