"LwJ" <LwJ@Nera.Lt> parašė naujienų news:hu4tjd$tut$1@trimpas.omnitel.net...
> Sub ChaCha
> Kelias = " D:\Embozing\Avansiniai klijentai\"
>
> Byla = Dir(Kelias1 & "*.Xls")

Čia turėtų būti:    Byla = Dir(Kelias & "*.Xls")
Sorry...:)


> Do While Byla <> ""
>    Vardas = Byla
>    Workbooks.Open Kelias & Vardas
>    Workbooks(Vardas).Activate
>    Columns("I:I").Select
>    Selection.NumberFormat = "General"
>    Cells(3, 9).FormulaR1C1 = 
> "=LEFT((MID((RC[-4]&RC[-3]&RC[-2]),2,4)*MID((RC[-4]&RC[-3]&RC[-2]),6,4)),4)"
>    ActiveWorkbook.Close SaveChanges:=True
>    Byla = Dir()
> Loop
> End Sub
>
> Tikiuosi su kitu katalogu susitvarkysi...:)
>
> "rotada" <sigitas@rotada.lt> parašė naujienų 
> 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
>>
>>
>>