LenusПОЧЕМУ НЕ РАБОТАЕТ INPUT НА ЛИСТ 1???
Что конкретно тебя смущает? был я в Лист1 и твою INPUT я там не видел. :)
что и как есть INPUT?

Lenusне работают формулы на
листе Input и не работает кнопка
Add to Databasе на лист 1
к сожалению у меня все работает. может у тебя формулы считаются вручную?
кнопка "Add to Databasе" выполняет макрос UpdateLogWorksheet, однако в нем нет даже упоминания о Лист1. После ее нажатия данные пихаются в лист "te1".

LenusДля начала, у тебя имя PartsDatabase содержит испорченную формулу (видимо, лист был удален):
=OFFSET(#REF!$A$1,0,0,COUNTA(#REF!$A:$A),6)

Если ее поправить на:
=OFFSET(LookupLists!$A$2,,,COUNTA(LookupLists!$A:$A)-1,6)

то можно будет использовать формулы типа:
=VLOOKUP($D$12,PartsDatabase,3,)
или
=VLOOKUP($D$12,PartsDatabase,3,0)
или
=VLOOKUP($D$12,PartsDatabase,3,FALSE)
что одно и то же.

KL
[MVP - Microsoft Excel]

ГДЕ НУЖНО ПОПРАВИТЬ Я НЕ МОГУ НАЙТИ, ТОГО ЧТО ВЫ ПИШИТЕ????[/quot]
вставка-имя-присвоить

Lenus[quot Дадахан][quot Lenus]

В ЭТОЙ СТРОКЕ ВЫДАЕТ ОШИБКУ

=OFFSET(LookupLists!$A$2,,,COUNTA(LookupLists!$A:$A)-1,6)
=СМЕЩ(LookupLists!R1C1;0;0;СЧЁТЗ(LookupLists!C1);6)

LenusУважаемый Дадахан!
я плохо понимаю как работать с присвоенными именами. если Вас не затруднит можете это показать на моем примере?
1. выложи файл, где нужно будет сделать изменения.
2. напиши нормальным языком, что нужно сделать (что должно получиться в результате) и как можно подробнее.
потом возможно кто-то и поможет

Lenus
выкладываю....

-при вводе артикля (лист Input )нужно чтобы
автоматически появл.
Ед.изм.
Цена
Вес
данные берутся с листа LookupLists.
- выбор клиента из списака
данные берутся с листа LookupLists.
- при нажати кнопки "Add to Database" данные с листа Input копируются на лист1
осталось в лист1 переделать шапку таблицы(под последнюю запись), либо меняй в макросах поля..

Lenus[quot Дадахан][quot Lenus]
А КАК МОЖНО УБРАТЬ ЭТУ ЧАСТЬ из макроса?
With historyWks
With .Cells(nextRow, "A")
.Value = Now
.NumberFormat = "mm/dd/yyyy"
End With
.Cells(nextRow, "B").Value = Application.UserName
oCol = 3
For Each myCell In myRng.Cells
historyWks.Cells(nextRow, oCol).Value = myCell.Value
oCol = oCol + 1
Next myCell
End With
1. выдели мышкой и кнопочка DELETE
2. выдели клавиатурой и кнопочка DELETE
3. Закрась фламастером на экране
4. не обращай внимание на нее.
попробуй, что нибудь получится :)

уфф. фсе за тебя делать?