что то получилось)))
все работает как надо
спс

Здравствуйте, уважаемые знатоки!
Подозреваю что вопрос не сложный - но поиск не помог.
Суть: есть выпадающий список и столбец количество (лист 1)
необходимо в выделенных ячейках листа 2 проставить выбранное значение из списка то самое
количество раз и второй строкой страну изготовитель из листа 0.
сумбурно и непонятно но в примере вроде все есть

{quote}{login=Юрий М}{date=15.11.2011 01:09}{thema=}{post}А про свой размерчик что думаете?{/post}{/quote}  
намудрил с размером пока чистил-форматировал((((  
В принципе тема закрыта: ВПР помогла пока что)

sry  
это я MaxZh

{quote}{login=MaxZh}{date=15.11.2011 12:50}{thema=}{post}ВПР, по крайней мере до тех пор пока не придумаете что делать с повторами (берет верхнее из повторяющихся)  
{/quote}  
 
Можно размер поменьше...

Здравствуйте уважаемые!  
Сижу в поиске уже пару часов и не нашел решение...  
Тема очень распространена и многогранна))  
Необходимо Сравнить данные в столбцах А на 1 и 2 листах и при совпадении скопировать Лист2 столбец В в Лист1 столбец В  
А вот что делать с повторами значений пока не придумал...  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

эх... быть может что то в этом роде?  
With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("маршрут")  
if Error then MsgBox "Нет такого"  
.PivotItems("(пусто)").Visible = True  
else: MsgBox "Есть такой"  
End With  
 
(в данном варианте не работает...)

а если убрать границы???????

сам нафлудил и никто не участвует....

{quote}{login=Казанский}{date=12.08.2011 12:02}{thema=}{post}А F1 нажать?  
 
Число обрабатываемых ячеек (в тысячах)  
Позволяет указать максимальное число ячеек, которое может обрабатываться какой-либо операцией без оповещения. Если будет затронуто большее число ячеек, появится оповещение.  
 
То есть ячеек меньше не станет, только оповещения добавятся.{/post}{/quote}  
 
как уже объяснил гуру - ничего и не изменится...

попробовать то не сложно...

{quote}{login=Александр}{date=12.08.2011 11:42}{thema=Re: }{post}{quote}{login=[25rus]Gleyd}{date=12.08.2011 11:36}{thema=}{post}попробуй Файл-Параметры-Дополнительно
Число обрабатываемых ячеек(в тысячах) 33554  
 
Это 2010, в 2007 думаю так же{/post}{/quote}  
 
Число обрабатываемых ячеек(в тысячах) 33554 - изменил на 5000 и ничего не изменилась{/post}{/quote}  
 
В ТЫСЯЧАХ...  
ыть может стоит изменить на 5?

)

попробуй Файл-Параметры-Дополнительно  
Число обрабатываемых ячеек(в тысячах) 33554  
 
Это 2010, в 2007 думаю так же

{quote}{login=[25rus]Gleyd}{date=12.08.2011 11:29}{thema=}{post}With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("маршрут")
On Error Resume Next  
.PivotItems("(пусто)").Visible = True  
MsgBox "Есть такой"  
End With  
 
во втором случае{/post}{/quote}  
 
 
блин сам запутался)))))  
первый вариант правильный)

With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("маршрут")  
On Error Resume Next  
.PivotItems("(пусто)").Visible = True  
MsgBox "Есть такой"  
End With  
 
во втором случае

Здравствуйте уважаемые форумчане!  
Возник такой вопрос: как проверить наличие или отсутствие элемента поля таблицы?  
Необходимо просто вывести сообщение есть такой элемент или нет.  
 
With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("маршрут")  
   On Error Resume Next  
   .PivotItems("(пусто)").Visible = True  
   MsgBox "Нет такого"  
   End With  
 
Вот это выведет что такого нет в любом случае  
 
With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("маршрут")  
   .PivotItems("(пусто)").Visible = True  
   MsgBox "Есть такой"  
   End With  
 
Вот это выдаст что такой есть если он есть. Если его нет - то ошибка...  
Как быть?

{quote}{login=nerv}{date=28.07.2011 02:40}{thema=}{post}2 [25rus]Gleyd
 
мой вариант работает так:  
 
A:B - сложить по дате, затем к ним данные из других столбцов{/post}{/quote}  
 
понятно)  
там надо не сложить, а сцепить))  
спасибо, уже нашли решение  
СцепитьЕсли)

ПОЧЕМУ оно за 03,07,2011?????  
xD  
D5=04.07.2011  
E5=4871,44  
 
...

{quote}{login=Юрий М}{date=28.07.2011 02:30}{thema=}{post}Какие данные ТУПО переносятся? За 04.07.2011 три записи, а в соответствующей строке запись за 03.07.2011. Откуда в ячейке I5 такое значение?{/post}{/quote}  
 
столбец I = столбец Е  
 
соответственно i5 = E5

{quote}{login=MCH}  
Както так{/post}{/quote}  
впринципе действенная функция и все правильно считает))  
СПС

{quote}{login=Юрий М}{date=28.07.2011 02:18}{thema=}{post}С ттн понятно, а что делать с данными из столбца Е? Почему в итоговой таблице в строке № 5 значение 4871,44?{/post}{/quote}  
 
получается данные тупо переносятся..)

сорри, но не то получается...  
возможно я что-то не так объяснил(((  
в результате должно быть так как в примере

только сейчас еще и ошибку выдает здесь:  
.Value = CDate(Cells(r, 1))

например вот:  
Sub Step_0()  
Dim r As Long  
Dim rfrom As Integer  
Dim rto As Long  
Dim st As String  
Dim sep As String    
 
sep = " "  
st = ""  
rfrom = 1  
rto = 1  
For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row  
If st = "" Then  
st = Cells(r, 4)  
Else  
st = st & sep & Cells(r, 4)  
End If  
If Cells(r, 1) <> Cells(r + 1, 1) Then  
With Range("H" & rto)  
.HorizontalAlignment = xlCenter  
.VerticalAlignment = xlCenter  
.Value = CDate(Cells(r, 1))  
End With  
With Range("J" & rto)  
.HorizontalAlignment = xlCenter  
.VerticalAlignment = xlCenter  
.WrapText = True  
.Value = st  
End With  
rfrom = r + 1  
rto = rto + 1  
st = ""  
End If  
Next r  
Columns("A:G").Select  
   Range("G1").Activate  
   Selection.Delete Shift:=xlToLeft  
   Columns("A:G").EntireColumn.AutoFit  
   Columns("C:C").Select  
   With Selection  
       .HorizontalAlignment = xlLeft  
       .Orientation = 0  
       .AddIndent = False  
       .IndentLevel = 0  
       .ShrinkToFit = False  
       .ReadingOrder = xlContext  
       .MergeCells = False  
   End With  
   Range("A1").Select  
End Sub

Здравствуйте уважаемые!  
Вот опять понадобилась ваша помощь....  
В примере лист с данными, необходимо в первых двух столбцах "сцепить" данные по дате, а затем в соответствии с датами присоединить данные из столбца Е...  
нечто подобное уже проделывалось ранее, но алгоритм был другой и переделать не смог....

{quote}{login=ikki}{date=04.05.2011 06:45}{thema=}{post}вариант без сводной, но при условии, что даты в исходной таблице расположены по возрастанию (пропуски в датах возможны)  
 
пс. если вдруг кто из гуру сюда заглянет - вопрос: можно ли сделать аналогичную таблицу итогов только формулами, без доп.столбцов для неотсортированного по датам списка? долго бился, пока ничего не получилось :({/post}{/quote}  
 
нафлудил((((  
Тоже приемлемый вариант, т.к. даты идут по возростанию  
только поправил чтобы нули не выдывал))  
=ЕСЛИ(A19<>0;СЧЁТЕСЛИ($A$2:$A$15;$A19);"")

{quote}{login=ikki}{date=04.05.2011 06:45}{thema=}{post}вариант без сводной, но при условии, что даты в исходной таблице расположены по возрастанию (пропуски в датах возможны)  
 
пс. если вдруг кто из гуру сюда заглянет - вопрос: можно ли сделать аналогичную таблицу итогов только формулами, без доп.столбцов для неотсортированного по датам списка? долго бился, пока ничего не получилось :({/post}{/quote}

{quote}{login=ikki}{date=04.05.2011 04:39}{thema=}{post}не оч. красивое решение, ибо комбинировать сводную и формулы рядом может быть чревато.  
но в определенных случаях может устроить.  
 
пс. формулы, формирующие списки, аналогичные сводным, здесь встречались не раз, но они тяжелые. а макрос... опять-таки - "в определенных случаях"{/post}{/quote}  
 
Вроде бы устраивает)))  
На что только не пойдешь чтобы автоматизировать работу по максимуму^^

и повторы можно убрать с помощью "удалить дубликаты", но опять же не получишь суммы по остальным столбцам...