Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
Расширить буфер обмена
 
Казанский, ОГРОМНОЕ спасибо! Такое простое решение, а я сижу мудрю чего то)))
Расширить буфер обмена
 
Здравствуйте! У меня вот какой вопрос - можно ли расширить буфер обмена в десятке? что бы при копировании  листа, отфильтрованного по какому либо параметру, и вставке на другой лист не выдавал ошибку "Недостаточно ресурсов..." и не "обрезал" строки. Работать приходится с файлами до миллиона строк. Файлы весят немерено, прикрепить не могу.
Формула ЕСЛИ со ссылкой на другие книги
 
а есть ли ещё способ (кроме ЕСЛИ и ЕСЛИОШИБКА) учесть что вместо цифр могут попасться другие знаки "-" или "--" или "Х" и поменять их на ноль?
Формула ЕСЛИ со ссылкой на другие книги
 
Здравствуйте. Возникла следующая проблема. Я формулой ЕСЛИ "притягиваю" из 40 книг данные. Сначала всё было нормально, но после того как в исходном файле меняешь данные выдаёт ошибку. Наверняка решение этой проблемы простое, но я чего то туплю и не могу понять как сделать.  
=ЕСЛИ('\\10.239.18.5\Buh\$Эконом\$  Новая папка\1-С новая форма 2012_2\[Краснодар.xlsx]Премии'!R24C10="-";0;'\\10.239.18.5\Buh\$Эконом\$ Новая папка\1-С новая форма 2012_2\[Краснодар.xlsx]Премии'!R24C10) такой формула была как только я её сделала.
А такой стала =ЕСЛИ(#ССЫЛКА!="-";0;#ССЫЛКА!)    
Как исправить ошибку? Помогите пожалуйста!  
P/S: все книги находятся на сетевом диске.
Исправить макрос фильтра по цвету
 
Никто не может помочь?  
Очень надо!
Исправить макрос фильтра по цвету
 
в указанной в предыдущем сообщении части макроса ошибка, но у меня не хватает толка переделать(((
Исправить макрос фильтра по цвету
 
For p = 15 To 16  
                      For o = 0 To UBound(arrCrit)  
                           .Range("A23:BH" & iLastrow).AutoFilter Field:=p, Criteria1:=arrCrit(o)  
                          strow = .Cells(.Rows.Count, 1).End(xlUp).Row  
                          Next  
                          Next  
                             
                          If strow > 23 Then  
                         
       .PatternColorIndex = xlAutomatic  
       .ThemeColor = xlThemeColorAccent3  
       .TintAndShade = 0.799981688894314  
       .PatternTintAndShade = 0  
 End If
Исправить макрос фильтра по цвету
 
исходный файл и файл с макросом  
<EM><STRONG>Файл удален</STRONG> - велик размер 1,1М - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
Исправить макрос фильтра по цвету
 
Здравствуйте.  
Есть исходный файл (сразу объясняю почему полупустой - содержал конфеденциальную информацию).    
Есть макрос, который я пыталась адаптировать к этому файлу, но в силу малограмотности  
у меня это не очень получается.  
Я задала массив по которому должно фильтроваться в столбцах О и Р, а строчки должны  
выделяться цветом. а потом нужно отфильтровать по столбцу О по этому цвету.  
Так же по столбцу 58 нужно отфильтровать по виду и удалить строчки, содержащие условие.  
Помогите, пожалуйста.
Переименовать все файлы кроме одного
 
Ваш файлик благополучно работет, спасибо. Я правда отключила в нём переименование, т.к. ошибку выдавал.  
Теперь я хочу переименовывать файлы в слчае необходимости и что бы имя бралось из разных ячеек.
Переименовать все файлы кроме одного
 
Помогите, пожалуйста, написать макрос.  
Условие: есть папка "Документы", в ней файл "Макрос.xls" и файлы "22222" и "12121" (и ещё куча других).  
Задача: переименовать все файлы кроме "Макрос.xls". Имена файлов должны сложиться из  ячеек "А1" и "А5" самого файла и ячейки "А1" файла "Макрос.xls".  
Файлы "22222" и "12121" должны переименоваться "Прайс Март 2012 Москва.xls" и "Бухгалтерия Март 2012 Иваново.xls" соответственно.
Выгрузка и обработка данных в Excel.
 
{quote}{login=RAN}{date=05.03.2012 12:46}{thema=}{post}А так?  
Like ("*ИТОГО*"){/post}{/quote}  
Так работает!  
Спасибо вам за терпение!  
Ещё одна просьба)))) посмотрите файл который я выслала, почему то на листе "92.ГК.1" в итоговую сумму не попала 14 строчка (сумма 32,08)
Выгрузка и обработка данных в Excel.
 
вот
Выгрузка и обработка данных в Excel.
 
ни так ни так "ИТОГО:" не удаляет(((((
Выгрузка и обработка данных в Excel.
 
Проблему с сохранением решила сама.  
Не могу понять почему не удаляет "ИТОГО:", раньше удалял.  
И с промежточными итогами что делать? Может можно сделать так что бы конечная величина диапозона соответствовала последней заполненной ячейке ("А" например)?
Выгрузка и обработка данных в Excel.
 
Практически успешно работает только на первом файле из тех, что в находятся в папке (не удаляет строчку "Итого").  
Потом выдаёт ошибку 5, по строке:    
Name OldName As NewName  
Мне уже ничего переименовывать то не хочется. Как сделать что бы сохранял с тем же именем и переходил к следующему файлу?  
И ещё проблема - в одном файле было 135000 строк, попробовала изменить формулу промежуточных итогов "50000" на "150000" - выдаёт ошибку.
Выгрузка и обработка данных в Excel.
 
Вот так сразу бы!  
Всё подписано, всё понятно, как раз для тех кто в танке)))    
Опробую в понедельник.    
СПАСИБО!
Выгрузка и обработка данных в Excel.
 
а пришлите ещё раз ваш файл с макросом, ПЛИЗЗ.  
мне кажется я в своём уже так наменяла всё, что оно отказывается работать.
Выгрузка и обработка данных в Excel.
 
ладно уж смеяться над сирыми и убогими)))  
раскомментировала строчку со счетами!  
теперь показывает ошибку вот здесь (эту строчку я, как вы и сказали, раскомментировала)  
 Name OldName As NewName
Выгрузка и обработка данных в Excel.
 
в самом начале, как вы и сказали, раскомментировала, вставила "26.2.2", закомментировала
Выгрузка и обработка данных в Excel.
 
Всё так и сделала, но выдаёт ошибку 13  
 
'    arrCrit = .Range("I14:J" & iLastrow).Value  
 
                     '  With CreateObject("Scripting.Dictionary")  
                      '    For Each x In arrCrit  
                      '         If Not IsEmpty(x) Then .Item(x) = 1  
                       '   Next  
                       '   arrCrit = .keys  
                   '   End With  
 
                   For j = 9 To 10  
                       For i = 0 To UBound(arrCrit)  (эту строчку показывает)
Выгрузка и обработка данных в Excel.
 
Меня походу в детстве в тормозную жидкость уронили)))  
Видать мне кнопочка "Смайлик" приглянулась, вот я на неё два раза и нажала, поэтому данные два раза и скопировались)))  
Кстати, в файле "Ежедневная сверка" содержится исчерпывающий список счетов которые мне нужны для сверки, поэтому те, с которыми они корреспондируют (например 77. ГК.1) мне не нужны. В принципе листы с такими счетами могу удалять в ручную, но не хотелось бы. Можно сделать, что бы фильтровалось только по нужным счетам?
Выгрузка и обработка данных в Excel.
 
кстати, сразу не заметила, но данные на листы вставляются в двойном объёме, но итоговые суммы правильно считаются.  
 
может так станет понятней что я хочу получить на выходе.  
 
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
Выгрузка и обработка данных в Excel.
 
я может пока много чего не понимаю, но я же стараюсь, учусь...  
 
вот что должно получиться.
Выгрузка и обработка данных в Excel.
 
Да, и почему то файлы 1 и 2 не переименовываюстя в Иваново и Васюки соответственно, хотя, как я понимаю, должны.
Выгрузка и обработка данных в Excel.
 
Спасибо! Всё получилось!  
Только возникла проблема со счётом 26.2.2 - он не отражается по дебету, нужно его отфильтровывать по пустым строкам в дебете, как это сделать?
Выгрузка и обработка данных в Excel.
 
{quote}{login=k61}{date=01.03.2012 11:56}{thema=Так и написать:}{post}Sheets(Sheets("Лист").Index + 1).Name = "22.ГК.5.1"  
и дальше к этому листу можно обращаться по имени Sheets("22.ГК.5.1"){/post}{/quote}  
 
Я так попробовала - вобще перестал работать(((  я заменила ("Лист3") на (Sheets("Лист").Index + 1)  
может я что то не так делаю?
Выгрузка и обработка данных в Excel.
 
что то я окончательно запуталась((((((( с этими листами, счетами...  
да, кстати, сохранение тоже не работает, предполагаю, что из-за того что там указано имя "Свод", которое нужно заменить, а имя будет всегда разным (состоять из цифр) и надо что бы переименовывал с любого имени на то, что содержтся в ячейке D3
Выгрузка и обработка данных в Excel.
 
Sheets(ЗДЕСЬ ЗАМЕНЮ НА ТО ЧТО ВЫ ПРЕДЛОЖИЛИ).Select  
Sheets(А ЗДЕСЬ ЧТО НАПИСАТЬ?).Name = "22.ГК.5.1"
Выгрузка и обработка данных в Excel.
 
Помогите!    
Какую то ошибку выдаёт после копирования первого счёта. чего то я по ходу намудрила)))  
End With  
      Range("D12").Select  
   ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[3]C:R[50000]C)"
   Range("D12").Select  
   Selection.Copy  
   Range("E12").Select  
   ActiveSheet.Paste  
   ActiveSheet.Paste  
   Application.CutCopyMode = False  
   Rows("13:13").Select  
   Selection.AutoFilter  
   Sheets("Лист1").Select  
   Sheets("Лист1").Name = "Свод"  
   ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=10, Criteria1:= _  
       "92.ГК.1" (ЧТО ТО МНЕ ПОДСКАЗЫВАЕТ, ЧТО ДИАПОЗОН ЭТОТ ОТ 13 ДО 34 СТРОКИ БУДЕТ ПОСТОЯННЫМ, А НАДО ЧТО БЫ МЕНЯЛСЯ В ЗАВИСИМОСТИ ОТ КОЛ-ВА СТРОК)  
       Application.CutCopyMode = False  
   Cells.Select  
   Range("A3").Activate  
   Selection.Copy  
   Sheets.Add After:=Sheets(Sheets.Count)  
   ActiveSheet.Paste  
   Sheets("Лист2").Select (КАК БЫ ЗАМЕНИТЬ ЭТОТ ПРЕСЛОВУТЫЙ ЛИСТ С НОМЕРОМ НА ПРОСТО "СЛЕДУЮЩИЙ ЛИСТ", А ЕСЛИ СЧЁТ НЕ НАЙДЕН - ПРОПУСТИТЬ)  
   Sheets("Лист2").Name = "92.ГК.1"  
   Sheets("Свод").Select  
   ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=10, Criteria1:= _  
       "91.1.1.ГК.4"  
   Application.CutCopyMode = False  
   Selection.Copy  
   Sheets.Add After:=Sheets(Sheets.Count)  
   ActiveSheet.Paste  
   Sheets("Лист3").Select  
   Sheets("Лист3").Name = "91.1.1.ГК.4"  
   Sheets("Свод").Select  
   ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=10  
   ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=9, Criteria1:= _  
       "91.1.1.ГК.1"  
   Application.CutCopyMode = False  
   Selection.Copy  
   Sheets.Add After:=Sheets(Sheets.Count)  
   ActiveSheet.Paste  
   Sheets("Лист4").Select  
   Sheets("Лист4").Name = "91.1.1.ГК.1"  
   Sheets("Свод").Select  
   ActiveSheet.Range("$A$113:$AH$34").AutoFilter Field:=9, Criteria1:= _  
       "91.2.1.ГК.3"  
   Application.CutCopyMode = False  
   Selection.Copy  
   Sheets.Add After:=Sheets(Sheets.Count)  
   ActiveSheet.Paste  
   Sheets("Лист5").Select  
   Sheets("Лист5").Name = "91.2.1.ГК.3"  
   Sheets("Свод").Select  
   ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=9, Criteria1:= _  
       "91.2.1.ГК.4"  
   Application.CutCopyMode = False  
   Selection.Copy  
   Sheets.Add After:=Sheets(Sheets.Count)  
   ActiveSheet.Paste  
   Sheets("Лист6").Select  
   Sheets("Лист6").Name = "91.2.1.ГК.4"  
   Sheets("Свод").Select  
   ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=9, Criteria1:="22.ГК.1"  
   Application.CutCopyMode = False  
   Selection.Copy  
   Sheets.Add After:=Sheets(Sheets.Count)  
   ActiveSheet.Paste  
   Sheets("Лист7").Select  
   Sheets("Лист7").Name = "22.ГК.1"  
   Sheets("Свод").Select  
   ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=9, Criteria1:= _  
       "22.ГК.5.1"  
   Application.CutCopyMode = False  
   Selection.Copy  
   Sheets.Add After:=Sheets(Sheets.Count)  
   ActiveSheet.Paste  
   Sheets("Лист8").Select  
   Sheets("Лист8").Name = "22.ГК.5.1"  
   Sheets("Свод").Select  
   ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=9, Criteria1:="26.ГК.4"  
   Application.CutCopyMode = False  
   Selection.Copy  
   Sheets.Add After:=Sheets(Sheets.Count)  
   ActiveSheet.Paste  
   Sheets("Лист9").Select  
   Sheets("Лист9").Name = "26.ГК.4"  
   Sheets("Свод").Select  
   ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=9, Criteria1:="26.ГК.6"  
   Application.CutCopyMode = False  
   Selection.Copy  
   Sheets.Add After:=Sheets(Sheets.Count)  
   ActiveSheet.Paste  
   Sheets("Лист10").Select  
   Sheets("Лист10").Name = "26.ГК.6"  
   Sheets("Свод").Select  
   ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=9, Criteria1:="="  
   Application.CutCopyMode = False  
   Selection.Copy  
   Sheets.Add After:=Sheets(Sheets.Count)  
   ActiveSheet.Paste  
   Sheets("Лист11").Select  
   Sheets("Лист11").Name = "26.2.2"  
   Sheets("Свод").Select  
   ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=9  
   Range("H6").Select  
   Application.CutCopyMode = False  
   ActiveCell.FormulaR1C1 = ""  
   Range("D12:E12").Select  
   With Selection.Interior  
       .Pattern = xlSolid  
       .PatternColorIndex = xlAutomatic  
       .Color = 65535  
       .TintAndShade = 0  
       .PatternTintAndShade = 0  
   End With  
Dim f_name As String  
f_name = Sheets(Свод).Range("D3").Value  
ThisWorkbook.SaveAs Filename:=f_name, FileFormat:=xlExcel8  
End With  
End Sub
Страницы: 1 2 След.
Loading...