Все спасибо получилось. Благодарю всех за помощь!!!!!

Не выходит

Дело в том, что я должен вставить выпадающий список в ячейку по щелчку мыши, а это макрос.
и брать данные нужно с листа прайс, там умная таблица, столбец наименование товара.
Таблица1.[Наименование товара]. Но в поле validation.add function1 нужно вставить ссылку на этот столбец.
А как я не понимаю и ошибка вылетает.

нет не выходит, прошу прощения.  

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

Добрый день добрым людям всем.
при попытке выполнить команду
iE. navigate "https://www.tektorg.ru"
всплывает окно сайта, при том что visible false и ошибка 2147417848(80010108)
на другие сайты заходит.
что может быть?
iE as new Internetexplorer

то ли это защита какая срабатывает?

Спасибо огромное, заработало. На работе...

Я сильно извиняюсь, с телефона пишу. Не смогу.

Добрый день.
пытаюсь вставить формулу:
.range("k" & i).formula="=ч(целое(h" & i &")-целое(сегодня()))"
в столбике h дата, пытаюсь вычислить разницу  с текущей и вставить в k.
формула нужна, так как  разница дней не должна зависить от vba модуля.
результат: в ячейке #имя? Хотя когда жму enter результат правильный.
может кто подскажет?

Спасибо огромное за помошь

нужно переносить цвета с одного диапазона в другой, не выходит, можете помочь

Есть две связанные друг с другом таблицы а именно: сделки и платежи. В таблице сделки каждая строчка означает сделку и строчке присвоен уникальный номер. В таблице платежи все входящие платежи и даты поступления. Что хотелось бы сделать: Чтобы при нажатии гиперссылки платежи в некой строке сделок я переходил в лист платежи отфильтрованный по тому коду сделки в котором нажата гиперссылка. Вопрос как это сделать лучше? Где почитать о таких реализациях в Excel?

Hugo спасибо!!!, все работает.

а нельзя попробовать без VBA (если это вообще-то возможно)?
а то код модуля на память не запомнишь, да и на работе сложности с макросами.

Добрый день
Помогите с формулами
Есть таблица в которой прописаны товары, разбитые по группам.
В примере их 4. Нужно объединить товары каждой группы в одну ячейку и вычислить сумму группы.

В ручную я сделал, хотел бы автоматизировать для ускорения обработки больших таблиц.

Спасибо работает!!!!

Надо единственное поменять еще из описания массива String на Variant

Этот массив потом служит источником для ListBox и если не убрать хвост будут пустые строки
Цикл у меня другой, я в своем примере хотел смысл передать

Как переложить один массив в другой не подскажете?
есть вариант одним движением без циклов?

Просто остальные значения у меня пустые а сколько их я узнаю в цикле...

Добрый день
Подскажите в чем ошибка? (пишет error 9 )
Мне нужно обрезать массив tempString до 100 элементов.

Sub yyy()
Dim tempString() As String
ReDim tempString(1 To 500, 1 To 38)
For i = 1 To 100
For j = 1 To 38
tempString(i, j) = "1"
Next j
Next i
ReDim Preserve tempString(1 To 100, 1 To 38)
End Sub

нет. все как раньше.

Прикрепил файл. Чтобы выскочила моя ошибка выберите объект "проверка"  
предварительно скроллингом поднимите к середине окна.  
И вы увидите, что во втором Листбоксе выделится не 3 позиция? как я задаю а та где будет курсор мышки.

Да еще один момент. При трассировке F8. Все нормально. Выделена та строчка какая нужна.

Дело в том, что я при открытии 2 формы в процедуре  
UserForm_Initialize()пишу ListBox1.ListIndex = 40  
конкретное число для проверки и не получаю желаемого.  
Думаю, это связано с тем что место двойного нажатие мышки обрабатывается после  
UserForm_Initialize

Добрый день  
Может кто сталкивался с моей проблемой?  
Ситуация в следующем:  
В форме Userform1 есть Листбокс в нем я выбираю двойным нажатием мышки элемент списка  
Далее я закрываю форму и открываю новую с уже другим Листбоксом.  
Так VBA запоминает куда я нажимал ранее в Userform1 и делает активным элемент списка не там где бы я хотел а там где ранее счелкнул в первой форме.  
Как можно исправить?

спасибо

Правильно ли я понял, что описание точного массива  
Dim Arr(1 to 13,1 to 2) не подходит?

Есть таблица 2Х13  
Для простоты запоминаю ее в именованный диапазон "Oblast"  
Я создаю массив Dim Arr(1 to 13,1 to 2)  
Теперь пытаюсь бросить диапазон в массив  
Arr=Application.Transpose(Application.Transpose(Range("Oblast")))  
в результате ошибка  
Если описать переменную Arr() ошибки нет  
 
Как правильно сделать?

это облать определения массива    
а заполнить его 1,2,3,4.... до .Count?  
x(i)=i в цикле?

Большое спасибо за ответы  
Все работает  
 
Можно ли создать автоматически одномерный массив Х от 1 до количества записей словаря? В теле цикла при создании словаря или отдельно?  
 
чтобы выполнить выражение  
ListBox1.List = Application.Transpose(Array(.Keys, .Items, x))

Добрый день  
Возник дополнительный вопрос о предложенном варианте  
ListBox1.List = WorksheetFunction.Transpose(Array(.Keys, .Items))  
 
Как дополнить код в случае если требуется не 2-х а 3-х колоночный листбокс  
в первой колонке записать номер элемента...  
неужели обычный цикл?  
for i=1 to Dict.Count  
Next i

все понятно  
спасибо за разжевывание  
 
последний вопрос  
как передать значения полученных массивов .keys и.items в listbox(2-х колоночный)  
есть ли какой быстрый способ типа listbox.list=imassiv  
а массив как то сформировать?