Копирование текста с одного листа на другой по условию.
MikhailMM
Дата: Воскресенье, 28.02.2016, 20:56 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Здравствуйте, требуется перенести данные с одного листа на другой с соблюдением условий. Если в столбце "заказ кол-во" есть число от 1 до 50 то. данные из этой строчки переносим на лист "Заказ" по условиям.См. пример.
Здравствуйте, требуется перенести данные с одного листа на другой с соблюдением условий. Если в столбце "заказ кол-во" есть число от 1 до 50 то. данные из этой строчки переносим на лист "Заказ" по условиям.См. пример. MikhailMM
Ответить
Сообщение Здравствуйте, требуется перенести данные с одного листа на другой с соблюдением условий. Если в столбце "заказ кол-во" есть число от 1 до 50 то. данные из этой строчки переносим на лист "Заказ" по условиям.См. пример. Автор - MikhailMM Дата добавления - 28.02.2016 в 20:56
KuklP
Дата: Воскресенье, 28.02.2016, 21:43 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
требуется перенести данные
Вы хвастаетесь, или жалуетесь?
требуется перенести данные
Вы хвастаетесь, или жалуетесь?KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение требуется перенести данные
Вы хвастаетесь, или жалуетесь?Автор - KuklP Дата добавления - 28.02.2016 в 21:43
al-Ex
Дата: Воскресенье, 28.02.2016, 22:27 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация:
59
±
Замечаний:
0% ±
Excel 2010
так, посмотри.
[vba]
Код
Public Sub Zakaz() Dim i As Range Dim n_row As Integer Dim oRow As Integer For Each i In Range("Заказ_кол_во") 'для каждой строки заказа If i.Value > 0 And i.Value < 50 Then 'если количество заказа больше 0 и меньше 50 n_row = i.Row ' номер искомой строки в заказе oRow = Worksheets("Общий список").Cells(Rows.Count, 1).End(xlUp).Row + 1 'нижняя свободная строка в общем списке ' теперь, тупо переносим значения ------------------------------------------------- Worksheets("Общий список").Cells(oRow, 1).Value = Worksheets("Заказ").Cells(n_row, 7).Value 'CAP namber Worksheets("Общий список").Cells(oRow, 2).Value = Application.UserName 'Resp. Name Worksheets("Общий список").Cells(oRow, 3).Value = Worksheets("Заказ").Cells(n_row, 6).Value 'MPN Заказной номер производителя Worksheets("Общий список").Cells(oRow, 4).Value = Worksheets("Заказ").Cells(n_row, 3).Value 'Order point Worksheets("Общий список").Cells(oRow, 5).Value = Worksheets("Заказ").Cells(n_row, 5).Value 'Manufacturer Worksheets("Общий список").Cells(oRow, 6).Value = Worksheets("Заказ").Cells(n_row, 10).Value 'Заказ, кол-во Worksheets("Общий список").Cells(oRow, 7).Value = Worksheets("Заказ").Cells(n_row, 4).Value ' Russian Description End If Next i End Sub
[/vba]
Ну, с НДС и мы чего-то стoим!
*без НДС )))
так, посмотри.
[vba]
Код
Public Sub Zakaz() Dim i As Range Dim n_row As Integer Dim oRow As Integer For Each i In Range("Заказ_кол_во") 'для каждой строки заказа If i.Value > 0 And i.Value < 50 Then 'если количество заказа больше 0 и меньше 50 n_row = i.Row ' номер искомой строки в заказе oRow = Worksheets("Общий список").Cells(Rows.Count, 1).End(xlUp).Row + 1 'нижняя свободная строка в общем списке ' теперь, тупо переносим значения ------------------------------------------------- Worksheets("Общий список").Cells(oRow, 1).Value = Worksheets("Заказ").Cells(n_row, 7).Value 'CAP namber Worksheets("Общий список").Cells(oRow, 2).Value = Application.UserName 'Resp. Name Worksheets("Общий список").Cells(oRow, 3).Value = Worksheets("Заказ").Cells(n_row, 6).Value 'MPN Заказной номер производителя Worksheets("Общий список").Cells(oRow, 4).Value = Worksheets("Заказ").Cells(n_row, 3).Value 'Order point Worksheets("Общий список").Cells(oRow, 5).Value = Worksheets("Заказ").Cells(n_row, 5).Value 'Manufacturer Worksheets("Общий список").Cells(oRow, 6).Value = Worksheets("Заказ").Cells(n_row, 10).Value 'Заказ, кол-во Worksheets("Общий список").Cells(oRow, 7).Value = Worksheets("Заказ").Cells(n_row, 4).Value ' Russian Description End If Next i End Sub
[/vba]
Ну, с НДС и мы чего-то стoим!
*без НДС ))) al-Ex
Сообщение отредактировал al-Ex - Воскресенье, 28.02.2016, 23:38
Ответить
Сообщение так, посмотри.
[vba]
Код
Public Sub Zakaz() Dim i As Range Dim n_row As Integer Dim oRow As Integer For Each i In Range("Заказ_кол_во") 'для каждой строки заказа If i.Value > 0 And i.Value < 50 Then 'если количество заказа больше 0 и меньше 50 n_row = i.Row ' номер искомой строки в заказе oRow = Worksheets("Общий список").Cells(Rows.Count, 1).End(xlUp).Row + 1 'нижняя свободная строка в общем списке ' теперь, тупо переносим значения ------------------------------------------------- Worksheets("Общий список").Cells(oRow, 1).Value = Worksheets("Заказ").Cells(n_row, 7).Value 'CAP namber Worksheets("Общий список").Cells(oRow, 2).Value = Application.UserName 'Resp. Name Worksheets("Общий список").Cells(oRow, 3).Value = Worksheets("Заказ").Cells(n_row, 6).Value 'MPN Заказной номер производителя Worksheets("Общий список").Cells(oRow, 4).Value = Worksheets("Заказ").Cells(n_row, 3).Value 'Order point Worksheets("Общий список").Cells(oRow, 5).Value = Worksheets("Заказ").Cells(n_row, 5).Value 'Manufacturer Worksheets("Общий список").Cells(oRow, 6).Value = Worksheets("Заказ").Cells(n_row, 10).Value 'Заказ, кол-во Worksheets("Общий список").Cells(oRow, 7).Value = Worksheets("Заказ").Cells(n_row, 4).Value ' Russian Description End If Next i End Sub
[/vba]
Ну, с НДС и мы чего-то стoим!
*без НДС ))) Автор - al-Ex Дата добавления - 28.02.2016 в 22:27
MikhailMM
Дата: Воскресенье, 28.02.2016, 23:47 |
Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Цитата
Вы хвастаетесь, или жалуетесь?
не то и не другое, а просто спрашиваю.
Цитата
Вы хвастаетесь, или жалуетесь?
не то и не другое, а просто спрашиваю.MikhailMM
Ответить
Сообщение Цитата
Вы хвастаетесь, или жалуетесь?
не то и не другое, а просто спрашиваю.Автор - MikhailMM Дата добавления - 28.02.2016 в 23:47
Wasilich
Дата: Понедельник, 29.02.2016, 09:06 |
Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация:
326
±
Замечаний:
0% ±
2003
не то и не другое, а просто спрашиваю.
и не третье. Больше похоже на контрольное задание в школе.
не то и не другое, а просто спрашиваю.
и не третье. Больше похоже на контрольное задание в школе. Wasilich
Ответить
Сообщение не то и не другое, а просто спрашиваю.
и не третье. Больше похоже на контрольное задание в школе. Автор - Wasilich Дата добавления - 29.02.2016 в 09:06
MikhailMM
Дата: Понедельник, 29.02.2016, 18:54 |
Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Что то получилось. Но есть еще вопросы. 1- я сделал так что бы в начале происходила очистка листа "Общий список" но если нажать кнопку заказ 2-3 раза то значения пишутся ниже и в верху остается пустое пространство. 2- при очистке удаляется таблица (разлиновка) -можно её как то сохранить. 3- как сделать так, что бы в поле "Base quantity" появлялась "Шт" если в поле "Order point" есть число? Спасибо.
Что то получилось. Но есть еще вопросы. 1- я сделал так что бы в начале происходила очистка листа "Общий список" но если нажать кнопку заказ 2-3 раза то значения пишутся ниже и в верху остается пустое пространство. 2- при очистке удаляется таблица (разлиновка) -можно её как то сохранить. 3- как сделать так, что бы в поле "Base quantity" появлялась "Шт" если в поле "Order point" есть число? Спасибо. MikhailMM
Ответить
Сообщение Что то получилось. Но есть еще вопросы. 1- я сделал так что бы в начале происходила очистка листа "Общий список" но если нажать кнопку заказ 2-3 раза то значения пишутся ниже и в верху остается пустое пространство. 2- при очистке удаляется таблица (разлиновка) -можно её как то сохранить. 3- как сделать так, что бы в поле "Base quantity" появлялась "Шт" если в поле "Order point" есть число? Спасибо. Автор - MikhailMM Дата добавления - 29.02.2016 в 18:54
Wasilich
Дата: Понедельник, 29.02.2016, 20:37 |
Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация:
326
±
Замечаний:
0% ±
2003
Задание выполнено! [vba]Код
Sub перенос() Dim s&, i& With Sheets("Заказ") s = .Range("A" & Rows.Count).End(xlUp).Row .Range("A3:G" & s).ClearContents s = 3 For i = 11 To Range("J" & Rows.Count).End(xlUp).Row w = Range("J" & Rows.Count).End(xlUp).Row If Cells(i, "J") > 0 Then .Cells(s, 1) = Cells(i, 7) .Cells(s, 2) = Application.UserName .Cells(s, 3) = Cells(i, 6) .Cells(s, 4) = Cells(i, 10) .Cells(s, 5) = Cells(i, 5) .Cells(s, 7) = Cells(i, 4) Cells(i, 10) = "" s = s + 1 End If Next End With End Sub
[/vba]
Задание выполнено! [vba]Код
Sub перенос() Dim s&, i& With Sheets("Заказ") s = .Range("A" & Rows.Count).End(xlUp).Row .Range("A3:G" & s).ClearContents s = 3 For i = 11 To Range("J" & Rows.Count).End(xlUp).Row w = Range("J" & Rows.Count).End(xlUp).Row If Cells(i, "J") > 0 Then .Cells(s, 1) = Cells(i, 7) .Cells(s, 2) = Application.UserName .Cells(s, 3) = Cells(i, 6) .Cells(s, 4) = Cells(i, 10) .Cells(s, 5) = Cells(i, 5) .Cells(s, 7) = Cells(i, 4) Cells(i, 10) = "" s = s + 1 End If Next End With End Sub
[/vba] Wasilich
Сообщение отредактировал Wasilic - Понедельник, 29.02.2016, 20:39
Ответить
Сообщение Задание выполнено! [vba]Код
Sub перенос() Dim s&, i& With Sheets("Заказ") s = .Range("A" & Rows.Count).End(xlUp).Row .Range("A3:G" & s).ClearContents s = 3 For i = 11 To Range("J" & Rows.Count).End(xlUp).Row w = Range("J" & Rows.Count).End(xlUp).Row If Cells(i, "J") > 0 Then .Cells(s, 1) = Cells(i, 7) .Cells(s, 2) = Application.UserName .Cells(s, 3) = Cells(i, 6) .Cells(s, 4) = Cells(i, 10) .Cells(s, 5) = Cells(i, 5) .Cells(s, 7) = Cells(i, 4) Cells(i, 10) = "" s = s + 1 End If Next End With End Sub
[/vba] Автор - Wasilich Дата добавления - 29.02.2016 в 20:37
MikhailMM
Дата: Понедельник, 29.02.2016, 23:21 |
Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Все получилось, всем принявшим активное, и не очень участие СПАСИБО. Очень помогли.
Все получилось, всем принявшим активное, и не очень участие СПАСИБО. Очень помогли. MikhailMM
Ответить
Сообщение Все получилось, всем принявшим активное, и не очень участие СПАСИБО. Очень помогли. Автор - MikhailMM Дата добавления - 29.02.2016 в 23:21