Добрый день уважаемые форумчане!!! Не могу понять почему после того как оператор вносит данные на UserForm2 и после нажатии кнопки внести данные ((((( данные записываются не в таблицу (((( а под таблицей ((( [vba]
Код
Private Sub Butt_ok_Click() 'Данный код для записи данных в нужные нам ячейки в таблицу на листе "Заявка МТ-1 для печати" Dim LastRow As Long LastRow = Cells(Rows.Count, 6).End(xlUp).Row If TextBox1.Value <> "" Then Cells(LastRow + 1, 1) = TextBox1.Value If TextBox3.Value <> "" Then Cells(LastRow + 1, 17) = TextBox3.Value If ComboBox1.Value <> "" Then Cells(LastRow + 1, 2) = ComboBox1.Value If ComboBox2.Value <> "" Then Cells(LastRow + 1, 3) = ComboBox2.Value If ComboBox3.Value <> "" Then Cells(LastRow + 1, 4) = ComboBox3.Value If ComboBox4.Value <> "" Then Cells(LastRow + 1, 5) = ComboBox4.Value If TextBox2.Value <> "" Then Cells(LastRow + 1, 6) = TextBox2.Value If TextBox4.Value <> "" Then Cells(LastRow + 1, 8) = TextBox4.Value Unload Me End Sub
[/vba] менял тут цифру по разному (((( [vba]
Код
LastRow = Cells(Rows.Count, 6).End(xlUp).Row
[/vba]
Добрый день уважаемые форумчане!!! Не могу понять почему после того как оператор вносит данные на UserForm2 и после нажатии кнопки внести данные ((((( данные записываются не в таблицу (((( а под таблицей ((( [vba]
Код
Private Sub Butt_ok_Click() 'Данный код для записи данных в нужные нам ячейки в таблицу на листе "Заявка МТ-1 для печати" Dim LastRow As Long LastRow = Cells(Rows.Count, 6).End(xlUp).Row If TextBox1.Value <> "" Then Cells(LastRow + 1, 1) = TextBox1.Value If TextBox3.Value <> "" Then Cells(LastRow + 1, 17) = TextBox3.Value If ComboBox1.Value <> "" Then Cells(LastRow + 1, 2) = ComboBox1.Value If ComboBox2.Value <> "" Then Cells(LastRow + 1, 3) = ComboBox2.Value If ComboBox3.Value <> "" Then Cells(LastRow + 1, 4) = ComboBox3.Value If ComboBox4.Value <> "" Then Cells(LastRow + 1, 5) = ComboBox4.Value If TextBox2.Value <> "" Then Cells(LastRow + 1, 6) = TextBox2.Value If TextBox4.Value <> "" Then Cells(LastRow + 1, 8) = TextBox4.Value Unload Me End Sub
_Boroda_, RAN, СПАСИБО!!! Я думал что объединение ЗЛО только для сводных таблиц (((( а для макросов это не БЕДА. Еще раз спасибо за помощь и подсказки
_Boroda_, RAN, СПАСИБО!!! Я думал что объединение ЗЛО только для сводных таблиц (((( а для макросов это не БЕДА. Еще раз спасибо за помощь и подсказкиlebensvoll
Вообще-то это надо делать не для того, чтобы попасть в таблицу, а для того, чтобы добавить строку под данными. А в столбце 6 на листе последняя строка с данными 23. Под нее и добавляет.
Вообще-то это надо делать не для того, чтобы попасть в таблицу, а для того, чтобы добавить строку под данными. А в столбце 6 на листе последняя строка с данными 23. Под нее и добавляет.RAN
RAN, вы правы я первую запись добавил так получилось!!! Потом прочел ваше сообщение
Цитата
Вообще-то это надо делать не для того, чтобы попасть в таблицу, а для того, чтобы добавить строку под данными.
И получается вот так вот ((((( [img][/img] А зачем мне пустая строка между записями ((((( а как ее избежать. Понимаю что ОБЪЕДИНЕНИЕ ЭТО ЗЛО но без этого мне ни как????
RAN, вы правы я первую запись добавил так получилось!!! Потом прочел ваше сообщение
Цитата
Вообще-то это надо делать не для того, чтобы попасть в таблицу, а для того, чтобы добавить строку под данными.
И получается вот так вот ((((( [img][/img] А зачем мне пустая строка между записями ((((( а как ее избежать. Понимаю что ОБЪЕДИНЕНИЕ ЭТО ЗЛО но без этого мне ни как????lebensvoll
делал это пытался и с объединенными ячейками поиграть разбить их. И значения менял строк и + выставлял (((( но результатов так и не достиг ((( Намекните более понятливее пожалуйста. Если же нужно (процедуру какую добавить) то я точно не соображу в них я вообще не соображаю (((( как в принципе и в макросах .
RAN, честно сказать я вас не понял
Цитата
Если А меньше Б, значит А равно Б.
хотя и
Цитата
Думайте.
делал это пытался и с объединенными ячейками поиграть разбить их. И значения менял строк и + выставлял (((( но результатов так и не достиг ((( Намекните более понятливее пожалуйста. Если же нужно (процедуру какую добавить) то я точно не соображу в них я вообще не соображаю (((( как в принципе и в макросах . lebensvoll
lebensvoll, до тех пор, пока вы не превратите мою фразу в строку кода, и не выложите здесь код с правильно вставленной строкой, я отвечать прекращаю.
lebensvoll, до тех пор, пока вы не превратите мою фразу в строку кода, и не выложите здесь код с правильно вставленной строкой, я отвечать прекращаю.RAN
Private Sub Butt_ok_Click() 'Данный код для записи данных в нужные нам ячейки в таблицу на листе "Журнал заявок" Dim LastRow As Long LastRow = Cells(Rows.Count, 17).End(xlUp).Row If LastRow = 2 Then LastRow = 5 If TextBox1.Value <> "" Then Cells(LastRow + 1, 1) = TextBox1.Value If TextBox3.Value <> "" Then Cells(LastRow + 1, 17) = TextBox3.Value If ComboBox1.Value <> "" Then Cells(LastRow + 1, 2) = ComboBox1.Value If ComboBox2.Value <> "" Then Cells(LastRow + 1, 3) = ComboBox2.Value If ComboBox3.Value <> "" Then Cells(LastRow + 1, 4) = ComboBox3.Value If ComboBox4.Value <> "" Then Cells(LastRow + 1, 5) = ComboBox4.Value If TextBox2.Value <> "" Then Cells(LastRow + 1, 6) = TextBox2.Value If TextBox4.Value <> "" Then Cells(LastRow + 1, 8) = TextBox4.Value Unload Me End Sub
[/vba]
И снова здравствуйте [vba]
Код
Private Sub Butt_ok_Click() 'Данный код для записи данных в нужные нам ячейки в таблицу на листе "Журнал заявок" Dim LastRow As Long LastRow = Cells(Rows.Count, 17).End(xlUp).Row If LastRow = 2 Then LastRow = 5 If TextBox1.Value <> "" Then Cells(LastRow + 1, 1) = TextBox1.Value If TextBox3.Value <> "" Then Cells(LastRow + 1, 17) = TextBox3.Value If ComboBox1.Value <> "" Then Cells(LastRow + 1, 2) = ComboBox1.Value If ComboBox2.Value <> "" Then Cells(LastRow + 1, 3) = ComboBox2.Value If ComboBox3.Value <> "" Then Cells(LastRow + 1, 4) = ComboBox3.Value If ComboBox4.Value <> "" Then Cells(LastRow + 1, 5) = ComboBox4.Value If TextBox2.Value <> "" Then Cells(LastRow + 1, 6) = TextBox2.Value If TextBox4.Value <> "" Then Cells(LastRow + 1, 8) = TextBox4.Value Unload Me End Sub
sboy, вот этот код он точно работает как нужно [vba]
Код
Private Sub Butt_ok_Click() 'Данный код для записи данных в нужные нам ячейки в таблицу на листе "Заявка МТ-1 для печати" Dim LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 If TextBox1.Value <> "" Then Cells(LastRow + 1, 1) = TextBox1.Value If TextBox3.Value <> "" Then Cells(LastRow + 1, 17) = TextBox3.Value If ComboBox1.Value <> "" Then Cells(LastRow + 1, 2) = ComboBox1.Value If ComboBox2.Value <> "" Then Cells(LastRow + 1, 3) = ComboBox2.Value If ComboBox3.Value <> "" Then Cells(LastRow + 1, 4) = ComboBox3.Value If ComboBox4.Value <> "" Then Cells(LastRow + 1, 5) = ComboBox4.Value If TextBox2.Value <> "" Then Cells(LastRow + 1, 6) = TextBox2.Value If TextBox4.Value <> "" Then Cells(LastRow + 1, 8) = TextBox4.Value Unload Me End Sub
[/vba] Но вот с последующими он прописывает их через одну строку :( Код который мне предложил alex77755, то же работает на ура :hands: [vba]
Код
LastRow = Range("A4").CurrentRegion.Rows.Count
[/vba] Но последующие записи он прописывает (смотрите скрин в посте №16) Ваш код сразу не попал в цель (((((( он его прописывает во вторую строку ((((
sboy, вот этот код он точно работает как нужно [vba]
Код
Private Sub Butt_ok_Click() 'Данный код для записи данных в нужные нам ячейки в таблицу на листе "Заявка МТ-1 для печати" Dim LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 If TextBox1.Value <> "" Then Cells(LastRow + 1, 1) = TextBox1.Value If TextBox3.Value <> "" Then Cells(LastRow + 1, 17) = TextBox3.Value If ComboBox1.Value <> "" Then Cells(LastRow + 1, 2) = ComboBox1.Value If ComboBox2.Value <> "" Then Cells(LastRow + 1, 3) = ComboBox2.Value If ComboBox3.Value <> "" Then Cells(LastRow + 1, 4) = ComboBox3.Value If ComboBox4.Value <> "" Then Cells(LastRow + 1, 5) = ComboBox4.Value If TextBox2.Value <> "" Then Cells(LastRow + 1, 6) = TextBox2.Value If TextBox4.Value <> "" Then Cells(LastRow + 1, 8) = TextBox4.Value Unload Me End Sub
[/vba] Но вот с последующими он прописывает их через одну строку :( Код который мне предложил alex77755, то же работает на ура :hands: [vba]
Код
LastRow = Range("A4").CurrentRegion.Rows.Count
[/vba] Но последующие записи он прописывает (смотрите скрин в посте №16) Ваш код сразу не попал в цель (((((( он его прописывает во вторую строку ((((lebensvoll
Кто бы ты ни был, мир в твоих руках
Сообщение отредактировал lebensvoll - Пятница, 29.07.2016, 11:01
Private Sub Butt_ok_Click() 'Данный код для записи данных в нужные нам ячейки в таблицу на листе "Заявка МТ-1 для печати" Dim LastRow As Long LastRow = Range("A5").CurrentRegion.Rows.Count If TextBox1.Value <> "" Then Cells(LastRow + 1, 1) = TextBox1.Value If TextBox3.Value <> "" Then Cells(LastRow + 1, 17) = TextBox3.Value If ComboBox1.Value <> "" Then Cells(LastRow + 1, 2) = ComboBox1.Value If ComboBox2.Value <> "" Then Cells(LastRow + 1, 3) = ComboBox2.Value If ComboBox3.Value <> "" Then Cells(LastRow + 1, 4) = ComboBox3.Value If ComboBox4.Value <> "" Then Cells(LastRow + 1, 5) = ComboBox4.Value If TextBox2.Value <> "" Then Cells(LastRow + 1, 6) = TextBox2.Value If TextBox4.Value <> "" Then Cells(LastRow + 1, 8) = TextBox4.Value Unload Me End Sub
[/vba] Но он последующую запись прописывает под таблицей Либо же этот код [vba]
Код
Private Sub Butt_ok_Click() 'Данный код для записи данных в нужные нам ячейки в таблицу на листе "Заявка МТ-1 для печати" Dim LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 If TextBox1.Value <> "" Then Cells(LastRow + 1, 1) = TextBox1.Value If TextBox3.Value <> "" Then Cells(LastRow + 1, 17) = TextBox3.Value If ComboBox1.Value <> "" Then Cells(LastRow + 1, 2) = ComboBox1.Value If ComboBox2.Value <> "" Then Cells(LastRow + 1, 3) = ComboBox2.Value If ComboBox3.Value <> "" Then Cells(LastRow + 1, 4) = ComboBox3.Value If ComboBox4.Value <> "" Then Cells(LastRow + 1, 5) = ComboBox4.Value If TextBox2.Value <> "" Then Cells(LastRow + 1, 6) = TextBox2.Value If TextBox4.Value <> "" Then Cells(LastRow + 1, 8) = TextBox4.Value Unload Me End Sub
[/vba] но он также последующие записи прописывает через пустую ячейку (((
Либо вот этот код от alex77755, [vba]
Код
Private Sub Butt_ok_Click() 'Данный код для записи данных в нужные нам ячейки в таблицу на листе "Заявка МТ-1 для печати" Dim LastRow As Long LastRow = Range("A5").CurrentRegion.Rows.Count If TextBox1.Value <> "" Then Cells(LastRow + 1, 1) = TextBox1.Value If TextBox3.Value <> "" Then Cells(LastRow + 1, 17) = TextBox3.Value If ComboBox1.Value <> "" Then Cells(LastRow + 1, 2) = ComboBox1.Value If ComboBox2.Value <> "" Then Cells(LastRow + 1, 3) = ComboBox2.Value If ComboBox3.Value <> "" Then Cells(LastRow + 1, 4) = ComboBox3.Value If ComboBox4.Value <> "" Then Cells(LastRow + 1, 5) = ComboBox4.Value If TextBox2.Value <> "" Then Cells(LastRow + 1, 6) = TextBox2.Value If TextBox4.Value <> "" Then Cells(LastRow + 1, 8) = TextBox4.Value Unload Me End Sub
[/vba] Но он последующую запись прописывает под таблицей Либо же этот код [vba]
Код
Private Sub Butt_ok_Click() 'Данный код для записи данных в нужные нам ячейки в таблицу на листе "Заявка МТ-1 для печати" Dim LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 If TextBox1.Value <> "" Then Cells(LastRow + 1, 1) = TextBox1.Value If TextBox3.Value <> "" Then Cells(LastRow + 1, 17) = TextBox3.Value If ComboBox1.Value <> "" Then Cells(LastRow + 1, 2) = ComboBox1.Value If ComboBox2.Value <> "" Then Cells(LastRow + 1, 3) = ComboBox2.Value If ComboBox3.Value <> "" Then Cells(LastRow + 1, 4) = ComboBox3.Value If ComboBox4.Value <> "" Then Cells(LastRow + 1, 5) = ComboBox4.Value If TextBox2.Value <> "" Then Cells(LastRow + 1, 6) = TextBox2.Value If TextBox4.Value <> "" Then Cells(LastRow + 1, 8) = TextBox4.Value Unload Me End Sub
[/vba] но он также последующие записи прописывает через пустую ячейку (((lebensvoll