Искам да попитам, съставих си сама този код по метода проба-грешка, но не успях да направя така, че част от името на файла да си го взема от определена клетка. А името е времеви период, който се променя периодично

Файла искам да се казва :"Проверки за периода от 01.01.2012 до 31.01.2012"
Ето го кода:

Private Sub Commandbutton1_Click()
Cells. Select
Selection. Copy
Workbooks. Add
ActiveSheet. Paste
Application. CutCopyMode=false
ActiveWorkbook.SaveAs Filename:= _
"D:\Проверки\2012\" & "Проверки за периода от" & Worksheets("Проверки"). range("A1").value & ".xls", FileFormat _
:=xlNormal, Password :="", WriteResPassword:="", ReadOnlyRecomended:= _
False, CreateBackup:=False
ActiveWindow. Close
Sheets("Rezultati"). Select
ActiveSheet. Protect
End Sub

Когато оставя за име само "Проверки за периода" - няма проблем, но когато трябва да си вземе датата от клетката - дава грешка!
Вероятно някъде съм сбъркала, но не мога да разбера каде?
Моля да ми помогнете, защото много ми трябва !
Още веднъж предварително ви благодаря!

Съдържаниет е скрито
Влезте за да го видите

в новия файл, където поставяш копираните данни нямаш лист "Проверки". Вземи стойността от клетката в една променлива още в самото начало на макроса.
Между другото вместо първите 5 реда на настоящия макрос, може да използваш просто

ActiveSheet.Copy

Активния лист ще бъде копиран в нов файл

Съдържаниет е скрито
Влезте за да го видите

Преди време имах подобен проблем, дето го реших по следния начин (когато имам &):
Кода:
ActiveWorkbook.SaveAs Filename:= _
"D:\Проверки\2012\" & "Проверки за периода от" & Worksheets("Проверки"). range("A1").value & ".xls", FileFormat _
:=xlNormal, Password :="", WriteResPassword:="", ReadOnlyRecomended:= _
False, CreateBackup:=False

пробвай да го преработиш на:

DIM S as string

s="D:\Проверки\2012\" & "Проверки за периода от" & Worksheets("Проверки"). range("A1").value

s=s& ".xls"

ActiveWorkbook.SaveAs Filename:= s , FileFormat _
:=xlNormal, Password :="", WriteResPassword:="", ReadOnlyRecomended:= _
False, CreateBackup:=False

Нещо при мене с 2 амперсанда се сгъбясва...Дали да е от версията на делфи - крадена - недокрадена...Ама тва за българина и телта е верно да знаш!

Трябва да се има предвид, че в полето Value на форматираните
като дата клетки, стои число.
Ако извлечете Value от клетката "21.03.2012" ще получите 40989.

Затова предварително е добре да се "сглоби" датата
от клетка ХХ като текст:

FromDate=day(XX) & "." & month(XX) & "." & year(XX)

Редактирано от пpивeт на 21.03.12 13:03.

При стартиране на макроса се оцветява ето тази част от реда:ReadOnlyRecomended:= в синьо
и Private Sub CommandButton1_Click() - го маркира в жълто!
Някой би ли обяснил на дилетантката , защо се получава така?

Моля ви за съдействие, тъй като това ще ми трябва за изпит!
Благодаря!

<P ID="edit"><FONT class="small"><EM>Редактирано от zvezdi4kata_ff на 22.03.12 18:38.</EM></FONT></P>

Редактирано от zvezdi4kata_ff на 22.03.12 18:40.

При стартиране на макроса се оцветява ето тази част от реда:ReadOnlyRecomended:= в синьо
и Private Sub CommandButton1_Click() - го маркира в жълто!
Някой би ли обяснил на дилетантката , защо се получава така?

Моля ви за съдействие, тъй като това ще ми трябва за изпит!
Благодаря!

Редактирано от zvezdi4kata_ff на 22.03.12 18:40.

оправи си ReadOnlyRecommended - с двойно m се пише. Това за грешката "Named argument not found" при която то маркира ReadOnlyRecomended
А после катo изплаче Subscript out of range прочети първия ми отговор, преди да изплачеш отново...
И вземете почетете малко за тези изпити, само с питане по форуми няма да стане...

Съдържаниет е скрито
Влезте за да го видите

Благодря ви Буран, Привет, ror!
Ама каква съм... наистина не забелязах синтактичната грешка!
Получи се!