{quote}{login=VovaK}{date=17.10.2009 06:05}{thema=}{post}Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)  
Me.Label1.Caption = KeyAscii  
If KeyAscii < 1040 Or KeyAscii > 1071 Then KeyAscii = 0  
End Sub  
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)  
If KeyCode = vbKeyV And Shift = 2 Then KeyCode = 0  
End Sub  
 
Напутал с кодировкой, сейчас должно работать.{/post}{/quote}  
 
 
Но так вообще не позволяет вводить символы в TextBox, пока шифт не нажмешь, а можно сделать так чтобы просто вводились заглавные буквы, не нажимая никаких дополнительных клавиш

Как сделать так чтобы в TextBox можно было вводить только заглавные буквы и русские ? Заранее спасибо огромное за ответ !!!

Всем спасибо, сам разобрался вроде :-)

{quote}{login=слэн}{date=21.09.2009 10:38}{thema=}{post}activecell="A"{/post}{/quote}  
 
А что такое А ? Но почему он все таки добавляет новую строчку в начало листа ?

Нахожу нужную строчку и мне надо ее отредактировать, но когда я нажимаю кнопочку "Записать", то добавляется новая строчка в начало листа. Подскажите, как мне сделать так, чтобы строчка не добавлялась, а изменялись данные в найденой строчке. Заранее огромное спасибо.  
 
Вот мой код, как я нахожу нужную строчку :  
 
Private Sub Text1_Exit(ByVal Cancel As MSForms.ReturnBoolean)  
If IsNumeric(Text1.Value) And Val(Text1.Value) > 0 Then  
Columns("A:A").Select  
Selection.Find(What:=Text1.Value, After:=ActiveCell, LookIn:=xlFormulas, _  
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _  
MatchCase:=False, SearchFormat:=False).Activate  
Cancel = False  
Else  
  Cancel = True  
End If  
End Sub

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

Да я честно говоря не силен в VB, попросили просто поиск организовать помочь, вот теперь не могу найти решения, напримере не подскажешь ?

Ни у кого нет никаких соображений ? Просто весь форум перерыл, ничего похожего найти не могу !!! Может быть как то по другому можно организовать поиск ? Попроще ?? Ну очень надо !!!

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