1

Тема: Поиск значения в стобце

Как записать в макрос условие, что если любое значение в столбце (например A1:A1000) больше 3, то в ячейку С1 записать значение ячейки В1

2

Re: Поиск значения в стобце

Option Explicit

Sub Sample()
    Dim objRange As Range
    
    
    With ThisWorkbook.ActiveSheet
        For Each objRange In Intersect(.UsedRange, .Range("A1:A1000"))
            If objRange.Value > 3 Then
                .Range("C1").Value = .Range("B1").Value
                
                Exit For
            End If
        Next objRange
    End With
End Sub

Для активного Рабочего листа текущей Рабочей книги.

3

Re: Поиск значения в стобце

Sub Test()
    ActiveCell.FormulaR1C1 = "=IF(COUNTIF(RC[-2]:R[999]C[-2],"">3""),RC[-1],"""")"
End Sub

=ЕСЛИ(СЧЁТЕСЛИ(A1:A1000;">3");B1;"")

4

Re: Поиск значения в стобце

Спасибо большоее всем ответившим!
Я попробовал ввести в макрос немного другую формулу и все получилось! Я ввел IIf [MAX(A1:A1000)] > 3 Then ... и дальше код макроса