Добрый день!    
Можно ли как-то настроить сводную таблицу таким образом, чтобы в отчет выводились не все элементы, а только те, по которым есть данные??? (надеюсь я не очень туманно сформировала вопрос) буду признательна за любые идеи!))

Добрый день!  
У меня есть таблица, в которую снизу вручную добавляются строки (на сегодняшний день их уже около 12 000). Необходимо избегать задвоения строк, но просто использовать функцию "счетесли", то получается некорректно.    
Цель - во-первых, проверить данные в столбце D и если вводимое значение уже встречалось, то проверить уже именно эти строки с одинаковыми значениями. Например, в столбце D значение "85" встретилось трижды, в ячейках D50, D70 и D45. После этого проверить совпадают ли в строках 50, 70 и 45 значения в столбцах В и А. Если в этих строках значения одинаковы в столбце В, и различны в столбце А, то Еxcel "подавал бы какой-нибудь сигнал": изменял бы цвет ячейки, если это возможно реализовать условным форматированием, или выдавал бы окошко-предупреждение, если это макрос...  
Пока все это делается вручную автофильтром и занимает очень много времени... Если кто-то сможет помочь, буду невероятно благодарна:-)  
P.S. в поисковике нашла много тем про повторы, но такого не видела...

{quote}{login=The_Prist}{date=02.11.2009 02:25}{thema=Re: Re: Re: }{post}{quote}{login=Tata}{date=02.11.2009 02:19}{thema=Re: Re: }{post}Прописать условия отдельно для каждого подвида...{/post}{/quote}Попробуйте сделать это в Excel 2003. Получиться?{/post}{/quote}  
 
Ну вот примерно это я и имела ввиду... У меня тоже 2003...

{quote}{login=The_Prist}{date=02.11.2009 02:14}{thema=Re: }{post}{quote}{login=Excel-Ok}{date=02.11.2009 02:09}{thema=}{post}как задать условия для ячеек слева и справа (от ячейки с ценой) не прописывая их как отдельные условия для столбцов...{/post}{/quote}А для них и не надо прописывать отдельные условия. Просто расширяете диапазон применения. В примере от Таты это реализовано. А вот распространение условий на другие Подвиды - это проблема.{/post}{/quote}  
 
Прописать условия отдельно для каждого подвида...

{quote}{login=Excel-Ok}{date=02.11.2009 02:09}{thema=}{post}Тут основная проблема (на мой взгляд) не в том, что ограничение 3 условия, а в том, что лично мне, например, непонятно, как задать условия для ячеек слева и справа (от ячейки с ценой) не прописывая их как отдельные условия для столбцов...{/post}{/quote}  
 
Чтобы задать условие для ячеек справа и слева, нужно просто их все выделить и прописать для них единое условие

Ну я и сама пока только учусь))  
А зачем больше 3-х условий? Те же самые 3 условия только поменять наименования столбцов и область форматирования....

Так? Ну и другие столбцы аналогично...

Добрый день!  
 
У меня есть 2 файла. Нужно, чтобы часть данных из одного файла автоматически переносилась в другой в соответствие с заданным критерием. Т.е. Я построчно заношу данные в один файл, и если в указанном столбце я указываю заданное значение (критерий), то вся эта строка копируется в другой заданный файл?... Например, указываю в ячейке В5 "январь" и строка В копируется в другой файл, путь к которому указывается?... Вообщем не знаю, может я попутала эксель с волшебством или очень путано объяснила что бы я хотела сделать, но вдруг, есть какой-то несложный макрос или еще какой-то способ?.. Если кто-то может помочь, буду крайне благодарна:-))

Чудо:-) Других слов нет) Спасибо!!!!

Файл

Почему-то упорно меняет значения только на столбец F, на G- никак(((  
Пробовала идти от обратного (если не равно "", то...), но все равно меняет только на i, на значения любого другого столбца -i.Offset(,1) или i.Offset(,-2) не получается:-(

спасибо большое!:-) второй вариант идеально меняет столбцы)  
А можно сделать так, чтобы он менял их в зависимоти от условия? Проверял каждую ячейку столбца F и, если она заполнена, то менял значение в соответствующей ячейке в столбце С на F, а если пустая - в С на G?  
Пробовала так, но он подставляет либо один столбец, либо другой, а нужно, чтобы оба как бы в один объединялись...  
Sub reCol()  
Dim i As Range  
Dim Col As Range  
Set Col = Range("F1:F" & Cells(Rows.Count, "F").End(xlUp).Row)  
For Each i In Col  
If i = "" Then  
Range("C1:C" & Cells.SpecialCells(xlLastCell).Row).Value = Range("F1:F" & Cells.SpecialCells(xlLastCell).Row).Value  
Else  
Range("C1:C" & Cells.SpecialCells(xlLastCell).Row).Value = Range("G1:G" & Cells.SpecialCells(xlLastCell).Row).Value  
End If  
End Sub

Добрый день!  
 
Собственно всеь вопрос в названии темы)) Подскажите, пожалуйста, как можно макросом менять столбцы местами? Например, заменить данные столбца D на F в этой же строке? Я пробовала "Replace", но не получилось...

Спасибо! Все работает наичудеснейшим образом))) Было бы еще все чуточку проще, а то столько нюансов:-)

Столько вариантов оказывается)) Спасибо всем огромное))  
 
Вообще-то мне нужно, чтобы при запуске макроса все контрагенты в столбце автоматически переименовывались. Я совершила робкую попытку написать соответствующий код на основе тех формул, которые вы мне подсказали(привожу ниже), но он (код) категорически отказывается работать((( Что вообщем-то неудивительно, учитывая мои более чем скромные познания в VBA...Может быть его можно как-то скорректировать?...  
 
Sub reName()  
Dim i As Cell  
Dim Col As Column  
Col = D  
For Each i In Col  
i = Replace(Mid(i, InStr(1, i, Chr(34))), Chr(34), "")  
End Sub

Добрый день,  
 
Подскажите, пожалуйста, есть ли какая-то функция, преобразующая ООО "Рябинка" в Рябинка. Пробовала 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) Копирование сумм поступлений и платежей в числовом формате (с удалением пробелов)  
 
Если кто-то может помочь, буду очень-очень-очень признательна)) В любом случае заранее спасибо:-)