MTV75
15.12.10,07:44
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.
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.
MTV75
21.12.10,19:57
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
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
jojom
22.12.10,07:53
Prilep na nejaký server skúšobný zošit z pár údajmi a daj sem odkaz.
Prípadne skús odkukať tu vzorce: http://www.porada.sk/t129475-vyhladavanie-tabulka-vs-tabulka.html
Prípadne skús odkukať tu vzorce: http://www.porada.sk/t129475-vyhladavanie-tabulka-vs-tabulka.html
MTV75
22.12.10,08:37
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.
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
26.12.10,18:52
Prvá časť by mohla byť takto? Ak chýba objednávacie číslo tak vypíše "Nenašlo". Druhú čast zatial nemám.
MTV75
27.12.10,12:50
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
14.12.11,09:13
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.
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.