Если столбец X содержит значение, добавьте значение столбца Y в диапазон рабочих листов

-8

Я уверен, что на это был дан ответ в другом месте, однако мне нужна конкретная помощь в разработке необходимого кода VBA.

Сценарий: база данных членства (рабочий лист "Участники") содержит сведения о членах, включая "Активные" или нет.

Я пытаюсь заставить программу смотреть вниз Столбец C; если ячейка содержит "АКТИВНО", то скопируйте соответствующее значение столбца A во второй диапазон шаблонов листа, "активные члены".

Любые предложения будут оценены.

С уважением.

спросил(а) 2021-01-25T13:20:35+03:00 5 месяцев назад
1
Решение
98

Это скопирует всех активных пользователей во второй рабочий лист под названием " Active Members

Sub copyActive()
Dim counter, RowNo As Long

counter = 1
RowNo = 1

Do Until Sheets("Members").Cells(counter, 1) = ""
If UCase(Sheets("Members").Cells(counter, 3)) = "ACTIVE" Then
Sheets("Active Members").Cells(RowNo, 1) = Sheets("Members").Cells(counter, 1)
RowNo = RowNo + 1
counter = counter + 1
End If
counter = counter + 1
Loop

End Sub

ответил(а) 2021-01-25T13:20:35+03:00 5 месяцев назад
Ваш ответ
Введите минимум 50 символов
Чтобы , пожалуйста,
Выберите тему жалобы:

Другая проблема