с формы в файл

[st_ws]

Сообщение от EducatedFool

Убедитесь, что для всех текстовых полей свойство TabKeyBehavior имеет значение False

У всех - False, но курсор не переходит ...

[EducatedFool]

У всех - False, но курсор не переходит ...

Ну, проверьте ещё, чтобы свойство TabStop у всех имело значение True

Не поможет - выкладывайте файл.

PS: Я сам с этой проблемой сталкивался, но очень давно, когда ещё плохо знал VBA. Тогда я так и не нашёл, в чем была проблема: на моём компе курсор перепрыгивал с поля на поле, а у заказчика - не всегда.

[st_ws]

Сообщение от EducatedFool

Ну, проверьте ещё, чтобы свойство TabStop у всех имело значение True

Не поможет - выкладывайте файл.

PS: Я сам с этой проблемой сталкивался, но очень давно, когда ещё плохо знал VBA. Тогда я так и не нашёл, в чем была проблема: на моём компе курсор перепрыгивал с поля на поле, а у заказчика - не всегда.

Такого свойства как "TabStop" у меня вообще нет...
Вот код :

Private Sub CommandButton1_Click()
Const sMes = "а текст де ???"
If Len(TextBox1.Text) * Len(TextBox2.Text) * Len(TextBox3.Text) = 0 Then MsgBox sMes: Exit Sub
Open ("\\Adm\каспер\File Share\baza\Data.csv") For Append As #1
Print #1, TextBox1 & Chr(59) & TextBox2 & Chr(59) & TextBox3 & Chr(59) & TextBox4 & Chr(59) & TextBox5 & Chr(59) & TextBox6 & Chr(59) & TextBox7 & Chr(59)
On Error Resume Next
Close #1
If Err.Number = 0 Then 'очищение полей ввода если сохранение прошло успешно
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
Else ' иначе сообщение о ошибке
MsgBox "Ошибка" + Err.Description
End If
End Sub

[EducatedFool]

Такого свойства как "TabStop" у меня вообще нет...
Вот код :

Код тут ни при чём...

А свойство TabStop есть у всех текстбоксов...

[st_ws]

Сообщение от EducatedFool

Код тут ни при чём...

А свойство TabStop есть у всех текстбоксов...

Подскажите тогда куда смотреть ...
вот привожу скрин того что у меня есть ...

[EducatedFool]

вот привожу скрин того что у меня есть ...

Ну так надо было сразу сказать, что текстбоксы у Вас расположены на листе, а не на форме...

В Вашем случае переход можно реализовать только кодом типа этого:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Then Me.TextBox2.Activate
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Then Me.TextBox3.Activate
End Sub
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Then Me.TextBox4.Activate
End Sub
Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Then Me.TextBox1.Activate
End Sub

См. пример файла:

[st_ws]

Спасибо, супер !!!

[st_ws]

Народ, как бы к этому коду

Private Sub CommandButton1_Click()
Const sMes = "а текст де ???"
If Len(TextBox1.Text) * Len(TextBox2.Text) * Len(TextBox3.Text) = 0 Then MsgBox sMes: Exit Sub
Open ("\\Adm\каспер\File Share\baza\Data.csv") For Append As #1
Print #1, TextBox1 & Chr(59) & TextBox2 & Chr(59) & TextBox3 & Chr(59) & TextBox4 & Chr(59) & TextBox5 & Chr(59) & TextBox6 & Chr(59) & TextBox7 & Chr(59)
On Error Resume Next
Close #1
If Err.Number = 0 Then 'очищение полей ввода если сохранение прошло успешно
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
Else ' иначе сообщение о ошибке
MsgBox "Ошибка" + Err.Description
End If
End Sub

добавить еще и радио кнопку (переключатель) (radio button), (думаю также подошел бы флажок (CheckBox) или поле со списком(ComboBox)) чтобы результат из этой кнопки добавлялся в определенную ячейку в том же csv файле...

Для примера

первый тех.бокс "Имя" сохраняет результат в первой ячейке
второй тех.бокс "Фамилия" сохраняет результат в второй ячейке
далее следует переключатель "Пол - муж. Пол - жен." и в зависимости от выбранного результата, сохраняет в третей ячейке.
P.S. таких переключателей в форме будет 5 позиций
(т.е.

1) позиция 2 переключателя
2) позиция 2 переключателя
3) позиция 2 переключателя

и т.д.)

Спасибо!

[st_ws]

Файл о котором идет речь ниже.
Можно исправить прямо в нем!
Спасибо!

[st_ws]

Народ, неужели, никто не сможет помочь ?!
Обновил немного файлик, объединил OptionButton-ы в группы