Dobry večer,
tyto listiny bych vedl v jedné databázi s tím že jí můžete kdykoliv jednotlivě odkopírovat dle potřeby do nového souboru.
Tak nemusíte neustále procovat na různých souborech.
delte vše do jednoho na různé listy "dole v liště" a
list 1 cíl
list 2 pramen dat
napište do Makra
While (Worksheets("list2").Range("A" + CStr(y)).Value <> "")
If (Worksheets("list1").Range("B" + CStr(y)).Value = něco) Then
Worksheets("list1").Range("A" + CStr(x)) = Worksheets("list2").Range("A" + CStr(y))
na listu 2 máte nějakou hodnotu cena matteriálu. pokud na listu 1 v slopci B zadáte platnou hodnotu tak se vám objevý obah list 2 kol. a ve stejném řádku. zde můžete zadadt i podmínky pokud se ta cena má nějak měnit. Třeba kilo cena * obsah kol. b
doufám že vám to k něčemu bude.
Pavel
citovat