Например: нужно запустить после ввода данных в texbox3 Private Sub - Commandbutton1_click()  
Такое реально, если да то подскажите синтаксис. Спасибо...

{quote}{login=** ТУРБО-ЁЖ **}{date=22.02.2009 03:30}{thema=Re: Убрать нули перед числом VBA}{post}{quote}{login=Макс}{date=22.02.09 15:13}{thema=Убрать нули перед числом VBA}{post}Как поставить ввод на значение в комбобокс, что бы он эти нули перед цифррами срезал{/post}{/quote}Используйте функцию Val:  
 
Private Sub ComboBox1_Change()  
 With Me.ComboBox1  
   If Len(.Text) = 6 Then .Text = Val(.Text)  
 End With  
End Sub{/post}{/quote}  
Знал что через VAL, а как уж описать это сам не додумался.  
Спасибо!

Есть код по которому вставляются значения через форму в пустые ячейки снизу столбцов BCDE, что нужно дописать, что бы это условие миновало первые 24 строки, т.е. ввод в чистый лист осуществлялся в B25,C25,D25,E25, а потом уж как и надо B26,C26,D26,E26  
iLastRow = Cells(Rows.Count, 2).End(xlUp).Row  
   Cells(iLastRow + 1, 2) = CDbl(Me.TextBox1)  
   Cells(iLastRow + 1, 3) = CDbl(Me.TextBox2)  
   Cells(iLastRow + 1, 4) = CInt(Me.TextBox3)  
Спасибо!

Спасибо большое... Сам бы я не допер... все работает, сверка идет по значению...

По моему догнал... Ты написал код для сравнения полученного значения с значениями из 6 колонки... Но там формулы и поэтому он их так и воспринимает, а что надо изменить, что бы он не формулы а результат учитывал в просмотре 6 колонке?

должно быть    
равно не 6545641, а 6545641. Опечатался...

картинка

Ну прям у нас "моя твоя не понимает" получается =) Да все ты первый раз правильно понял... Короче, заморочился, сделал тебе картинку, яснее не куда вроде... У меня не работает сцепка значений через & которую ты прописал (sCriteria = Right(TextBox2.Value, 6) & Right(TextBox3, 1))... Посмотри пожалуйста графический файл файл...  
Надеюсь все понятно станет...

попробуйте ввести не 001 с номером уже существующего заказа, а просто 1... Он тогда проигнорирует ошибку...

{quote}{login=The_Prist}{date=19.02.2009 03:12}{thema=}{post}Насколько я понял, надо так.{/post}{/quote}  
Ух ты... супер  
Работает только если в номер упаковки вводишь 001, а просто 1 пропускает. А можно что бы нули роли не играли, что 001 что 1 ввести, он как одинаковые числа считал (так же и 002 и 2)

Господа! че то не пашет=(  
Вот файл с хорошим пояснением.

Доброго времени суток, знатокам Excel и VBA!    
Вопрос такой:    
Как организовать проверку на ввод значения в TextBox3 в форме на click commandbutton1 так что бы соблюдалось условие: Если значение вычисляемое по формуле С*10+D (С и D столбцы) повторяется , то выдает ошибку "такой заказ уже введен". Если геморно считать, то есть столбец F уже с посчитанным значением (С*10+D), тогда на несовпадение вводимого значения в textbox3 и имеющих в столбце F всего листа.  
Например: столбец С содержит № заказа 700212, столбец D-номер конверта 1, в совокупности они дают уникальное число 7002121, который больше не должен повторятся. Это реально описать в VBA или большой код получится? За ранее спасибо

{quote}{login=}{date=22.11.2008 05:59}{thema=Re: }{post}Ты пример в экселе оформи, и пример напиши почему предыдущий ответ не подходит напишешь тогда быстрее поможем.{/post}{/quote}  
Слэн, понял ход твоих мыслей, но в столбцы А и В, значения так же дублируются (пример во вложении), как быть с этим?

В пояснение выкладываю файл с примером (спасибо СЛЭН`у ;))

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

{quote}{login=vikttur}{date=19.11.2008 02:21}{thema=}{post}"Нужно в итоговом (последнем) листе дублировать эти строки по порядку за каждый день"  
"все заполненые строки из 31 листа".  
Так что нужно - строки со всех листов или только с 31?  
Приложите пример с 4-5 листами дней и итоговым листом.{/post}{/quote}  
со всех листов  
Пример файла сырой, там много лишнего, вот навоял побыстрому пример

{quote}{login=overtiger}{date=19.11.2008 01:53}{thema=Помажите люди добрые...}{post}Есть таблица с одинаковыми столбцами, но разным количеством строк, так как каждый день заполняетс разное количество проводок. Их таких 31 (на каждый день). Нужно в итоговом (последнем) листе дублировать эти строки по порядку за каждый день (все строки заполненые строки из 31 листа) ссылка лист!1 и т.д. не катит, так как черпает пустые строки (в аждом листе их заложено 120). Как сделать так что бы строки из 31 листа переносились в итоговый лист только заполненые (не пустые)... всю башку себе сломал. Через сводные таблицы не тема, так как необходимо постоянное обновление без пересчета листа.    
  И еще впросик: нужно просто узнать, есть ли такой номер в массиве, если да, то "ок", нет "плохо", ВПР слишком мудреные, здесь задача простая, просто сравнить А1 с B1:B120 типо ЕСЛИ(А1=B1:B120;"ок";"плохо").  
  За ранее большое спасибо!!!  
P.S. Сайт прикольный и очень полезный, спасибо создателям...{/post}{/quote}  
со второй частью разобрался... =ЕСЛИ(A1=ВПР(A1;B1:B120;2;ЛОЖЬ);"ok";"плохо")  
мжет и криво, но хоть так, а вот с первым никак... напишите, плиз, кто знает...

{quote}{login=vikttur}{date=19.11.2008 02:07}{thema=}{post}Опять студенты косяками пошли - уже троих насчитал :){/post}{/quote}  
Ну если не студент, попробуй ответить на первую часть вопроса... ;)

Есть таблица с одинаковыми столбцами, но разным количеством строк, так как каждый день заполняетс разное количество проводок. Их таких 31 (на каждый день). Нужно в итоговом (последнем) листе дублировать эти строки по порядку за каждый день (все строки заполненые строки из 31 листа) ссылка лист!1 и т.д. не катит, так как черпает пустые строки (в аждом листе их заложено 120). Как сделать так что бы строки из 31 листа переносились в итоговый лист только заполненые (не пустые)... всю башку себе сломал. Через сводные таблицы не тема, так как необходимо постоянное обновление без пересчета листа.    
  И еще впросик: нужно просто узнать, есть ли такой номер в массиве, если да, то "ок", нет "плохо", ВПР слишком мудреные, здесь задача простая, просто сравнить А1 с B1:B120 типо ЕСЛИ(А1=B1:B120;"ок";"плохо").  
  За ранее большое спасибо!!!  
P.S. Сайт прикольный и очень полезный, спасибо создателям...