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 >>> >>> >>> >> >> >> > >