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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос значений листа1 на лист2 в Excel при ряде условий - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос значений листа1 на лист2 в Excel при ряде условий (Макросы/Sub)
Перенос значений листа1 на лист2 в Excel при ряде условий
Konkruk Дата: Среда, 18.12.2019, 08:29 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

2010
Всем привет, имеется несколько вопросов по таблице в Excel:
1. нужно, чтобы значения из столбцов "А-Е" листа1 переносились на лист 2 в те же столбцы, но при условии, что значение столбца "D" листа1 = "Россия";
2. на листе1 имеется макрос:
[vba]
Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 1 And Not IsEmpty(Target.Value) Then _
Target.Offset(0, 1).Value = Date
End Sub
[/vba]
Этот макрос проставляет сегодняшнюю дату на листе1 в столбце "С" при заполнении столбца "В", хотелось бы сделать так чтобы когда проставилась дата, но в будущем поменялось значение столбца "В", то дата осталась та, что и была, а не менялась на текущую.
Прикладываю файл:
К сообщению приложен файл: 9871433.xlsm(18.7 Kb)


Сообщение отредактировал Konkruk - Среда, 18.12.2019, 13:34
 
Ответить
СообщениеВсем привет, имеется несколько вопросов по таблице в Excel:
1. нужно, чтобы значения из столбцов "А-Е" листа1 переносились на лист 2 в те же столбцы, но при условии, что значение столбца "D" листа1 = "Россия";
2. на листе1 имеется макрос:
[vba]
Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 1 And Not IsEmpty(Target.Value) Then _
Target.Offset(0, 1).Value = Date
End Sub
[/vba]
Этот макрос проставляет сегодняшнюю дату на листе1 в столбце "С" при заполнении столбца "В", хотелось бы сделать так чтобы когда проставилась дата, но в будущем поменялось значение столбца "В", то дата осталась та, что и была, а не менялась на текущую.
Прикладываю файл:

Автор - Konkruk
Дата добавления - 18.12.2019 в 08:29
китин Дата: Среда, 18.12.2019, 08:53 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 6047
Репутация: 935 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
Konkruk, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
СообщениеKonkruk, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Автор - китин
Дата добавления - 18.12.2019 в 08:53
x_hunter_x Дата: Пятница, 20.12.2019, 11:36 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день! Так как Вы не указали условие в какой момент переносить данные, то переношу их как только выбираете "Россия".

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Row > 1 And Not IsEmpty(Target.Value) And IsEmpty(Target.Offset(0, 1).Value) Then _
        Target.Offset(0, 1).Value = Date
        
    Dim n As Long
    If Target.Column = 4 And Target.Value = "Россия" Then
        n = Target.Row
        Лист2.Range("A" & n, "E" & n).Value = Лист1.Range("A" & n, "E" & n).Value
    End If
End Sub
[/vba]
К сообщению приложен файл: 2183419.xlsm(21.7 Kb)


Сообщение отредактировал x_hunter_x - Пятница, 20.12.2019, 11:37
 
Ответить
СообщениеДобрый день! Так как Вы не указали условие в какой момент переносить данные, то переношу их как только выбираете "Россия".

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Row > 1 And Not IsEmpty(Target.Value) And IsEmpty(Target.Offset(0, 1).Value) Then _
        Target.Offset(0, 1).Value = Date
        
    Dim n As Long
    If Target.Column = 4 And Target.Value = "Россия" Then
        n = Target.Row
        Лист2.Range("A" & n, "E" & n).Value = Лист1.Range("A" & n, "E" & n).Value
    End If
End Sub
[/vba]

Автор - x_hunter_x
Дата добавления - 20.12.2019 в 11:36
Konkruk Дата: Пятница, 20.12.2019, 15:12 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

2010
Здравствуйте, нужно так:
Начинаю Вводить данные слева направо и после заполнения 5-го столбца («город»), переносились данные на следующий лист, но только с условием что в четвёртом столбце стоит Россия. Даже, если можно так - то не чисто «Россия» а выбран один из пунктов содержащим в 4-м столбце слово «россия», т.к. в оригинальном варианте этой таблицы будут несколько похожих названий со словом «Россия».
 
Ответить
СообщениеЗдравствуйте, нужно так:
Начинаю Вводить данные слева направо и после заполнения 5-го столбца («город»), переносились данные на следующий лист, но только с условием что в четвёртом столбце стоит Россия. Даже, если можно так - то не чисто «Россия» а выбран один из пунктов содержащим в 4-м столбце слово «россия», т.к. в оригинальном варианте этой таблицы будут несколько похожих названий со словом «Россия».

Автор - Konkruk
Дата добавления - 20.12.2019 в 15:12
x_hunter_x Дата: Суббота, 21.12.2019, 15:56 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Сделал, но заполнять несколько строк сразу не получится, только по одной.
 
Ответить
СообщениеСделал, но заполнять несколько строк сразу не получится, только по одной.

Автор - x_hunter_x
Дата добавления - 21.12.2019 в 15:56
Konkruk Дата: Воскресенье, 22.12.2019, 19:49 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

2010
x_hunter_x, а как получилось, можете выложить, посмотрю
 
Ответить
Сообщениеx_hunter_x, а как получилось, можете выложить, посмотрю

Автор - Konkruk
Дата добавления - 22.12.2019 в 19:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос значений листа1 на лист2 в Excel при ряде условий (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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