вложен файл Книга1 с которой то что выделено желтым цветом необходимо программно скопировать в новую книгу отредактировать под формат А-4, и заголовок над таблицей

Уважаемые, неужели мне ни кто не поможет ?

Здравствуйте, подскажите как можно програмно при выполнении какогото условия открывать новую книгу копировать туда данные и сохранять под названием (реестр с текущей татой)

работа с сертифицированным преподавателем по интернет, без получения документа, просто для себя

там же все по Английски

извините возможно не в этой теме пишу, существует ли онлайн обучение MS Excel VBA, разумеется платное а то самому по книге тяжеловато с нуля

Спасибо все получилось

Sub Удаление()  
Range("Реестр!A11:N7000").ClearContents  
ActiveWindow.SmallScroll Down:=-6  
   Range("A11:L1292").Select  
   Selection.Borders(xlDiagonalDown).LineStyle = xlNone  
   Selection.Borders(xlDiagonalUp).LineStyle = xlNone  
   Selection.Borders(xlEdgeLeft).LineStyle = xlNone  
   Selection.Borders(xlEdgeTop).LineStyle = xlNone  
   Selection.Borders(xlEdgeBottom).LineStyle = xlNone  
   Selection.Borders(xlEdgeRight).LineStyle = xlNone  
   Selection.Borders(xlInsideVertical).LineStyle = xlNone  
   Selection.Borders(xlInsideHorizontal).LineStyle = xlNone  
   ActiveWindow.SmallScroll Down:=-27  
   ActiveWindow.ScrollRow = 1239  
   ActiveWindow.ScrollRow = 1236  
   ActiveWindow.ScrollRow = 1231  
   ActiveWindow.ScrollRow = 1218  
   ActiveWindow.ScrollRow = 1188  
   ActiveWindow.ScrollRow = 1057  
   ActiveWindow.ScrollRow = 990  
   ActiveWindow.ScrollRow = 934  
   ActiveWindow.ScrollRow = 836  
   ActiveWindow.ScrollRow = 744  
   ActiveWindow.ScrollRow = 667  
   ActiveWindow.ScrollRow = 601  
   ActiveWindow.ScrollRow = 536  
   ActiveWindow.ScrollRow = 475  
   ActiveWindow.ScrollRow = 385  
   ActiveWindow.ScrollRow = 267  
   ActiveWindow.ScrollRow = 167  
   ActiveWindow.ScrollRow = 83  
   ActiveWindow.ScrollRow = 11  
   Range("A11").Select  
 
End Sub

с этим все отлично Range("A11:L" & ir+10).Borders.Color = vbBlack  
только после удаления данных границы остаются, вот бы еще после удаления данных и границы удалялись

только Range("A11:L" & ir).Borders.Color = vbBlack  
выделяет и с "А1:

Извините, но что то ни чего не получается

помогогите пожалуйста готовый результат програмно выделить границами, т.е. при выгрузке на листе "реестр" какое то всегда разное количество строк и столбцов,необходимо этот диапазон обвести границами, а результат отрицательных чисел выделить красным цветом.<BR><STRONG>Файл удален</STRONG> - велик размер. [Модераторы]

вроде все получилось, только вод код получился достаточно большой

необходимо что бы макрос выгружал даты в диапазоне заданных на листе (реестр)т.е.  (с 02.09.2010   по 7.09.2010) с листа АКП на лист (реестр) по окончании выделяется ячейка ("Реестр!H11"){/post}{/quote}

{quote}{login=The_Prist}{date=15.09.2010 04:01}{thema=Re: Re: Re: Re: }{post}{quote}{login=vkus}{date=14.09.2010 11:18}{thema=Re: Re: Re: }{post}он должен выгрузить все значения в диапазоне указанных дат и все{/post}{/quote}Понятно. Очень развернутый ответ. То что надо сделать что-то с датами я понял. Но чего именно ни фига не ясно и сидеть вникать не очень-то хочется.{/post}{/quote}  
 
необходимо что бы макрос выгружал даты в диапазоне заданных на листе (реестр)т.е.  (с 02.09.2010   по 7.09.2010) с листа АКП на лист (реестр) по окончании выделяется ячейка ("Реестр!H11")

{quote}{login=vkus}{date=14.09.2010 11:18}{thema=Re: Re: Re: }{post}{quote}{login=The_Prist}{date=14.09.2010 11:06}{thema=Re: Re: }{post}{quote}{login=vkus}{date=14.09.2010 11:05}{thema=Re: }{post}Может тогда до завтра, а вообще на вкладке реестр надо нажать кнопку, через некоторое время выпадет ощибка{/post}{/quote}Это я и так понял. Не понятно, что макрос должен делать. Результат какой должен быть?{/post}{/quote}  
 
он должен выгрузить все значения в диапазоне указанных дат и все{/post}{/quote}  
Уважаемый The_Prist может на чуть чуть вернемся к моей теме

{quote}{login=The_Prist}{date=14.09.2010 11:06}{thema=Re: Re: }{post}{quote}{login=vkus}{date=14.09.2010 11:05}{thema=Re: }{post}Может тогда до завтра, а вообще на вкладке реестр надо нажать кнопку, через некоторое время выпадет ощибка{/post}{/quote}Это я и так понял. Не понятно, что макрос должен делать. Результат какой должен быть?{/post}{/quote}  
 
он должен выгрузить все значения в диапазоне указанных дат и все

{quote}{login=The_Prist}{date=14.09.2010 10:54}{thema=}{post}vkus, лучше на словах объясните, что сделать надо.  
Сейчас вряд ли буду делать(спать надо) - но либо я, либо кто еще сделают, как смогут.{/post}{/quote}  
 
Может тогда до завтра, а вообще на вкладке реестр надо нажать кнопку, через некоторое время выпадет ощибка

{quote}{login=The_Prist}{date=14.09.2010 09:55}{thema=}{post}Блин, да у Вас повсюду подобный косяк! Где Вы такое вычитали?  
 
n = Range("Лист_2!A1")  
=  
n = [Лист_2!A1] или Sheets("Лист_2").Range("A1")
:  
Range("Реестр!A11:M1010").ClearContents    
 
[Реестр!A11:M1010].ClearContents или Sheets("Реестр").Range("A11:M1010").ClearContents
 
и т.д.  
Как Ваш VBA это все воспринял вообще? А Вы господа: Казанский и Юрий М? Вы-то куда смотрели? :-){/post}{/quote}  
The_Prist    
Может вам этот файл отправить посмотрите

{quote}{login=The_Prist}{date=14.09.2010 09:55}{thema=}{post}Блин, да у Вас повсюду подобный косяк! Где Вы такое вычитали?  
 
n = Range("Лист_2!A1")  
=  
n = [Лист_2!A1] или Sheets("Лист_2").Range("A1")
:  
Range("Реестр!A11:M1010").ClearContents    
 
[Реестр!A11:M1010].ClearContents или Sheets("Реестр").Range("A11:M1010").ClearContents
 
и т.д.  
Как Ваш VBA это все воспринял вообще? А Вы господа: Казанский и Юрий М? Вы-то куда смотрели? :-){/post}{/quote}  
 
Вообщето это все работало 2 года

{quote}{login=Юрий М}{date=14.09.2010 09:44}{thema=}{post}Ну вот - Вы из ничего пытаетесь извлечь дату.{/post}{/quote}  
нет дата стоит, тут чтото не то, файл отправлен на ваш адрес

{quote}{login=vkus}{date=14.09.2010 09:35}{thema=Re: }{post}{quote}{login=Казанский}{date=14.09.2010 09:17}{thema=}{post}А чему равно str в этот момент? Наведите курсор на "str". Если всплывающая строка не появится, в окне Immtdiate наберите  
?str  
и нажмите Enter.{/post}{/quote}  
 
 
здравствуйте, а нельзя отправить вам файл по эл. почте что бы посмотреть?{/post}{/quote}  
в этот момент    str = ""

{quote}{login=Казанский}{date=14.09.2010 09:17}{thema=}{post}А чему равно str в этот момент? Наведите курсор на "str". Если всплывающая строка не появится, в окне Immtdiate наберите  
?str  
и нажмите Enter.{/post}{/quote}  
 
 
здравствуйте, а нельзя отправить вам файл по эл. почте что бы посмотреть?

помогите пожалуста наити ошибку раньше все работало до сегодняшнего дня, выпалает ошибка 13, вот это выделено желтым цветом (dati = CDate(str))  
 
Sub Реестр()  
Dim str As String, dat1 As Date, dat2 As Date, dati As Date  
   n = Range("Лист_2!A1")  
     
   Range("Реестр!A11:M1010").ClearContents 'очистить все в этом диапазоне  
     
   str = CStr(Range("Реестр!F4"))  
   If str = "" Then  
      MsgBox ("Не определена дата начала периода")  
      Exit Sub  
   End If  
   dat1 = CDate(str)  
     
   str = CStr(Range("Реестр!I4"))  
   If str = "" Then  
      MsgBox ("Не определена дата конца периода")  
      Exit Sub  
   End If  
   dat2 = CDate(str)  
       
   ir = 0  
   For i = 1 To n  
   For j = 1 To 160  
   str = CStr(Range("АКП!G10").Offset(i, (j - 1) * 3))  
     
   If str = "" Then GoTo 2  
   dati = CDate(str)  
   If dati < dat1 Or dati > dat2 Then GoTo 2 'дата вне диапазона  
     
   Range("Реестр!H10").Offset(ir, 0).Select  
   ir = ir + 1  
     
   Range("Реестр!A10").Offset(ir, 0).Value = Range("Лист_2!A10").Offset(i, 0)  
   Range("Реестр!B10").Offset(ir, 0).Value = Range("Лист_2!B10").Offset(i, 0)  
   Range("Реестр!E10").Offset(ir, 0).Value = dati  
   si = Range("АКП!H10").Offset(i, (j - 1) * 3)  
   si_op = Range("Лист_2!S10").Offset(i, 0)  
   d_s = si - si_op  
       
   Range("Реестр!H10").Offset(ir, 0).Value = d_s  
   Range("Реестр!F10").Offset(ir, 0).Value = si 'Range("Лист1!H10").Offset(i, (j - 1) * 3)  
   Range("Реестр!G10").Offset(ir, 0).Value = si_op 'Range("Лист_2!P10").Offset(i, 0)  
   Range("Реестр!D10").Offset(ir, 0).Value = "АКП"  
   Range("Реестр!C10").Offset(ir, 0).Value = Range("Лист_2!C10").Offset(i, 0)  
   Range("Реестр!I10").Offset(ir, 0).Value = Range("Лист_2!R10").Offset(i, 0)  
   Range("Реестр!J10").Offset(ir, 0).Value = Range("Лист_2!H10").Offset(i, 0)  
   Range("Реестр!K10").Offset(ir, 0).Value = Range("Лист_2!I10").Offset(i, 0)  
   Range("Реестр!L10").Offset(ir, 0).Value = Range("АКП!I10").Offset(i, (j - 1) * 3)  
   If si_op > si Then  
   Range("Реестр!M10").Offset(ir, 0).Value = "замена или переплата"  
     
     
   End If  
     
2:  Next j  
1:  Next i  
Range("Реестр!H11").Select  
   
End Sub

Пожалуйста подскажите как сложить время. 1 бригада работала 2-30, 2 бригада работала 5-45  как подсчитать итог?

Спасибо вам за ссылку, может вы подскажите название книги

Их довольно много,    
просто нужен совет какая из этих книг наиболее эффективна, и достпно доходчива

Подскажите пожалуйста где можно скачать самоучитель по  
программированию в Excel VBA  для начинающих,    
некоторые у меня есть но в них нетак все доступно и понятно,  
тоесть очень мало примеров и пояснений,  
может дадите ссылку

{quote}{login=Юрий М}{date=02.06.2010 11:05}{thema=Re: Re: }{post}{quote}{login=vkus}{date=02.06.2010 11:01}{thema=Re: }{post}{quote}{login=Юрий М}{date=02.06.2010 10:58}{thema=}{post}Для начала следует запомнить, что адреса ячеек обозначаются символами ЛАТИНИЦЫ и ЧИСЛАМИ{/post}{/quote}Извините что то не совсем понятно{/post}{/quote}  
А что непонятно? В русская, выглядит аналогично B латинской. Да и вместо "тройки" у Вас буква "З", Вместо "шестёрки" - "б"{/post}{/quote}  
Да вы правы огромное спасибо все получилось

{quote}{login=Юрий М}{date=02.06.2010 10:58}{thema=}{post}Для начала следует запомнить, что адреса ячеек обозначаются символами ЛАТИНИЦЫ и ЧИСЛАМИ{/post}{/quote}  
Извините что то не совсем понятно