{quote}{login=Юрий М}{date=26.01.2010 10:01}{thema=}{post}Количество строк диапазонов Участков всегда неизменное - 20 строк?{/post}{/quote}  
 
Нет, не постоянно,- это я так в примере сделал. На самом деле, те таблички по участкам будут идти на листе друг за другом по горизонтали, а их столбцы, куда будут идти данные с ввода, будут располагаться  по вертикали вниз, стремясь к бесконечности (сколько хватит Excelя 2003))))))) )

{quote}{login=littus}{date=26.01.2010 10:19}{thema=Re: }{post}{quote}{login=Юрий М}{date=26.01.2010 10:01}{thema=}{post}Количество строк диапазонов Участков всегда неизменное - 20 строк?{/post}{/quote} На самом деле, те таблички по участкам будут идти на листе друг за другом по горизонтали, а их столбцы, куда будут идти данные с ввода, будут располагаться  по вертикали вниз, стремясь к бесконечности (сколько хватит Excelя 2003))))))) ){/post}{/quote}  
Так и сделайте пример с реальной структурой. Иначе ведь потом сами закричите, что макрос неправильно работает на ВАШИХ данных. В Правила загляните...

{quote}{login=littus}{date=26.01.2010 10:19}{thema=Re: }{post}{quote}{login=Юрий М}{date=26.01.2010 10:01}{thema=}{post}{/post}{/quote} На самом деле, те таблички по участкам будут идти на листе друг за другом по горизонтали{/post}{/quote}  
Следует ли это понимать так, что для первого участки - столбцы A:D, для второго - E:H, и так далее?

вот набросал (макрос Юрия М слегка обгрызанный)  
База на листе2  
Результат на листе3  
алгоритм таков  
1.Записи добавляются в базу  
2. лист3 - очищается  
3. по базе формируется новый результат (с учетом новых данных) и копируется на лист3  
 
вот это нормальный алгоритм.  
 
тестите)

{quote}{login=littus}{date=26.01.2010 11:10}{thema=}{post}Да, вы правы надо сразу по-нормальному делать. Но вот пример, однако, как и в первом , мои данные заносятся только в таблицу по Участку1. Как сделать чтоб данные заносились отдельно в таблицу по второму и отдельно по третьему участку я знаю, т.е поменять макрос. Так же думал, исходя из своих возможностей, сделать для каждого участка свою кнопку (но это не серьезно. А вот как заставит со своей Формы ввода распределятся данные по таблицам, в зависимости от введенного пользователем номера участка,- не понимаю..{/post}{/quote} ну вот разносится по трем таблицам (только по трем) этот путь - это путь через задницу, причем даже еще худшую чем раньше. зачем такой геморрой добровольно себе на шею вешать - не понимаю. <BR><STRONG>Файл удален</STRONG> - велик размер. [Модераторы]

{quote}{login=Dophin}{date=26.01.2010 11:33}{thema=Re: }{post}{quote}  
этот путь - это путь через задницу, причем даже еще худшую чем раньше. зачем такой геморрой добровольно себе на шею вешать - не понимаю.{/post}{/quote}  
 
:-)))))))) да нет, просто так мне удобнее будет потом,- это ведь только пример )))  
К тому же у меня теперь целых два варианта решения вопроса,- а это всегда лучше, чем один, да и применять можно в разных ситуациях. За что Вам Огромное спасибо!!Сорри, что пришлось 2 раза работать с документами. В след раз буду логичнее))))    
А такие сложности я делаю (касаемо ориентации на листе, только из-за того, что мне так проще сообразить, как будет работать будущий макрос), я же не программист, я и делаю так, как хоть как-то могу представить ))))  
 
В общем спасибо всем)))

Проверьте. Тоже только для трёх участков.

ждем через месяц вопроса: "Есть вот ТАКАЯ табличка, участков - пятьдесят штук. Захотелось посчитать количество людей с возрастом больше 35 на участках с четными номерами. ПОДСКАЖИТЕ КАК?"

Dophin, не совсем)))) Но вопрос есть все же. Прикладываю файл, в котором все те же таблицы (в кол-ве 3 шт.) по ним разносятся данные с Формы ввода, в зависимости от участка (1,2 или з), но вот ошибка, которую я в макросе пытался сделать (при вводе данных, если не все поля ввода заполнены), не работает. Я там может и смешно с т.зрения программирования сделал (не судите строго), но мне так понятнее и хотелось бы именно в этом варианте записи сделать так чтоб появлялась ошибка если жмут ОК, а не все поля заполнены. )) <BR><STRONG>Файл удален</STRONG> - велик размер. [Модераторы]

Ой, извините, не посмотрел на размер....  
Да я видел, Ваш пример, собственно такая проверка в моем файле и вызвана Вашим примером, просто я хочу попробовать сделать вот в таком варианте написания. Я чего там не учел, только что не пойму.

Dophin, спасибо! Все отлично теперь работает.    
Ваш вариант с базой универсален,- т.к. есть возможность более эффективно реализовать мою основную задачу. Просто захотелось попробовать выложенные Вами и Юрием М  макросы  сделать самому и немного по-другому (разобраться, попробовать, как оно работает),- начал с самого простого.  
Понравился вариант Вашего :  
 
Private Sub CommandButton1_Click()  
Dim i As Long  
Select Case TextBox5  
Case 1  
Range("a" & i + 1) = TextBox1.Value  
Range("b" & i + 1) = TextBox2.Value  
Range("C" & i + 1) = TextBox3.Value  
Range("D" & i + 1) = TextBox4.Value  
Case 2  
……………….  
Case 3  
………………  
End Select  
Me.Hide  
End Sub  
 
Но применяя теперь те же, сороки, для вывода ошибки в этом макросе, он, при запуске, выдает ошибку. Не подскажите, как в этом случае в макрос впишется вывод подобного окошечка с ошибкой. Честно, просто очень хочу разобраться.