< návrat zpět

MS Excel


Téma: sloučení dat s listu rss

Zaslal/a 15.3.2012 22:00

Dv.
potřebuji pomoc.
na "list2"mám vysledek prodeje. na "list1" mam obchodní případ.potřeboval bych aby si makro našlo číslo obch. případu s list2 na list 1 a zapsalo do kol. c jméno obch. a do d výši provize.
Je něco takto možné?
Děkuji předem všem kteří by se s tím chtěli poprat.

Pavel

Příloha: rar7648_test.rar (8kB, staženo 29x)
stop Uzamčeno - nelze přidávat nové příspěvky.

#007651
Stalker
Jestli sem dobře pochopil Tvůj záměr, tak na to nepotřebuješ makro ale stačí fce SVYHLEDAT. Otázkou ale je podle jakýho kritéria data (jména) přiřazovat, když na každým listě máš rozdílná čísla smluv.citovat
#007656
avatar
Databazi jsem opravil.
S vyhledat je dobrá funkce, ale neni pro dávkové zpracování vhodná. da se implementovat do makra?
Příloha: rar7656_test.rar (9kB, staženo 29x)
citovat
#007658
Jeza.m
Já myslím, že co se excelu týče, tak je nejvodnější :-), jediné co asi nechceš je mít soubor plný vzorců což by ho do budoucna zpomalovalo a tak pokud ho nechceš mít interaktivní aby se vše měnilo samo, tak stačí výsledek funkce Svyhledat zapsat jako hodnotu, buď zkopírováním oblasti a pak vložit "jako hodnoty", nebo si rovnou nechat hodnoty dosadit makrem:
Public Sub dopln()
Application.ScreenUpdating = False
On Error Resume Next
For rd = 2 To List1.UsedRange.Rows.Count
List1.Cells(rd, 3) = ""
List1.Cells(rd, 4) = ""
List1.Cells(rd, 3) = Application.WorksheetFunction.VLookup(List1.Cells(rd, 1), List2.Range("A:C"), 2, False)
List1.Cells(rd, 4) = Application.WorksheetFunction.VLookup(List1.Cells(rd, 1), List2.Range("A:C"), 3, False)
Next
Application.ScreenUpdating = True
End Sub


M@citovat
#007667
avatar
Jeza.m
jseš fakt dobrej
Děkuji moc

Pavelcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje