Добрый день многоуважаемые форумчане!!! Прошу вас помочь почему код (идентичный как и на другом листе, срабатывает на ура) а именно на этом листе при переносе данных (((( пишет что данные перенеслись (((( а их нет (((( много раз сидел перебирал корректировал. Добился то чтоб данные переносились но почему то переносятся не полностью ((((( [vba]
Код
Private Sub CommandButton4_Click() 'Код для сохранения данных заявки на лист Журнала заявок q = MsgBox("Вы уверены что хотите сохранить данные в журнал заявок???", vbOKCancel) If q = vbCancel Then Exit Sub 'Сообщения для утверждения ваших действий Dim shSheetf As Worksheet Dim shSheett As Worksheet ' Dim lStartSheet_("Заявка на транспорт БЕТОМАКСУ") As Long, lEndSheet_("Заявка на транспорт БЕТОМАКСУ") As Long Dim lLastRow As Long Dim i As Long 'Даём листам имена "("Заявка на транспорт БЕТОМАКСУ")" и "shSheet_("транспортный журнал")", 'чтобы было удобнее писать код. Set shSheetf = Worksheets("Заявка на транспорт БЕТОМАКСУ") Set shSheett = Worksheets("транспортный журнал") lStartSheet = 10 lEndSheet = shSheetf.Cells(Rows.Count, 1).End(xlUp).Row 'Указываем, с какой строки начать вставлять данные на второй лист. lLastRow = shSheett.Cells(Rows.Count, 2).End(xlUp).Row + 1 'Двигаем по первому листу по столбцу "A". For i = lStartSheet To lEndSheet If Not shSheetf.Cells(i, 2).Value = Empty Then 'Перносим данные на второй лист. shSheett.Cells(lLastRow, 2).Value = shSheetf.Cells(i, 1).Value For X = 2 To 11 shSheett.Cells(lLastRow, X + 1).Value = shSheetf.Cells(i, X).Value Next X 'Изменяем переменную "lLastRow", 'чтобы данные уже вставлять в следующую строку. lLastRow = lLastRow + 1 End If Next i Range(Cells(6, 1), Cells(lEndSheet, 12)).ClearContents MsgBox "ДАННЫЕ ПЕРЕНЕСЕНЫ НА ЛИСТ ЖУРНАЛА ЗАВОК..." End Sub
[/vba] Помогите пожалуйста, объясните почему, в чем ошибки то???
Добрый день многоуважаемые форумчане!!! Прошу вас помочь почему код (идентичный как и на другом листе, срабатывает на ура) а именно на этом листе при переносе данных (((( пишет что данные перенеслись (((( а их нет (((( много раз сидел перебирал корректировал. Добился то чтоб данные переносились но почему то переносятся не полностью ((((( [vba]
Код
Private Sub CommandButton4_Click() 'Код для сохранения данных заявки на лист Журнала заявок q = MsgBox("Вы уверены что хотите сохранить данные в журнал заявок???", vbOKCancel) If q = vbCancel Then Exit Sub 'Сообщения для утверждения ваших действий Dim shSheetf As Worksheet Dim shSheett As Worksheet ' Dim lStartSheet_("Заявка на транспорт БЕТОМАКСУ") As Long, lEndSheet_("Заявка на транспорт БЕТОМАКСУ") As Long Dim lLastRow As Long Dim i As Long 'Даём листам имена "("Заявка на транспорт БЕТОМАКСУ")" и "shSheet_("транспортный журнал")", 'чтобы было удобнее писать код. Set shSheetf = Worksheets("Заявка на транспорт БЕТОМАКСУ") Set shSheett = Worksheets("транспортный журнал") lStartSheet = 10 lEndSheet = shSheetf.Cells(Rows.Count, 1).End(xlUp).Row 'Указываем, с какой строки начать вставлять данные на второй лист. lLastRow = shSheett.Cells(Rows.Count, 2).End(xlUp).Row + 1 'Двигаем по первому листу по столбцу "A". For i = lStartSheet To lEndSheet If Not shSheetf.Cells(i, 2).Value = Empty Then 'Перносим данные на второй лист. shSheett.Cells(lLastRow, 2).Value = shSheetf.Cells(i, 1).Value For X = 2 To 11 shSheett.Cells(lLastRow, X + 1).Value = shSheetf.Cells(i, X).Value Next X 'Изменяем переменную "lLastRow", 'чтобы данные уже вставлять в следующую строку. lLastRow = lLastRow + 1 End If Next i Range(Cells(6, 1), Cells(lEndSheet, 12)).ClearContents MsgBox "ДАННЫЕ ПЕРЕНЕСЕНЫ НА ЛИСТ ЖУРНАЛА ЗАВОК..." End Sub
[/vba] Помогите пожалуйста, объясните почему, в чем ошибки то???lebensvoll
SLAVICK, Матраскин, тогда объясните почему данный код срабатывает на двух других листах на ура. А именно на этом я столкнулся с проблемой (((( хотя в коде лишь изменял графы и строки (цифры) а тут он начал ругаться на
Цитата
For i = lStartSheet To lEndSheet
Цитата
идёт счёт от 10 до 6 ?))) чёт подозрительно
тем самым копирует данные не полностью на другой лист(((((???
SLAVICK, Матраскин, тогда объясните почему данный код срабатывает на двух других листах на ура. А именно на этом я столкнулся с проблемой (((( хотя в коде лишь изменял графы и строки (цифры) а тут он начал ругаться на
Цитата
For i = lStartSheet To lEndSheet
Цитата
идёт счёт от 10 до 6 ?))) чёт подозрительно
тем самым копирует данные не полностью на другой лист(((((???lebensvoll
Кто бы ты ни был, мир в твоих руках
Сообщение отредактировал lebensvoll - Вторник, 13.09.2016, 16:11
Матраскин, а я тупанул ((((( точно не сам не знаю почему (((( тут должно было стоять 6-ть (верно) это ведь начало всех последующих начал (((((. Блин прошу меня простить я вновь не внимателен (((( хотя сижу и упираюсь что все верно ведь скопировал и применил )))) наверное нужно отдохнуть. СПАСИБО ВАМ ОГРОМНОЕ!!!
Матраскин, а я тупанул ((((( точно не сам не знаю почему (((( тут должно было стоять 6-ть (верно) это ведь начало всех последующих начал (((((. Блин прошу меня простить я вновь не внимателен (((( хотя сижу и упираюсь что все верно ведь скопировал и применил )))) наверное нужно отдохнуть. СПАСИБО ВАМ ОГРОМНОЕ!!!lebensvoll
Private Sub CommandButton4_Click() 'Код для сохранения данных заявки на лист Журнала заявок With Worksheets("транспортный журнал").ListObjects("Таблица1").QueryTable .Connection = "ODBC;DSN=Excel Files;;DriverId=1046;DBQ=" & ThisWorkbook.FullName .Refresh End With End Sub
[/vba]
lebensvoll, а как вам такой вариант? [vba]
Код
Private Sub CommandButton4_Click() 'Код для сохранения данных заявки на лист Журнала заявок With Worksheets("транспортный журнал").ListObjects("Таблица1").QueryTable .Connection = "ODBC;DSN=Excel Files;;DriverId=1046;DBQ=" & ThisWorkbook.FullName .Refresh End With End Sub