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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование текста с одного листа на другой по условию. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование текста с одного листа на другой по условию. (Макросы/Sub)
Копирование текста с одного листа на другой по условию.
MikhailMM Дата: Воскресенье, 28.02.2016, 20:56 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте, требуется перенести данные с одного листа на другой с соблюдением условий. Если в столбце "заказ кол-во" есть число от 1 до 50 то. данные из этой строчки переносим на лист "Заказ" по условиям.См. пример.
К сообщению приложен файл: 3598105.xlsx (87.5 Kb)
 
Ответить
СообщениеЗдравствуйте, требуется перенести данные с одного листа на другой с соблюдением условий. Если в столбце "заказ кол-во" есть число от 1 до 50 то. данные из этой строчки переносим на лист "Заказ" по условиям.См. пример.

Автор - MikhailMM
Дата добавления - 28.02.2016 в 20:56
KuklP Дата: Воскресенье, 28.02.2016, 21:43 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
требуется перенести данные
Вы хвастаетесь, или жалуетесь?


Ну с НДС и мы чего-то ст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
так, посмотри.

Ну, с НДС и мы чего-то стoим!
*без НДС )))
К сообщению приложен файл: Zakaz.xlsm (96.5 Kb)


Сообщение отредактировал al-Ex - Воскресенье, 28.02.2016, 23:38
 
Ответить
Сообщениетак, посмотри.

Ну, с НДС и мы чего-то стoим!
*без НДС )))

Автор - al-Ex
Дата добавления - 28.02.2016 в 22:27
MikhailMM Дата: Воскресенье, 28.02.2016, 23:47 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата
Вы хвастаетесь, или жалуетесь?
не то и не другое, а просто спрашиваю.
 
Ответить
Сообщение
Цитата
Вы хвастаетесь, или жалуетесь?
не то и не другое, а просто спрашиваю.

Автор - MikhailMM
Дата добавления - 28.02.2016 в 23:47
Wasilich Дата: Понедельник, 29.02.2016, 09:06 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
не то и не другое, а просто спрашиваю.
и не третье. Больше похоже на контрольное задание в школе. yes
 
Ответить
Сообщение
не то и не другое, а просто спрашиваю.
и не третье. Больше похоже на контрольное задание в школе. yes

Автор - 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" есть число?

Спасибо.
К сообщению приложен файл: 9023075.xlsm (95.8 Kb)
 
Ответить
СообщениеЧто то получилось. Но есть еще вопросы.
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]


Сообщение отредактировал 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
Все получилось, всем принявшим активное, и не очень :D участие СПАСИБО.
Очень помогли. hands
 
Ответить
СообщениеВсе получилось, всем принявшим активное, и не очень :D участие СПАСИБО.
Очень помогли. hands

Автор - MikhailMM
Дата добавления - 29.02.2016 в 23:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование текста с одного листа на другой по условию. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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