Только изучаю возможности Excel и в частности VBA и уперся в тупик, неделю не могу решить задачу. На нескольких листах (1,2,3) присутствуют данные. Пытаюсь написать макрос, который будет запрашивать условие (из столбца N:N на каждом из трех листов), А Затем будет по этому условию копировать строки на лист сводка. То есть : ЕСЛИ УСЛОВИЕ = ЗНАЧЕНИЕ В СТОЛБЦАХ N:N НА 3-ЕХ ЛИСТАХ "СТОЛИЦА" ТО ВСТАВИТЬ СТРОКИ С ЭТИМ ЗНАЧЕНИЕМ НА ЛИСТ СВОДКА короче говоря Если в столбцах N:N листов 1 2 и 3 значение = "Столица" то эти строки вставить на лист "Сверка"
Добрый день. Нужно чтобы одновременно на 3-х листах было совпадение "Столица" или если на одном листе находит строку с "Столица", то перенести на лист Сводка?
Sub сВодка()
Dim m As Long
Dim y As Long
Dim yS As Long
Dim sh As Worksheet
Dim shName As Variant
yS = 5
For Each shName In Array("1", "2", "3")
Set sh = ActiveWorkbook.Sheets(shName)
m = sh.Cells(Rows.Count, Range("N1").Column).End(xlUp).Row
For y = 1 To m
If sh.Rows(y).Range("N1").Value = "Столица" Then
sh.Rows(y).Copy Sheets("СВОДКА").Cells(yS, 1)
yS = yS + 1
End If
Next
Next
End Sub