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

Вход

Регистрация

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

 

= Мир MS Excel/Скопировать с одной ячейки в другую, с проверкой - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скопировать с одной ячейки в другую, с проверкой (Макросы/Sub)
Скопировать с одной ячейки в другую, с проверкой
wwizard Дата: Воскресенье, 08.05.2016, 01:00 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 128
Репутация: 0 ±
Замечаний: 40% ±

Прошу помощи, в написании маленького скриптика, а именно: Если в столбце 8 в ячейке в строке, значение равно столбцу 10 в тойже строке, в ячейке, то скопировать из ячейки столбца 7 данной строки, значение в столбец 8 в ячейку этойже строки.
К сообщению приложен файл: Primier.xlsx(11Kb)
 
Ответить
СообщениеПрошу помощи, в написании маленького скриптика, а именно: Если в столбце 8 в ячейке в строке, значение равно столбцу 10 в тойже строке, в ячейке, то скопировать из ячейки столбца 7 данной строки, значение в столбец 8 в ячейку этойже строки.

Автор - wwizard
Дата добавления - 08.05.2016 в 01:00
KuklP Дата: Воскресенье, 08.05.2016, 01:49 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

Ну если коротко, то так:
[vba]
Код
Sub www()
    Application.ReferenceStyle = xlA1:[h1:h7] = [IF(h1:h7=j1:j7,g1:g7,h1:h7)]
End Sub
[/vba]
%)


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Воскресенье, 08.05.2016, 02:02
 
Ответить
СообщениеНу если коротко, то так:
[vba]
Код
Sub www()
    Application.ReferenceStyle = xlA1:[h1:h7] = [IF(h1:h7=j1:j7,g1:g7,h1:h7)]
End Sub
[/vba]
%)

Автор - KuklP
Дата добавления - 08.05.2016 в 01:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скопировать с одной ячейки в другую, с проверкой (Макросы/Sub)
Страница 1 из 11
Поиск:

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