Добрый день уважаемые форумчане, подскажите пожалуйста как сделать это: Имеется UserForm2 где оператор вносит данные для журнала заявок. Хотелось бы чтоб, если в "Наименование: ComboBox4" оператор выбрал нужный ему материал в TextBox2 (с помощью ВПР "VLOOKUP") отобразился нужный ГОСТ из листа "Номенклатура-ГОСТ" Наименование берется из листа "Номенклатура" а ГОСТ берется из из листа "Номенклатура-ГОСТ" куда копируются данные (дублируются) из листа "Номенклатура" пример в файле... Я скопировал код один по ВПР и попытался что то подобное изобразить (((( и у меня полный бред получается [vba]
Код
Sub TextBox2() Dim Cell As Range: Application.ScreenUpdating = False For Each Cell In Sheets("Номенклатура").[B2:B1000] Cell.FormulaR1C1 = "=VLOOKUP(Me.ComboBox4,Sheets"Номенклатура-ГОСТ"!B2:C50,2,0)" If IsError(Cell) Then Cell = "" Next End Sub
[/vba]
Добрый день уважаемые форумчане, подскажите пожалуйста как сделать это: Имеется UserForm2 где оператор вносит данные для журнала заявок. Хотелось бы чтоб, если в "Наименование: ComboBox4" оператор выбрал нужный ему материал в TextBox2 (с помощью ВПР "VLOOKUP") отобразился нужный ГОСТ из листа "Номенклатура-ГОСТ" Наименование берется из листа "Номенклатура" а ГОСТ берется из из листа "Номенклатура-ГОСТ" куда копируются данные (дублируются) из листа "Номенклатура" пример в файле... Я скопировал код один по ВПР и попытался что то подобное изобразить (((( и у меня полный бред получается [vba]
Код
Sub TextBox2() Dim Cell As Range: Application.ScreenUpdating = False For Each Cell In Sheets("Номенклатура").[B2:B1000] Cell.FormulaR1C1 = "=VLOOKUP(Me.ComboBox4,Sheets"Номенклатура-ГОСТ"!B2:C50,2,0)" If IsError(Cell) Then Cell = "" Next End Sub
скорее всего я бред написал раз столько просмотров а ответов нет. Может я что то не понятно о звучал и вы меня не понимаете. Вы скажите пожалуйста (((( а то я переживаю что останусь без ответа ((((
скорее всего я бред написал раз столько просмотров а ответов нет. Может я что то не понятно о звучал и вы меня не понимаете. Вы скажите пожалуйста (((( а то я переживаю что останусь без ответа ((((lebensvoll
sboy, я и не спорю (((( я его взял потому как этот код для ВПР и его действия. Думал применить его к своему Но получилось полная АХИНЕЯ (((((
sboy, я и не спорю (((( я его взял потому как этот код для ВПР и его действия. Думал применить его к своему Но получилось полная АХИНЕЯ (((((lebensvoll
sboy, попытался сделать так вроде бы разыскал то что нужно )))) но снова он на меня ругается (((( [vba]
Код
Private Sub TextBox2() TextBox2.Value = WorksheetFunction.VLookup(CStr(Me.ComboBox4.Value), Sheets("Номенклатура-ГОСТ").Range("B2:C50"), 2, 0) End Sub
[/vba] КРИЧИТ вот так вот:
Цитата
Член уже существует в модуле объекта, от которого этот модуль выводит
Снова пошел на поиск (((( но мне кажется что этот код уже близок был к моему решению И так если делать то снова ругается (((( [vba]
Код
Private Sub TextBox2() Me.ComboBox4.Value = WorksheetFunction.VLookup(CStr(Me.ComboBox4.Value), Sheets("Номенклатура-ГОСТ").Range("B2:C50"), 2, 0) End Sub
[/vba] вроде бы понял что он хочет но подправив его снова ПРОВАЛ (((( [vba]
Код
Private Sub ComboBox4() TextBox2.Value = WorksheetFunction.VLookup(CStr(Me.ComboBox4.Value), Sheets("Номенклатура-ГОСТ").Range("B2:C50"), 2, 0) End Sub
[/vba]
sboy, попытался сделать так вроде бы разыскал то что нужно )))) но снова он на меня ругается (((( [vba]
Код
Private Sub TextBox2() TextBox2.Value = WorksheetFunction.VLookup(CStr(Me.ComboBox4.Value), Sheets("Номенклатура-ГОСТ").Range("B2:C50"), 2, 0) End Sub
[/vba] КРИЧИТ вот так вот:
Цитата
Член уже существует в модуле объекта, от которого этот модуль выводит
Снова пошел на поиск (((( но мне кажется что этот код уже близок был к моему решению И так если делать то снова ругается (((( [vba]
Код
Private Sub TextBox2() Me.ComboBox4.Value = WorksheetFunction.VLookup(CStr(Me.ComboBox4.Value), Sheets("Номенклатура-ГОСТ").Range("B2:C50"), 2, 0) End Sub
[/vba] вроде бы понял что он хочет но подправив его снова ПРОВАЛ (((( [vba]
Код
Private Sub ComboBox4() TextBox2.Value = WorksheetFunction.VLookup(CStr(Me.ComboBox4.Value), Sheets("Номенклатура-ГОСТ").Range("B2:C50"), 2, 0) End Sub
Private Sub ComboBox4_Change() On Error Resume Next TextBox2.Value = WorksheetFunction.VLookup(CStr(Me.ComboBox4.Value), Sheets("Номенклатура-ГОСТ").Range("B2:C50"), 2, 0) End Sub
[/vba]
lebensvoll, [vba]
Код
Private Sub ComboBox4_Change() On Error Resume Next TextBox2.Value = WorksheetFunction.VLookup(CStr(Me.ComboBox4.Value), Sheets("Номенклатура-ГОСТ").Range("B2:C50"), 2, 0) End Sub
sboy, СПАСИБО РАБОТАЕТ Значится я нужный код разыскал и то что он ругается и на что, то ж правильно понял (ну согласен немного ))))) Еще раз спасибо!!! СУПЕР
sboy, СПАСИБО РАБОТАЕТ Значится я нужный код разыскал и то что он ругается и на что, то ж правильно понял (ну согласен немного ))))) Еще раз спасибо!!! СУПЕРlebensvoll
lebensvoll, Насколько я понял из вашего файла, Вы пытаетесь решить достаточно сложную логистическую проблему в "чистом" Excel. Не в курсе, что у Вас за предприятие, какова его копьютерная структура, специалисты и т.д. Но полагаю, что реализовывать такой проект следует на SQL-сервере, а вот "клиента" и отчеты вполне можно мастерить на Excel. (В VS, конечно, лучше, но это такое :)
Получился некоторым образом офтоп, но уж извините
lebensvoll, Насколько я понял из вашего файла, Вы пытаетесь решить достаточно сложную логистическую проблему в "чистом" Excel. Не в курсе, что у Вас за предприятие, какова его копьютерная структура, специалисты и т.д. Но полагаю, что реализовывать такой проект следует на SQL-сервере, а вот "клиента" и отчеты вполне можно мастерить на Excel. (В VS, конечно, лучше, но это такое :)
Получился некоторым образом офтоп, но уж извините SGerman
Мудрость приходит со старостью. Но иногда старость приходит одна :)
SGerman, я согласен с вами что это вся работа не для экселя ((((( но когда начальству предлагается вариант. Создать нашу всю работу в 1С (((( но потребуются вложения ((((( то у них сразу и желание пропадает (с одной стороны я их понимаю они же потом не смогут утаить свои ДЕЛИШКИ ЛЕВЫЕ) а тут они преподносят информацию выше стоящим как им нужно в виде отчетов и т.д Работаю я в строительной лаборатории на бетонном заводе. План моей работы возник не случайно. В виду того что каждый раз когда просят сформировать отчет или начинают мне тыкать что куда вы деваете материалы (((( когда они начинают сверяться с бухгалтерами. У меня рвет крышу я им вспоминаю сразу все И мое ОБУЧЕНИЕ которого я жду уже чуть ли не с полгода ((((( и то что им я предлагал обратиться к людям и то что можно было сделать всю эту работу в access (в моих темах данная работа есть, благодаря форуму и видеоурокам сделал ее за неделю, доволен сделанным на 100%. Но их не устраивает то что чтоб установить данный acess на 9-ть компов то нужны средства)))) замкнутый круг). То что вы мне предлагаете для меня вообще темный лес (((((
Цитата
Но полагаю, что реализовывать такой проект следует на SQL-сервере,
я то с кодами уже 2-ю неделю БЬЮСЬ и если бы мне не нравилась работа (ПОЗНАНИЯ экселя) а также упорство. То и многоуважаемые форумчане (которые отзываются на мой КРИК"МОЛЬБУ") и их терпение в объяснениях что и как делать (((((( не знаю было бы достигну то то что есть сейчас... Спасибо вам огромное за совет, но боюсь что я не справлюсь. Скорее всего в дальнейшем это и не пойдет в работу (((( не знаю. Но когда я завершу это дело то я уже буду по крайней мере понимать хоть часть того что я создал с ВАМИ и смогу если потребуется применить что то или сделать что то используя это ))))) Как то вот так вот все происходит...
SGerman, я согласен с вами что это вся работа не для экселя ((((( но когда начальству предлагается вариант. Создать нашу всю работу в 1С (((( но потребуются вложения ((((( то у них сразу и желание пропадает (с одной стороны я их понимаю они же потом не смогут утаить свои ДЕЛИШКИ ЛЕВЫЕ) а тут они преподносят информацию выше стоящим как им нужно в виде отчетов и т.д Работаю я в строительной лаборатории на бетонном заводе. План моей работы возник не случайно. В виду того что каждый раз когда просят сформировать отчет или начинают мне тыкать что куда вы деваете материалы (((( когда они начинают сверяться с бухгалтерами. У меня рвет крышу я им вспоминаю сразу все И мое ОБУЧЕНИЕ которого я жду уже чуть ли не с полгода ((((( и то что им я предлагал обратиться к людям и то что можно было сделать всю эту работу в access (в моих темах данная работа есть, благодаря форуму и видеоурокам сделал ее за неделю, доволен сделанным на 100%. Но их не устраивает то что чтоб установить данный acess на 9-ть компов то нужны средства)))) замкнутый круг). То что вы мне предлагаете для меня вообще темный лес (((((
Цитата
Но полагаю, что реализовывать такой проект следует на SQL-сервере,
я то с кодами уже 2-ю неделю БЬЮСЬ и если бы мне не нравилась работа (ПОЗНАНИЯ экселя) а также упорство. То и многоуважаемые форумчане (которые отзываются на мой КРИК"МОЛЬБУ") и их терпение в объяснениях что и как делать (((((( не знаю было бы достигну то то что есть сейчас... Спасибо вам огромное за совет, но боюсь что я не справлюсь. Скорее всего в дальнейшем это и не пойдет в работу (((( не знаю. Но когда я завершу это дело то я уже буду по крайней мере понимать хоть часть того что я создал с ВАМИ и смогу если потребуется применить что то или сделать что то используя это ))))) Как то вот так вот все происходит...lebensvoll
Кто бы ты ни был, мир в твоих руках
Сообщение отредактировал lebensvoll - Среда, 27.07.2016, 20:12
lebensvoll, Понятно. Ситуация типичнейшая, увы Находятся деньги для командировок за рубеж, служебные авто, даже на дорогие компы "начальству", а на автоматизацию-оптимизацию собственного "хозяйства" денег нет, как обычно :) У Вас, мне кажется, есть два пути: 1. Облегчить работу прежде всего себе самому, создав свою "базу" и алгоритмы работы с нею. Как вариант, будет чем пугать начальство в случае возможного увольнения :) 2. Саморазвитие. На перспективу. А вот тут надо настраиваться на "тонкие" технологии, где без SQL ни шагу. Сильно сложного там нет ничего - надо только начать. Из бесплатных серверов предложил бы суперпопулярный сегодня MySQL или PostgreSQL. Неплохой вариант и MS SQL Server Express Edition - тоже бесплатный.
Если пойдете по пути (2), могу помочь чем смогу - времени у меня свободного немало Пишите в мыло, а там может и соскайпимся
lebensvoll, Понятно. Ситуация типичнейшая, увы Находятся деньги для командировок за рубеж, служебные авто, даже на дорогие компы "начальству", а на автоматизацию-оптимизацию собственного "хозяйства" денег нет, как обычно :) У Вас, мне кажется, есть два пути: 1. Облегчить работу прежде всего себе самому, создав свою "базу" и алгоритмы работы с нею. Как вариант, будет чем пугать начальство в случае возможного увольнения :) 2. Саморазвитие. На перспективу. А вот тут надо настраиваться на "тонкие" технологии, где без SQL ни шагу. Сильно сложного там нет ничего - надо только начать. Из бесплатных серверов предложил бы суперпопулярный сегодня MySQL или PostgreSQL. Неплохой вариант и MS SQL Server Express Edition - тоже бесплатный.
Если пойдете по пути (2), могу помочь чем смогу - времени у меня свободного немало Пишите в мыло, а там может и соскайпимся SGerman
Мудрость приходит со старостью. Но иногда старость приходит одна :)
SGerman, Я и так иду по 2-му пути (((( но пока что мое саморазвитие направлено на эксель То что я знал раньше и то что я (хоть как то понимаю в нем) после того как я зарегистрировался на этом форуме. ЭТО ПРОСТО земля и небо ))))) Спасибо создателям за это, а также низкий поклон всем кто принимает участие в помощи всем обратившимся за помощью!!!
SGerman, Я и так иду по 2-му пути (((( но пока что мое саморазвитие направлено на эксель То что я знал раньше и то что я (хоть как то понимаю в нем) после того как я зарегистрировался на этом форуме. ЭТО ПРОСТО земля и небо ))))) Спасибо создателям за это, а также низкий поклон всем кто принимает участие в помощи всем обратившимся за помощью!!! lebensvoll