{quote}{login=тухачевский}{date=08.10.2010 01:18}{thema=}{post}переназначить фильтр{/post}{/quote}  
 
Я это делал!  
И копировал специальной вставкой / значения на чистый лист без фильтров и назначал по новому фильтры!  
Назначал фильтры как выделением столбца, так и выделением диапазона.  
На разных компах.  
 
Все одно картина не меняется. Подозреваю что где-то какое-то ограниение стоит, но вот где?

Добрый день!  
Столкнулся с проблемой...  
Есть фильтр по столбцу в котором исключительно целые числовые значения  
По факту в столбце занято 1383 строки  
В фильтре можно выбрать значения только до 925-й  
 
Где рыть?

Добрый...  
Вопрос:  
как звпретить сохранение книги?

Добрый день, уважаемые форумчане!  
Вопрос (хотя, возможно и не по адресу)...  
Босс умудрился зашифровать некоторое количество экселевских файлов. После чего их перенесли на мобильный хард, а потом ему преустановили винду. Как следствие сейчас ни оин свой файл он открыть на новой винде не может.  
Есть выход из сложившейся ситуации? :-(

{quote}{login=Лузер™}{date=24.04.2008 10:37}{thema=Re: Re: }{post}{quote}{login=GeoSco}{date=24.04.2008 10:35}{thema=Re: }{post}{quote}{login=Лузер™}{date=24.04.2008 10:32}{thema=}{post}ThisWorkbook.Close False{/post}{/quote}  
 
Хех... А куда це вставлять? :-){/post}{/quote}В ту часть кода, где хотите чтобы книга закрылась без сохранения. Наверно, в самый конец кода :){/post}{/quote}  
 
Ок! Спасибо! Не проснулся ещё! :-)

{quote}{login=Лузер™}{date=24.04.2008 10:32}{thema=}{post}ThisWorkbook.Close False{/post}{/quote}  
 
Хех... А куда це вставлять? :-)

Добрый день!  
Вопрос такой:  
Есть книга (со всевозможными макросами), ее задача после выполнения этих макросов передать инфу для заполнения другой книги (это реализовано). Необходимо сделать так, чтобы после выполнения своих функций, книга закрывалась без сохранения.  
Подскажите как реализовать?

Добрый день!  
Подскажите умные люди как сделать так, чтобы в зависимости от содержимого одной ячейки в другой менялся формат.  
Например в ячейке А1 может стоять либо символ "$" либо символ "Р". В зависимости от этого, необходимо в ячейке A2 менять формат текста на "денежный $" или "денежный р."  
Rfr htfkbpjdfnm 'nj ghjcnjq aeyrwbtq "если"  
Заранее спасибо за помошь ламеру

{quote}{login=kaa}{date=25.01.2008 01:58}{thema=}{post}можно тогда поставить xlall{/post}{/quote}  
 
Привет!  
Не работат :-(

Добрый день!  
Есть макрос переноса  
Sub Макрос4()  
If Not IsBookOpen("БАЗАКОНФ EXP.xls") Then Workbooks.Open _  
Filename:="C:\Documents and Settings\George (Commerce)\BASIS\БАЗАКОНФ EXP.xls"  
 
ThisWorkbook.Activate  
r = WorksheetFunction.CountA(Columns(2)) + 2  
Rows("5:" & r).Copy  
 
Workbooks("БАЗАКОНФ EXP.xls").Activate  
r = WorksheetFunction.CountA(Columns(2))  
Cells(r + 1, 1).PasteSpecial xlValues  
Cells(r + 1, 1).PasteSpecial xlFormats  
Application.CutCopyMode = False  
 
ActiveWorkbook.Save  
End Sub  
Так вот, результатом ее работы является перенос блока из одного файла в другой (с этим все ок!)  
Тольк вопрос в том, что в исходном блоке (который копируется) куча формул, а в перенесенном файле их нет (потому как перенос специальной вставкой).  
Вопрос: как сделать так, чтобы формулы тоже переносились?

{quote}{login=kaa}{date=25.01.2008 01:58}{thema=}{post}можно тогда поставить xlall{/post}{/quote}  
Спасибо!

Привет!  
А если копировать с формулами, достаточно в Cells(r + 1, 1).PasteSpecial xlValues убрать "Special"  
 
 
{quote}{login=kaa}{date=22.01.2008 10:37}{thema=}{post}вот так:  
 
Sub Макрос4()  
If Not IsBookOpen("БАЗАКОНФ.xls") Then Workbooks.Open _  
           Filename:="C:\Documents and Settings\George (Commerce)\Рабочий стол\ITMpire\CONFIGURES GEORGE\2008\БАЗАКОНФ.xls"  
           
       ThisWorkbook.Activate  
        r = WorksheetFunction.CountA(Columns(2)) + 2  
        Rows("5:" & r).Copy  
 
        Workbooks("БАЗАКОНФ.xls").Activate  
        r = WorksheetFunction.CountA(Columns(2))  
                Cells(r + 1, 1).PasteSpecial xlValues  
                Cells(r + 1, 1).PasteSpecial xlFormats  
               Application.CutCopyMode = False  
     
   ActiveWorkbook.Save  
End Sub  
Public Function IsBookOpen(fln) As Boolean  
IsBookOpen = False  
 
Dim wb As Workbook  
For Each wb In Workbooks  
   If wb.Name = fln Then  
       IsBookOpen = True  
       Exit For  
   End If  
Next  
End Function{/post}{/quote}

Хех... Круто!

kaa ты тут?  
449-722-834 ICQ

Привет!  
Благодарю! Все работает!

Таки как добиться правильного склонения?

Ну это-то я сделал, только не получается "января", получается "январь"

Ну вобщем вместо ДДДД поставил МММ...  
Однако... не в правильном склонении

Не помогат!  
Выдает версии вторника, типа вт и т.д.

Добрый!  
Вот задачка:  
есть ячейка на листе в кторой формат дата.  
Необходимо в другой ячейке сцепить текст и содержимое данной ячейки, но так, чтобы дата читалась в формате "22 января 2008 г."

Ок!

Это я понимаю...  
ТОлько речь пока не об этом.  
Sub Макрос4()  
'  
r = WorksheetFunction.counA(Columns(2)) + 2  
Rows("5:" & r).Copy  
'Как я понял предыдущие две строки это выбор и копирование в буфер диапазона, который и надлежит скопировать в другую книгу  
 
Workbooks.Open Filename:= _  
"C:\Documents and Settings\George (Commerce)\Рабочий стол\ITMpire\CONFIGURES GEORGE\2008\БАЗАКОНФ.xls"  
'Это собственно открытие книги В КОТОРУЮ будет копироваться содержимое буфера  
Cells(r + 1, 1).PasteSpecial xlAll  
'Это собственно КУДА, НАЧИНАЯ С КАКОЙ СТРОКИ, будет вставляться то что находиться в буфере  
Application.CutCopyMode = False  
ActiveWorkbook.Save  
'Это собственно сохранение Книги номер 2, той в которую все в последующем будет добавляться  
'ActiveWindow.Close  
End Sub

Нне понял? А в моем случае она зачем?  
Если модуль макроса собссно содержится в книге "Шаблон конф" и в ней же работает

Туплю. Которую из них?  
Ведь если это  
r = WorksheetFunction.counA(Columns(2)) + 2  
Rows("5:" & r).Copy  
относиться к выбору и копированию того диапазона, который затем будет вставляться в    
Workbooks.Open Filename:= _  
"C:\Documents and Settings\George (Commerce)\Рабочий стол\ITMpire\CONFIGURES GEORGE\2008\БАЗАКОНФ.xls"  
то она открыта... Разве не так?

Kaa отзовись!  
В первичной теме не получается открыть твой ответ.  
Gateway 502

{quote}{login=GeoSco}{date=18.01.2008 06:55}{thema=Re: }{post}{quote}{login=kaa}{date=17.01.2008 04:46}{thema=}{post}у вас шаблон без шапки будет?  
тогда r=worksheetfunction.counA(columns(2))  
если шапка будет аналогична той, которая в исходных данных, то надо еще прибавить кол-во пустых строк    
r=worksheetfunction.counA(columns(2))+2  
 
вставляете со строки r+1, если нужны только значения, то cells(r+1,1).pastespecial xlvalues  
если все, то  
cells(r+1,1).pastespecial xlall  
 
про диапазон, который копируется: чтобы каждый раз не тягать шапку, определяем только строки с инфой:  
 
r=worksheetfunction.counA(columns(2))+2  
rows("5:" & r).copy  
 
вроде написал все правильно. на примере не проверял{/post}{/quote}  
Спасибо за ответ!  
Не работает. :-(((  
Может я ступил?  
 
Sub Макрос4()  
'  
'  
'Range("A4:A56").Select  
'ActiveSheet.UsedRange.Select  
 
        'Selection.Copy  
        r = WorksheetFunction.counA(Columns(2)) + 2  
        Rows("5:" & r).Copy  
        Workbooks.Open Filename:= _  
             "C:\Documents and Settings\George (Commerce)\Рабочий стол\ITMpire\CONFIGURES GEORGE\2008\БАЗАКОНФ.xls"  
             'Range("A19").Select  
             'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
                ':=False, Transpose:=False  
                Cells(r + 1, 1).PasteSpecial xlAll  
   Application.CutCopyMode = False  
   ActiveWorkbook.Save  
   'ActiveWindow.Close  
End Sub{/post}{/quote}  
 
Достал да?

{quote}{login=kaa}{date=17.01.2008 04:46}{thema=}{post}у вас шаблон без шапки будет?  
тогда r=worksheetfunction.counA(columns(2))  
если шапка будет аналогична той, которая в исходных данных, то надо еще прибавить кол-во пустых строк    
r=worksheetfunction.counA(columns(2))+2  
 
вставляете со строки r+1, если нужны только значения, то cells(r+1,1).pastespecial xlvalues  
если все, то  
cells(r+1,1).pastespecial xlall  
 
про диапазон, который копируется: чтобы каждый раз не тягать шапку, определяем только строки с инфой:  
 
r=worksheetfunction.counA(columns(2))+2  
rows("5:" & r).copy  
 
вроде написал все правильно. на примере не проверял{/post}{/quote}  
Спасибо за ответ!  
Не работает. :-(((  
Может я ступил?  
 
Sub Макрос4()  
'  
'  
'Range("A4:A56").Select  
'ActiveSheet.UsedRange.Select  
 
        'Selection.Copy  
        r = WorksheetFunction.counA(Columns(2)) + 2  
        Rows("5:" & r).Copy  
        Workbooks.Open Filename:= _  
             "C:\Documents and Settings\George (Commerce)\Рабочий стол\ITMpire\CONFIGURES GEORGE\2008\БАЗАКОНФ.xls"  
             'Range("A19").Select  
             'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
                ':=False, Transpose:=False  
                Cells(r + 1, 1).PasteSpecial xlAll  
   Application.CutCopyMode = False  
   ActiveWorkbook.Save  
   'ActiveWindow.Close  
End Sub

{quote}{login=kaa}{date=17.01.2008 04:22}{thema=}{post}эээ... два одинаково пустых файла..{/post}{/quote}  
 
Нне понял... Как так?

{quote}{login=GeoSco}{date=17.01.2008 04:09}{thema=Re: Re: }{post}{quote}{login=GeoSco}{date=17.01.2008 04:09}{thema=Re: }{post}{quote}{login=kaa}{date=16.01.2008 04:45}{thema=}{post}файл с примером    
выложите{/post}{/quote}{/post}{/quote}{/post}{/quote}  
 
Их два. Первичный Шаблонконф

{quote}{login=GeoSco}{date=17.01.2008 04:09}{thema=Re: }{post}{quote}{login=kaa}{date=16.01.2008 04:45}{thema=}{post}файл с примером выложите{/post}{/quote}{/post}{/quote}