MS Excel

Téma: přepočet hodnoty buňky Makrem

Zaslal/a Petr-Berounsky 26.4.2012 14:15

zdravím všechny profíky ...
pomohl by někdo VBA laikovi s automatickým řešením nejspíš jednoduché úlohy přepočtu hodnoty stejných buněk v mnoha csv souborech?
mám desítky csv souborů u kterých potřebuji přepočítat hodnoty některých buněk podmíněným vzorcem (označené žlutě) a znovu vše uložit jako nový csv se stejným názvem (a přidaným 1.řádkem pojmenování sloupců)
poznámka - pokud je v buňce hodnota "FROM!!! číslo", pro výpočet se používá hodnota "číslo*2" (upravuji zatím ve zdroji ručně)...
(všechny csv jsou umístěné v jednom adresáři, jejich počet a jména ale mohou být různá)
udělat to vzorcem z listu na list není takový problém, ale je hrozná pruda otevírat XX souborů, kopírovat data jako zdrojová a výsledný list ukládat jako nový csv ručně. Určitě to jde udělat jednoduše a elegantně, ale moje znalosti na to bohužel nestačí ...
přikládám jeden zdrojový csv a xls soubor, který jsem si vytvořil pro přepočet...
Budete někdo ochotný mi pomoct?
díky
Bery

Příloha: zip

8292_uprava-dat.zip (24kB, staženo 23x)

Uzamčeno - nelze přidávat nové příspěvky.

Strana: « předchozí 1 2

Jeza(3.5.2012 8:08)#008353

Koukl jsem se znova do toho csv souboru a asi rozumím, tam nejde o to nemít tam ID, ale o to mít první pole v csv souboru prázdné, ale mít ho tam.
Pak by mělo stačit na začátek každého záznamu přidat ";" a zapisovat hodnoty od sloupce B.
For sl = 2 To 16
If tmp = "" Then tmp = Cells(rd, sl) Else tmp = tmp & ";" & Cells(rd, sl)
Next
tmp = ";" & tmp
ts.WriteLine tmp
Snad už jsem se trefil :-)citovat

Petr-Berounsky(3.5.2012 9:12)#008354

ano, sloupec A musí zůstat prázdný, hodnoty si doplní SW, ostatní parametry jsou dané pozicí, takže musí být také ve správných sloupcích ...
tohle je přesně ono :-)
díky za pomoc ...
berycitovat

Strana: « předchozí 1 2

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.