Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/VBA перенос данных с userform в datatable - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA перенос данных с userform в datatable (Формулы/Formulas)
VBA перенос данных с userform в datatable
RomanCompass Дата: Четверг, 12.08.2021, 12:29 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 10 ±
Замечаний: 0% ±

Excel 2016
Приветствую всех !
помогите разобраться !
я новичок в excel только учусь ,мало что понимаю .смотрю видео и все равно не получается .
не могу перенести данные с формы в таблицу .
Буду признателен за помощь или подсказку .
К сообщению приложен файл: testclientsdate.xlsm(41.7 Kb)
 
Ответить
СообщениеПриветствую всех !
помогите разобраться !
я новичок в excel только учусь ,мало что понимаю .смотрю видео и все равно не получается .
не могу перенести данные с формы в таблицу .
Буду признателен за помощь или подсказку .

Автор - RomanCompass
Дата добавления - 12.08.2021 в 12:29
amfor Дата: Четверг, 12.08.2021, 15:16 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 220
Репутация: 64 ±
Замечаний: 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
 
Ответить
СообщениеЗдравствуйте. Сделал для 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]

Автор - amfor
Дата добавления - 12.08.2021 в 15:16
RomanCompass Дата: Четверг, 12.08.2021, 21:44 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 10 ±
Замечаний: 0% ±

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

Хотел добавить календарь в textbox -ы PICKUP и DROPOFF опять не получается .
К сообщению приложен файл: 4691381.xlsm(54.5 Kb)
 
Ответить
СообщениеОгромное спасибо !
Сделал как и показано все получилось .

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

Автор - RomanCompass
Дата добавления - 12.08.2021 в 21:44
amfor Дата: Пятница, 13.08.2021, 08:10 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 220
Репутация: 64 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте. Вызов календаря по DblClick на TextBox.
К сообщению приложен файл: 2744357.xlsm(64.7 Kb)


Семь бед - один RESET.
 
Ответить
СообщениеЗдравствуйте. Вызов календаря по DblClick на TextBox.

Автор - amfor
Дата добавления - 13.08.2021 в 08:10
RomanCompass Дата: Суббота, 14.08.2021, 11:13 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 10 ±
Замечаний: 0% ±

Excel 2016
как сделать чтобы макрос работал на всех листах ?
К сообщению приложен файл: new_clients_dat.xlsm(224.7 Kb)
 
Ответить
Сообщениекак сделать чтобы макрос работал на всех листах ?

Автор - RomanCompass
Дата добавления - 14.08.2021 в 11:13
RomanCompass Дата: Суббота, 14.08.2021, 11:47 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 10 ±
Замечаний: 0% ±

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

Автор - RomanCompass
Дата добавления - 14.08.2021 в 11:47
amfor Дата: Понедельник, 16.08.2021, 14:48 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 220
Репутация: 64 ±
Замечаний: 0% ±

Excel 2016
Посмотрите. Так?
К сообщению приложен файл: 0538466.xlsm(235.0 Kb)


Семь бед - один RESET.
 
Ответить
СообщениеПосмотрите. Так?

Автор - amfor
Дата добавления - 16.08.2021 в 14:48
RomanCompass Дата: Среда, 18.08.2021, 17:46 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 10 ±
Замечаний: 0% ±

Excel 2016
amfor,Спасибо !
На следующий день подумал на спокойную голову и решил вопрос .Оказалось все просто .
 
Ответить
Сообщениеamfor,Спасибо !
На следующий день подумал на спокойную голову и решил вопрос .Оказалось все просто .

Автор - RomanCompass
Дата добавления - 18.08.2021 в 17:46
Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA перенос данных с userform в datatable (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!