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

Вход

Регистрация

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

 

= Мир MS Excel/Заполнение значения ячейки соседним - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение значения ячейки соседним (Макросы/Sub)
Заполнение значения ячейки соседним
VitaliyPegushin Дата: Понедельник, 28.03.2022, 17:39 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Прошу помочь написать макрос который при отсутствии значения в ячейках колонки " O" диапазонов с 18 по 47 строки и 50 строки - заполнит их значениями из колонки "P". При этом вставка будет только значения без копии условного форматирования и формул.
К сообщению приложен файл: 2151884.xlsx (10.0 Kb)
 
Ответить
СообщениеПрошу помочь написать макрос который при отсутствии значения в ячейках колонки " O" диапазонов с 18 по 47 строки и 50 строки - заполнит их значениями из колонки "P". При этом вставка будет только значения без копии условного форматирования и формул.
Автор - VitaliyPegushin
Дата добавления - 28.03.2022 в 17:39
Serge_007 Дата: Понедельник, 28.03.2022, 17:49 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Здравствуйте

[vba]
Код
Sub VitaliyPegushin()
Dim RRan As Range
     For Each RRan In Union(Range("O18:o47"), Range("O50"))
        If RRan = "" Then RRan = RRan.Offset(0, 1).Value
    Next RRan
End Sub
[/vba]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте

[vba]
Код
Sub VitaliyPegushin()
Dim RRan As Range
     For Each RRan In Union(Range("O18:o47"), Range("O50"))
        If RRan = "" Then RRan = RRan.Offset(0, 1).Value
    Next RRan
End Sub
[/vba]
Автор - Serge_007
Дата добавления - 28.03.2022 в 17:49
VitaliyPegushin Дата: Среда, 30.03.2022, 17:22 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Спасибо большое!
Подскажите еще как можно добавить в тот же макрос дополнительную функцию которая после копирования Данных из ячейки P - в О, сотрет данные из ячейки Q (у меня в ней настроена функция макросом фиксация даты внесения изменения в ячейку P - и при переносе данных макросом дата которая туда вставляется мне не нужна)
К сообщению приложен файл: 5454871.xlsx (10.0 Kb)
 
Ответить
СообщениеСпасибо большое!
Подскажите еще как можно добавить в тот же макрос дополнительную функцию которая после копирования Данных из ячейки P - в О, сотрет данные из ячейки Q (у меня в ней настроена функция макросом фиксация даты внесения изменения в ячейку P - и при переносе данных макросом дата которая туда вставляется мне не нужна)
Автор - VitaliyPegushin
Дата добавления - 30.03.2022 в 17:22
Serge_007 Дата: Среда, 30.03.2022, 21:33 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата VitaliyPegushin, 30.03.2022 в 17:22, в сообщении № 3 ()
после копирования Данных из ячейки P - в О, сотрет данные из ячейки Q
[vba]
Код
Sub VitaliyPegushin_ver2()
Dim RRan As Range
    For Each RRan In Union(Range("o18:o47"), Range("O50"))
        If RRan = "" Then
            RRan = RRan.Offset(0, 1).Text
            RRan.Offset(0, 2).ClearContents
        End If
    Next RRan
End Sub
[/vba]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата VitaliyPegushin, 30.03.2022 в 17:22, в сообщении № 3 ()
после копирования Данных из ячейки P - в О, сотрет данные из ячейки Q
[vba]
Код
Sub VitaliyPegushin_ver2()
Dim RRan As Range
    For Each RRan In Union(Range("o18:o47"), Range("O50"))
        If RRan = "" Then
            RRan = RRan.Offset(0, 1).Text
            RRan.Offset(0, 2).ClearContents
        End If
    Next RRan
End Sub
[/vba]
Автор - Serge_007
Дата добавления - 30.03.2022 в 21:33
VitaliyPegushin Дата: Четверг, 31.03.2022, 17:00 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Спасибо Вам огромное.
 
Ответить
СообщениеСпасибо Вам огромное.
Автор - VitaliyPegushin
Дата добавления - 31.03.2022 в 17:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение значения ячейки соседним (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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