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

Страницы: 1
Убрать нулевые строки в сводной таблице
 
Добрый день!    
Можно ли как-то настроить сводную таблицу таким образом, чтобы в отчет выводились не все элементы, а только те, по которым есть данные??? (надеюсь я не очень туманно сформировала вопрос) буду признательна за любые идеи!))
Поиск повторяющихся значений при выполнении определенных критериев
 
Добрый день!  
У меня есть таблица, в которую снизу вручную добавляются строки (на сегодняшний день их уже около 12 000). Необходимо избегать задвоения строк, но просто использовать функцию "счетесли", то получается некорректно.    
Цель - во-первых, проверить данные в столбце D и если вводимое значение уже встречалось, то проверить уже именно эти строки с одинаковыми значениями. Например, в столбце D значение "85" встретилось трижды, в ячейках D50, D70 и D45. После этого проверить совпадают ли в строках 50, 70 и 45 значения в столбцах В и А. Если в этих строках значения одинаковы в столбце В, и различны в столбце А, то Еxcel "подавал бы какой-нибудь сигнал": изменял бы цвет ячейки, если это возможно реализовать условным форматированием, или выдавал бы окошко-предупреждение, если это макрос...  
Пока все это делается вручную автофильтром и занимает очень много времени... Если кто-то сможет помочь, буду невероятно благодарна:-)  
P.S. в поисковике нашла много тем про повторы, но такого не видела...
Автоматический перенос данных из файла в файл
 
Добрый день!  
 
У меня есть 2 файла. Нужно, чтобы часть данных из одного файла автоматически переносилась в другой в соответствие с заданным критерием. Т.е. Я построчно заношу данные в один файл, и если в указанном столбце я указываю заданное значение (критерий), то вся эта строка копируется в другой заданный файл?... Например, указываю в ячейке В5 "январь" и строка В копируется в другой файл, путь к которому указывается?... Вообщем не знаю, может я попутала эксель с волшебством или очень путано объяснила что бы я хотела сделать, но вдруг, есть какой-то несложный макрос или еще какой-то способ?.. Если кто-то может помочь, буду крайне благодарна:-))
как макросом заменить один столбец на другой?
 
Добрый день!  
 
Собственно всеь вопрос в названии темы)) Подскажите, пожалуйста, как можно макросом менять столбцы местами? Например, заменить данные столбца D на F в этой же строке? Я пробовала "Replace", но не получилось...
Вырезать часть текста из ячейки
 
Добрый день,  
 
Подскажите, пожалуйста, есть ли какая-то функция, преобразующая ООО "Рябинка" в Рябинка. Пробовала MID, но там нужно указывать конкретную длину, а мне необходимо вырезать именно то, что в кавычках....    
Буду очень благодарна))
Дописание кода по обработке банковских выписок
 
Добрый день!  
Как и большинство людей мечтаю избаться от рутины в работе. Каждое утро начинается с нудной и мучитильной обработки банковских выписок в формате rtf и разнесении их в Excel. Давно думала о том, как можно автоматизировать этот процесс хотя бы частично. Полазав по сайту нашла следующий код, который полностью копирует содержимое выписки в Excel.  
 
Sub OpenRtfAndPasteToSheets()  
Dim wd As Object  
Dim ns As Worksheet  
 
On Error Resume Next  
'запустим Ворд  
Set wd = GetObject("", "Word.Application")  
If Err.Number <> 0 Then  
Err.Clear  
Set wd = CreateObject("Word.Application")  
If Err.Number <> 0 Then Exit Sub  
End If  
 
On Error GoTo BAD  
 
Do  
'получим имя очередного файла  
f = Application.GetOpenFilename("Файлы RTF, *.rtf,Все файлы, *.*")  
If TypeName(f) = "Boolean" Then Exit Do 'если Отмена - выход  
'откроем выбранный очередной файл  
Set wdd = wd.Documents.Open(f)  
' wd.Visible = True  
'скопируем содержимое документа  
t = wdd.Content.Copy  
'создадим лист для этого документа  
Set ns = ActiveWorkbook.Worksheets.Add  
'вставим скопированное в новый лист  
ns.Paste Destination:=ns.Cells(1, 1)  
'немного выравним вид  
ns.Cells.WrapText = False  
ns.Columns.AutoFit  
ns.Rows.AutoFit  
wdd.Close  
Loop  
wd.Quit  
Set wd = Nothing  
Exit Sub  
BAD:  
MsgBox Err.Description  
On Error Resume Next  
wd.Quit  
Set wd = Nothing  
End  
End Sub  
 
Долго мучилась пытаясь дописать его, но, к сожалению, похвастаться пока нечем(( Сказывается незнание инструментов, большая часть попыток что-то изменить в коде, вызывают ошибку...  
 
Цель:  
1) Копирование не всего содержимого выписки, а только табличной ее части (без шапки и конечных остатков);  
2) Копирование сумм поступлений и платежей в числовом формате (с удалением пробелов)  
 
Если кто-то может помочь, буду очень-очень-очень признательна)) В любом случае заранее спасибо:-)
Страницы: 1
Наверх