Эх...
Уокенбах Дж. Excel 2010, стр. 149
"Так как же быть разработчику приложений? Именно так, как призывает доктрина обхода
ошибок. Если то, что вы пытаетесь делать, не работает, хотя все говорит о том, что
должно работать, самое время перейти к плану Б. Обидно? Конечно! Потеря времени?
Несомненно! Такова судьба разработчика..."

при сохранении файла вручную авторазмер работает.
при сохранении книги макросом нет.

и что делать...

Да, но если изменить xlPart на xlWhole, то будет сравниваться ячейка целиком

Вова Исаев
Если я правильно понял..

Принцип работы такой же как у Kuzmich. Только происходит разбитие на группы по столбцу ID

Пока делал уже появились ответы.. Мой вариант

А зачем вообще нужна строчка
pt.DataLabel.Position = xlLabelPositionAbove

если не ошибаюсь без нее все работает

С.М.
Большое спасибо, так все работает

Например, при активизации листа или закрытии книги возникает событие ComboBox1_Change. Методом тыка понял, что дело в символе абзаца. Они содержатся в ячейках, образующих ComboBox1.List.
Использование абзаца желательно. Как можно обойти проблему


Debug.Print Len([D1].Value)
Debug.Print Len([D5].Value)
Debug.Print Len(ComboBox1.Value)
Здесь D1 - ячейка, выбранная в ComboBox
D5 - связанная с ComboBox
Для строки заг1Chr(10)описание
13
14
14
Видимо Excel превращает символ абзаца в два каких-то...

Определенно перед абзацем Excel вставляет символ Chr(13)

При нажатии на гиперссылку стало выпадать следующее окошко:
Причем до этого все работало. За компьютером работаю только я и никакого системного администратора нет.
Вопрос аналогичен этой теме
http://www.oldplanetaexcelforum.ru/forum.php?thread_id=14820

Решилась проблема так же лихо как и появилась:
Установил браузер google chrome и удалил его назнчив браузер по умолчанию IE.
мж кому поможет)

случайно. Вижу окошко ник. Думаю мж станет выделенным черным перед текстом.  
Прошу прощения у уважаемого ZVI

пример:

огромное спасибо. Не сразу начал. Все получилось. Сейчас добавлю пример

адрес этой ячеке. В примере происходит поиск всех этих ячеек и адрес всех поочереди передается функции на обработку. Если базовых ячеек несколько. Получается в частности довольно громоздкий код и большое время обработки. Плюс не всегда правильно находится строка: например, адрес ячейки A1 входит в адрес A10 и A100 и т.д.

передать в VBA, модуль листа или функцию в модуле. Спасибо. покопаюсь пока по этим свойствам

Стоит следующая задача:  
есть ячейка со значением. Например A1 = 50  
есть ячейка с формулой. Например A4: =A1  
 
можно как-либо передать ячеку A4 (или группу связанных с A1 ячеек) по какому-либо событию например?  
 
Сейчас вопрос решается с помощью события Worksheet_Change и ручного поиска связанных ячеек. Приложил пример.

Значит, только написание макроса, производящего похожие действия на фильтр в старших версиях будет решением проблемы

Спасибо)

Приветствую всех!  
 
Макрос в старшей версии работает. При его запуске в 2003 вылетает ошибка на строчке  
   Range("A4:D15").AutoFilter Field:=4, Criteria1:=arr, Operator:=xlFilterValues  
 
Подскажите пожалуйста, как можно подправить макрос, чтобы он заработал  
 
Листинг кода  
 
Sub Flt(rng As Range)  
   Application.ScreenUpdating = False  
     
   Dim ilastrow As Double  
   Dim li As Long, arr()  
 
   With rng  
       ilastrow = .Cells.Count  
       ReDim arr(ilastrow - 1)  
         
       For i = 1 To ilastrow  
           arr(i - 1) = .Cells(i, 1).Text  
       Next  
   End With  
   Range("A4:D15").AutoFilter Field:=4, Criteria1:=arr, Operator:=xlFilterValues  
     
   Application.ScreenUpdating = True  
End Sub  
Sub Фильтр_размер()  
   Dim str As String  
   str = Range("D1").Value  
 
   If StrComp(str, "Мелкие размеры") = 0 Then ' Если равны  
       Call Flt(Range("настройки!B7:B10"))  
   End If  
   If StrComp(str, "Средние размеры") = 0 Then ' Если равны  
       Call Flt(Range("настройки!C7:C10"))  
   End If  
   If StrComp(str, "Крупные размеры") = 0 Then ' Если равны  
       Call Flt(Range("настройки!D7:D9"))  
   End If  
 
End Sub  
 
Спасибо