:D na del greitaveikos netestavau ir neoptimizavau .... gali uztrukti ;) "rotada" <sigitas@rotada.lt> wrote in message news:hu52b7$6f4$1@trimpas.omnitel.net... > Mažytę (47failai) direktoriją tvarkingai patvarkė per kelias minutes. > Dabar paleidau didžiąją (apie 800failų ir po 500 eilučių - viso apie > 400000eilučių) tai jau "sukasi" 50 minučių. Laukiu kol parašys "Baigta"... > Gal nevarys kelias dienas...:) > > > "Raimis" <somebody@nomail.com> wrote in message > news:hu4tb7$tgt$1@trimpas.omnitel.net... >> tiesa, pavyzdyje apdorojama failu Sheet1, jei reikia ne ta, reiktu >> pakoreguoti macro >> >> Ir geriau pasibandyti su failu kopijom ar testinias failais, o ne su >> tikrais >> duomenim ;) >> >> >> "Raimis" <somebody@nomail.com> wrote in message >> news:hu4t3j$t53$1@trimpas.omnitel.net... >>> pamegink sita failiuka, jei kas ne taip, rasyk >>> >>> Sekmes >>> >>> >>> >>> "rotada" <sigitas@rotada.lt> wrote in message >>> news:hu2hap$4dr$1@trimpas.omnitel.net... >>>> Man per dideliė problema - nemoku rašyti makrusų...:) >>>> 1.Direktorijoje D:\Embozing\Avansiniai klijentai - 46 xls failai >>>> (Eksel >>>> 2003 SP3) >>>> 2.Direktorijoje D:\Embozing - 781 xls failai >>>> >>>> Reikia visuosų xls failų stulpeliuose "I" padaryti formatą "General", o >>>> po to į visų xls failų I3 celę įrašyti formulę: >>>> =LEFT((MID((E3&F3&G3);2;4)*MID((E3&F3&G3);6;4));4) >>>> >>>> Gal kaspagelbėtumėte? >>>> >>>> Sigitas >>>> >>>> >>>> >>> >>> >>> >> >>