Всем привет, имеется несколько вопросов по таблице в 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 в столбце "С" при заполнении столбца "В", хотелось бы сделать так чтобы когда проставилась дата, но в будущем поменялось значение столбца "В", то дата осталась та, что и была, а не менялась на текущую. Прикладываю файл:
Всем привет, имеется несколько вопросов по таблице в 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
Добрый день! Так как Вы не указали условие в какой момент переносить данные, то переношу их как только выбираете "Россия".
[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]
Добрый день! Так как Вы не указали условие в какой момент переносить данные, то переношу их как только выбираете "Россия".
[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
Здравствуйте, нужно так: Начинаю Вводить данные слева направо и после заполнения 5-го столбца («город»), переносились данные на следующий лист, но только с условием что в четвёртом столбце стоит Россия. Даже, если можно так - то не чисто «Россия» а выбран один из пунктов содержащим в 4-м столбце слово «россия», т.к. в оригинальном варианте этой таблицы будут несколько похожих названий со словом «Россия».
Здравствуйте, нужно так: Начинаю Вводить данные слева направо и после заполнения 5-го столбца («город»), переносились данные на следующий лист, но только с условием что в четвёртом столбце стоит Россия. Даже, если можно так - то не чисто «Россия» а выбран один из пунктов содержащим в 4-м столбце слово «россия», т.к. в оригинальном варианте этой таблицы будут несколько похожих названий со словом «Россия».Konkruk
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
