Сделал все как в примере, и пробовал по статье делать (в принципе это одно и тоже). Пока не получилось. Располагаешь все в рабочей книге - работает, переносишь в надстройки - не работает)))... Буду дальше думать и разбираться. Может в настройках, что-то не включено.

Спасибо. Завтра попробую. О результате напишу.

Здравствуйте.
Есть рабочая книга "1.xlsx". И есть книга надстройки с поддержкой макросов, созданная мной - "Кнопки.xlam". Не могу "победить" открытие формы двойным кликом по ячейке в рабочей книге.
Вышел из положения пока следующим образом. В рабочей книге ("1.xlsx") создал макрос "Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)" для открытия формы ("Время"). Соответственно сохранять приходится в формате с поддержкой макросов ("1.xlsm"). Но сохраняться он должен без поддержки макросов. Прошу помощи... Как запустить открытие формы двойным кликом по ячейке в рабочей книге при данных условиях
Рассмотрю разные варианты. Но рабочая книга должна сохраняться без поддержки макросов.)))

Спасибо Большое. Ниразу не использовал сводные таблицы. Попробую разобраться. С "ходу взять" не удалось, надо уделить некоторое кол-во времени. Штука интересная.  

Если не сложно простенький пример с фильтром...))0

Наверное непонятен вопрос((((. Упрощу вопрос. Как перенести из одной книги в другую данные, при этом отсортировать по КОДу (например ООО, см пример) т.е. перенести данные определенного кода, и сохранить связь с данными для дальнейшего обновления. Я смог перенести только все данные (методом проб и ошибок, с помощью форума и доп литературы т.к. не являюсь профессионалом). В исходном коде много лишнего т.к. он взят из рабочего оригинала. Как я понимаю нужно вставить условие сортировки в обновление связей между книгами, но не могу понять куда...

Привет всем)))). Есть две книги: "Данные" и "Результат". В таблице данных находится отчет по всем данным. В книге "Результат" на листах 1, 2, 3 отсортированные данные по коду т.е. то что нужно получить в результате. У меня получилось только то что находится на листе 4 т.е. переносить данные так как есть в исходнике (книга "Данные"). Подскажите как осуществить одновременно перенос (или обновление) данных с сортировкой по КОДу. КОДы унифицырованы, т.е. сортировать только по определенным кодам.
Заранее спасибо.

Спасибо. КомбоБокс не вариант.  КомбоБокс уже используется. В исходной Форме все сложнее: в  КомбоБокс выбирается параметр, а в ЛистБоксе отображается список принадлежащий этому параметру и из последнего берутся данные (ЛистБокс удобен тем, что можно выбрать несколько данных). Иногда список в ЛистБоксе доходит до 1500 строк.

Еще раз спасибо. "На нет и суда нет."

Может быть есть какой-нибудь способ? У меня в одном ListBox очень большой список...надоело постоянно тыркать мышкай по полосе прокрутки. Может поменять ListBox на что-нибудь другое?

не получается скроллером мыши прокручивать вертикально данные в ListBox. Во вложении пример. Заранее благодарен.

Сам поборол. Кому интересно можете посмотреть вложение

Я понял. Спасибо всем. Открылась другая проблема. Нельзя ввести в открывшийся TextBox двух и более значное число....Как это побороть?

Помогите поменять формат ячейки на процентный при вводе числа через TextBox и перенести это число в ячейку без искажений. У меня не получается: ввожу в TextBox 5 - получаю в ячейке 500%...

GIG_ant огромное спасибо.

{quote}{login=GIG_ant}{date=19.07.2011 01:58}{thema=}{post}А вы в Модуле1 вот эту строку:  
Public Atr1 As String, Atr2 As String  
прописывали ?{/post}{/quote}  
 
Нет...  Прописал и все заработало. А, что это значит (объясните, если не трудно, я самоучка и многих нюансов не знаю)

{quote}{login=sdoman}{date=18.07.2011 05:26}{thema=Re: }{post}{quote}{login=GIG_ant}{date=18.07.2011 04:45}{thema=}{post}Примерно так ... см файл{/post}{/quote}  
 
Спасибо большое. Буду пробовать{/post}{/quote}  
 
GIG_ant.... в моем рабочем файле выдает ошибку. Подробно завтра.... устал...жара невыносимая...

{quote}{login=GIG_ant}{date=18.07.2011 04:45}{thema=}{post}Примерно так ... см файл{/post}{/quote}  
 
Спасибо большое. Буду пробовать

смотри вложение

Есть две UserForm, которые активируются последовательно  
Необходима процедура для внесения данных в столбец "город" к соответствующей фамилии, но  после нажатия на кнопку "Ок" UserForm1. Другими словами, как я это представляю, данные из UserForm2 необходимо поместить в буфер обмена, либо через переменные. ПОМОГИТЕ не получается!!!!!

Все доделал сам. Кому интересно - смотрите вложение.

{quote}{login=KukLP}{date=07.07.2011 10:39}{thema=}{post}Это.{/post}{/quote}  
 
Спасибо этот вариант не годится. В рабочем варианте используется несколько листов в которые необходимо вводить данные из UserForm с несколькими TextBox-ами. Все намного сложнее.

{quote}{login=Igor67}{date=07.07.2011 10:30}{thema=}{post}Не, по примеру так. В модуль формы  
Private Sub UserForm_Activate()  
TextBox1.Text = ActiveSheet.Range("Данные")  
End Sub{/post}{/quote}  
 
Спасибо большое. Все получилось. Но дальше возникла другая проблема. У меня в UserForm несколько TextBox-ов и в одну ячейку вносились данные из нескольких TextBox-ов. Вопрос в следующем: как их разделить из ячейки по TextBox-ам.

Здравствуйте.  
Есть TextBox и ячейка. Не могу сооброзить как сделать, что бы при открывании TextBox значения из ячейки отоброжались в TextBox для корректировки и дальнейшего переноса в туже ячейку. Заранее спасибо всем отозвавшимся помочь. В прикрепленной книге то, что у меня получилось.

тема закрыта. Буду сам разбираться.

{quote}{login=RAN}{date=12.05.2011 09:46}{thema=Re: Re: }{post}{quote}{login=sdoman}{date=12.05.2011 09:41}{thema=Re: }{post}{quote}{login=}{date=11.05.2011 08:01}{thema=}{post}в вашем файле{/post}{/quote}  
На всякий случай часть кода:  
{/post}{/quote}  
 
Спасибо конечно, но, думаю, эта гиперссылка никому из нас не нужна.{/post}{/quote}  
 
Грубовато...RAN...и не надо отвечать за всех, нашелся же хороший человек.

{quote}{login=}{date=11.05.2011 08:01}{thema=}{post}в вашем файле{/post}{/quote}  
 
Я понимаю, что не в вашем:)...Где искать ошибку? Может быть в настройках? Или в самом макросе? На всякий случай часть кода:  
 
Windows("База комплектующих.xls").Activate  
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _  
  "\\Accountant\SharedDocs\Двери_Контроль\Заказы_Сервер\База_С­ервер" & "\" & iCl & ".xls"  
 
Rows(iRow).Columns(12).Select  
       ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _  
       "\\Accountant\SharedDocs\Двери_Контроль\Заказы_Сервер\Заявки­" & "\" & iCl2 & ".xls"

В макросе жестко прописан путь гиперссылки. После выполнения макроса гиперссылка есть, но при сохранении книги путь исчезает. Приходится после сохранения указывать путь вручную и опять сохранять книгу. Подскажите в чем может быть дело?

В колонке (кол-во строк может доходить до 50) собираются по критерию "ЛДСП 10 мм" данные из таблицы "Табл". Для этого макрос я создал, а далее стопор, знаю что надо сделать, а как - не знаю. Далее (это последняя строка в колонке зеленого цвета) необходимо перенести все не одинаковые значения из колонки зеленого цвета. Дать этой ячейке ИМЯ (пусть будет "itog_end").  
Думаю, что эти данные нужно обозначить как массив и выгрузить не одинаковые значения в последнюю ячейку колонки (в данном случае желтого цвета). Цвет не имеет никакого отношения к решению задачи, это просто для наглядности. Просьба в помощи обозначения и выгрузки массива (у меня это не получается - "не догоняю"). Желательно Макросом. См. вложенный файл.

Для меня - сложновато разобраться. Может можно как-нибудь проще...

{quote}{login=}{date=23.02.2010 04:28}{thema=Re: }{post}{quote}{login=EducatedFool}{date=23.02.2010 10:58}{thema=}{post}За пару минут накидал макрос:  
 
Sub test()  
   Dim cell As Range, cell2 As Range, ra1 As Range, ra2 As Range  
   Application.ScreenUpdating = False: On Error Resume Next  
   Set ra1 = Range([A1], Range("A" & Rows.Count).End(xlUp))
   For Each cell In ra1.Cells  
       If Len(cell) Then  
           Set ra2 = Range(cell.Offset(1), Range("A" & Rows.Count).End(xlUp))  
           For Each cell2 In ra2.Cells  
               If cell2 = cell Then  
                   If Not cell.Next.Next Like cell2.Next.Next & ", *" Then  
                       cell.Next.Next = cell.Next.Next & ", " & cell2.Next.Next:  
                   End If  
                   cell2 = ""  
               End If  
           Next cell2  
       End If  
   Next cell  
   ra1.Offset(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete  
End Sub  
 
 
 
 
 
Он далеко не самый оптимальный, но работает.  
 
Пример - в файле: http://excelvba.ru/XL_Files/Sample__23-02-2010__12-59-20.zip{/post}{/quote}  
 
Большое спасибо. Но происходит изменение таблицы с данными, а этого происходить не должно. Результат должен выводиться в отдельную именованную ячейку. Я могу адаптировать данный макрос для себя, если можно описать действия в нем (кратко){/post}{/quote}  
И еще хочу добавить, что одинаковые данный в результате не должны повторяться (т.е. не должно быть так "qwe1, qwe1, qwe3, qwe1, qwe3", а должно быть - "qwe1, qwe3")