VBA перенос данных с userform в datatable

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

VBA перенос данных с userform в datatable (Формулы/Formulas)

RomanCompass

Дата: Четверг, 12.08.2021, 12:29 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 41

Репутация: 10 ±

Замечаний: 0% ±

Excel 2016

Приветствую всех !
помогите разобраться !
я новичок в excel только учусь ,мало что понимаю .смотрю видео и все равно не получается .
не могу перенести данные с формы в таблицу .
Буду признателен за помощь или подсказку .

К сообщению приложен файл: testclientsdate.xlsm (41.7 Kb)

Ответить

amfor

Дата: Четверг, 12.08.2021, 15:16 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 250

Репутация: 75 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте. Сделал для 3х ComboBox,для TextBox по аналогии.
[vba]

Код

[code]Private Sub CommandButton_record_Click()
Dim LastRow As Long

With ThisWorkbook.Sheets("Список заказов")
    Dim rg As Range
    Set rg = .Cells(.Rows.Count, 2).End(xlUp)
    If IsEmpty(rg) Then LastRow = rg.End(xlUp).Row Else LastRow = rg.Row
  End With
  With Лист3
   .Cells(LastRow + 1, 2).Value = Me.ComboBox_coutry.Value
   .Cells(LastRow + 1, 4).Value = Me.ComboBox_cartype.Value
   .Cells(LastRow + 1, 5).Value = Me.ComboBox_partners.Value
End With
End Sub

[/code][/vba]

К сообщению приложен файл: 7422355.xlsm (36.7 Kb)

Семь бед - один RESET.

Сообщение отредактировал amfor - Четверг, 12.08.2021, 15:17

Ответить

RomanCompass

Дата: Четверг, 12.08.2021, 21:44 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 41

Репутация: 10 ±

Замечаний: 0% ±

Excel 2016

Огромное спасибо !
Сделал как и показано все получилось .

Хотел добавить календарь в textbox -ы PICKUP и DROPOFF опять не получается .

К сообщению приложен файл: 4691381.xlsm (54.5 Kb)

Ответить

amfor

Дата: Пятница, 13.08.2021, 08:10 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 250

Репутация: 75 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте. Вызов календаря по DblClick на TextBox.

К сообщению приложен файл: 2744357.xlsm (64.7 Kb)

Семь бед - один RESET.

Ответить

RomanCompass

Дата: Суббота, 14.08.2021, 11:13 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 41

Репутация: 10 ±

Замечаний: 0% ±

Excel 2016

как сделать чтобы макрос работал на всех листах ?

К сообщению приложен файл: new_clients_dat.xlsm (224.7 Kb)

Ответить

RomanCompass

Дата: Суббота, 14.08.2021, 11:47 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 41

Репутация: 10 ±

Замечаний: 0% ±

Excel 2016

Еще сейчас заметил !
в файле 2744357 тот что вы приложили к сообщению 'Здравствуйте. Вызов календаря по DblClick на TextBox."
после внесения данных в формы при нажатие сохранить (save) данные остаются в форме и сколько раз нажимаю столько раз одно и тоже сносит в таблицу .
Как сделать чтобы после нажатая на SAVE форма закрывалась или спрашивала "хотите добавить новые данные" и только после закрывалась .
Соответственно после нажатия CANCEL выпадало сообщение "вы точно хотите отменить" - отменялось добавление данных в таблицу .