забыл про =    
спасибо заработало как надо

If KeyAscii < 48 Or KeyAscii > 57 Or KeyAscii < 48 Or KeyAscii > 39 Or KeyAscii <> 37 Or KeyAscii <> 61 Then KeyAscii = 0  
 
вроде так

If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0   - это единственный код который работает с русской раскладкой  
 
коды  
If Chr(KeyAscii) Like "[!0-9]" Then KeyAscii = 0
If Not Chr(KeyAscii) Like "#" Then KeyAscii = 0    
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0    
с русской раскладкой не работают дают ошибку  
 
сейчас еще одна проблема - надо запретить все кроме  
чисел, точки, запятой, +, -, *, /, %, ( , )  
как это в код  
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0  
вставить  
 
 
(в код If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0  
без проблем вставляется доп символы  жалко код корректно не работает)

еще одна проблема образовалась  
 
ввожу в код формы макрос для запрета ввода поля всего кроме цифр  
 
проблема - когда английская раскладка клавиатуры все нормально  
когда русская - код дает ошибку  
 
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)  
   If InStr("0123456789", Chr(KeyAscii)) = 0 Then  
   KeyAscii = 0      
   End If  
End Sub  
 
в чем тут дело?

как в тексте TextBox1  формы заменить точку на запятую  
 
в TextBox1 в результате вычислений вставляется значение типа 555.08  
 
те если в TextBox1 в результате вычислений вставляется значение 555.08  оно было заменено на 555,08  
 
рекодером записал на листе в ячейке  
 
Sub Макрос1()  
 
   Range("D9").Select  
   ActiveCell.Replace What:=".", Replacement:=",", LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False  
   Cells.Find(What:=".", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _  
       xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _  
       , SearchFormat:=False).Activate  
End Sub  
 
как применить это к TextBox1 или есть другое решение ?

сейчас заработало Спасибо!

ввел в модуль формы  
ошибку дает  
 
что не так ?

есть форма в ней ComboBox1 который ссылается    
на лиапазон ячеек на соседнем листе    
в свойствах ComboBox1   RowSource =Лист2!A1:A10  
 
При этом при вызове формы в ComboBox нет записи  
только нажав треугольник в ComboBox видишь и выбираешь запись  
 
что сделать надо чтобы при вызове формы в ComboBox сразу была 1-я запись    
А1 из списка Лист2!A1:A10 (был непустой)?

макрос делает условное форматирование по образцу на 2 листе  
но глючит (не копирует формат)по причинам если  
образец  
1)два слова с пробелом  
2)первые слова в двух выражениях совпадают  
 
если цифры или одно слово то все нормально

нашел ошибку надо было If x.Interior.ColorIndex <> xlNone Then из кода убрать

поправил ошибся  
все равно проблема осталась  
в образце на листе "Обр" у цифр 678 и 99 формат пустой  
а вылазят на листе1 с цветом - почему так

в свойствах RowSource пытаюсь ставить =zzzz

я попутал   имя "zzzz"   Вставка-Имя-Присвоить

дело в том что делаю формат по образцу пытаюсь и не все форматы улавливает  
думаю что ошибка в этом

хочу сделать выпадающий список по Приемам http://www.planetaexcel.ru/tip.php?aid=34  
только выпадающий список сделать в ComboBox1 которая находится в UserForm1  
есть лист1 (на нем вызываю форму)  и лист2 на котором список  
диапазону списка на листе2 присваиваю имя "Образ"  
в  ComboBox1 в свойствах RowSource пытаюсь ставить =Образ  
выдает ошибку - почему ?

спасибо за ответ  
как вариант еще нашел  
ActiveCell.Value = ActiveCell.Value & "ford"  
но это более длинно получается

записать в активную ячейку текст по условию  
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then  
Cancel = True  
If ActiveCell.Value = "" Then  
ActiveCell.Text = "ford"  
End If  
End If  
End Sub  
 
на строке ActiveCell.Text = "ford" дает ошибку  
как поправить ?

не получилось знаний нехватает  
мысль была такая - при клике на строке таблицы вылазит форма, забирает данные в TextBox-ы из таблицы,данные редактируются и кнопкой на форме отправляются обратно в таблицу  
 
понятно что прописать нужно примерно следующее в листе  
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
If Not Intersect(Target, Range("D2:F100")) Is Nothing Then ' диапазон где будет срабатывать двайной клик.    
UserForm1.Show 'вызов формы при нажатии кн <поиск> на рабочем листе    
UserForm1.TextBox1 = ....  
UserForm1.TextBox2 = ....  
и тд  
но как забрать из ячейки таблицы допустим  555-66-77  и раскидать по TextBox-ам  
в TextBox1 только 555  
в TextBox2 только 66  
в TextBox2 только 77       ?  
в

хотя лучше оставить как есть и вообще запретить редактировать таблицу напрямую-только через форму (чтоб телефоны вводить и изменять если необходимо по шаблону формы)  
 
попробую завтра реализовать

мда при новом наборе надо чтоб стирал старое желательно - ценная мысль

извиняюсь пока отвечал уже сделали

дак вроде это по клавише enter а надо по заполнению чтоб перескакивал ..

еще подрихтовал - ограничение на количество ввода цифр в textbox и ввод только цифр - не букв        
 
?вот как реализовать в строке из нескольких textbox перескакивание курсора из одного в другой при наборе - вопрос

благодарю откликнувшихся за помощь !! - 2/3 задачи решено  
 
осталось решить только 2 задачи - как установить ограничение на количество вводимых цифр в TextBox (при этом когда макс значение цифр введено курсор автоматом перескакивает в следующий TextBox)  
и вторая - Кнопка "С" которая стирает последний введенный символ в строке набора TextBox-а в форме

помогите сделать макрос который вводит значения из формы в таблицу  
таблица форма есть  условия занесения в таблицу тоже  в файле примера  
 
в VBA я "чайник" так что не обессудьте

все поправил тему можно закрывать

извиняюсь    
размер файла просмотрел забанили тему поэтому открыл новую  
 
есть макрос создания новых листов по условию  
чтоб макрос не давал создавать листы в хаотичном порядке те  
создал лист 1 после этого можешь только лист 2 создать - а лист 5, 7,88 нельзя (вылетает табл -создай 2 лист)"  
 
подробности в файле

подкорректировал  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

функцию сортировки ввел в лист по открытию книги, совет Казанского помог (сэнкс)  
а возможность хаотичного создания листов осталась  
"1.Самое главное чтоб макрос не давал создавать листы в хаотичном порядке те  
создал лист 1 после этого можешь только лист 2 создать - а лист 5, 7,88 нельзя (вылетает табл -создай 2 лист)"  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

по поводу пункта 1 может возникнуть возможность переименования существующего листа