Большой выпадающий список с данными из другой закрытой книги Excel. - Microsoft Office Excel - Страница 6

ugli · 17.01.2010, 18:00

Private Sub inic()
Dim sh, sh2 As Worksheet
Set sh = Worksheets("ПЛИТОЧНЫЙ").Range("A3")
Set sh2 = Worksheets("ЗАКУПКА").Range("A40")

For a = 1 To sh.Range("a10").End(xlUp).Row
If IsNumeric(sh.Cells(a, 6).Text) = False Then
Else
sh2.Cells.Value = sh.Cells(a, 1).Text
End If
Next
End Sub

Получается добавить первую ячейку из найденной строки,а нужно чтобы еще рядом прописывалась 2,5,7 ячейки из найденной строки! например...
и при поиске значений на другом листе его найденные значения прописывались ниже(не заменяя уже вписанные)

doober · 17.01.2010, 18:21

Цитата:

Сообщение от ugli

КАК тут ПОСТАВИТЬ КЕГУ ПИВА

Гдето на просторах инета потерялся

Кег.
Чтобы не устраивать избу-читальню,и не собирать велосипед по винтикам,обдумайте все,создайте файл и тогда задавайте вопрос.
Иначе будет бесконечный балаган

ugli · 17.01.2010, 18:31

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

doober · 17.01.2010, 19:29

Цитата:

на листе заказ формируется так называемый отчет...

А где лист заказ,или вместо него лист закупка

ugli · 17.01.2010, 19:43

перепутал
лист и кнопка "закупка"!!!

doober · 17.01.2010, 21:36

А где остальные файлы? с фурнитурой и прочим

ugli · 17.01.2010, 21:56

Вот весь пакет.

doober · 18.01.2010, 16:51

Код Формы Фурнитура кардинально изменил.
ЛистБоксы убрал.В Прайсах сделаете предложенные изменения

на листе заказ формируется так называемый отчет...

ugli · 18.01.2010, 18:43

Задумка оригинальна и интересна!
ОГРОМНЕЙШЕЕ благодарю(кинь в личку кошелек,пива поставлю реального).
Немного правда потупил, в плане того,когда выходит окно с фурнитурой нужно указать ячейку куда вставлять значение...

doober · 18.01.2010, 19:24

форма запускается не модально,ячейку конкретно указывать не надо,достаточно указать нужную строку

17.01.2010, 19:43	#55
ugli Пользователь Регистрация: 03.01.2010 Сообщений: 29	перепутал лист и кнопка "закупка"!!! Последний раз редактировалось ugli; 17.01.2010 в 19:47.

17.01.2010, 21:36	#56
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	А где остальные файлы? с фурнитурой и прочим Анализ,обработка данных Недорого

18.01.2010, 19:24	#60
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	форма запускается не модально,ячейку конкретно указывать не надо,достаточно указать нужную строку Анализ,обработка данных Недорого

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Выпадающий список с данными из другой закрытой книге Excel.	agregator	Microsoft Office Excel	1	21.09.2009 16:33
Копирование из закрытой книги	Maxx	Microsoft Office Excel	11	11.08.2009 10:39
Как скопировать выпадающий список на другой лист и в другую книгу	gleod	Microsoft Office Excel	4	07.07.2009 22:36
Как запустить макрос при изменении другой книги Excel?	Град	Microsoft Office Excel	12	10.06.2008 10:01

17.01.2010, 18:00	#51
ugli Пользователь Регистрация: 03.01.2010 Сообщений: 29	Private Sub inic() Dim sh, sh2 As Worksheet Set sh = Worksheets("ПЛИТОЧНЫЙ").Range("A3") Set sh2 = Worksheets("ЗАКУПКА").Range("A40") For a = 1 To sh.Range("a10").End(xlUp).Row If IsNumeric(sh.Cells(a, 6).Text) = False Then Else sh2.Cells.Value = sh.Cells(a, 1).Text End If Next End Sub Получается добавить первую ячейку из найденной строки,а нужно чтобы еще рядом прописывалась 2,5,7 ячейки из найденной строки! например... и при поиске значений на другом листе его найденные значения прописывались ниже(не заменяя уже вписанные)

18.01.2010, 18:43	#59
ugli Пользователь Регистрация: 03.01.2010 Сообщений: 29	Задумка оригинальна и интересна! ОГРОМНЕЙШЕЕ благодарю(кинь в личку кошелек,пива поставлю реального). Немного правда потупил, в плане того,когда выходит окно с фурнитурой нужно указать ячейку куда вставлять значение...