Копирование ячеек с условием

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование ячеек с условием (Макросы/Sub)

Mann

Дата: Вторник, 11.03.2014, 12:29 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день! Столкнулся с такой проблемой. Необходимо скопировать значения со столбца C в столбец D при определенном условии.

К примеру:
С3 равно нулю - не копируем в В3
С4 не равно нулю - копируем в B4

Пытался собственными силами, но ничего годного из этого не вышло

Сразу скажу, что в VBA мои знания pre-elementary. Буду очень благодарен за помощь. Обязуюсь участвовать в обсуждениях на форме, а не просто постить вопросы

К сообщению приложен файл: copy_cell_if.xlsx (9.3 Kb)

Сообщение отредактировал Mann - Вторник, 11.03.2014, 12:31

Ответить

nilem

Дата: Вторник, 11.03.2014, 12:56 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

[vba]

Код

Sub ertert()
With Range("C2", Cells(Rows.Count, 3).End(xlUp))
.Offset(, -1) = Evaluate("=if(" & .Address & "<>0," & _
.Address & "," & .Offset(, -1).Address & ")")
End With
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

Mann

Дата: Вторник, 11.03.2014, 13:00 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

nilem, большущее спасибо!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование ячеек с условием (Макросы/Sub)

Страница 1 из 1
1