Серый форум — VBA: Поиск значения в стобце

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

null@example.com (alkhimovmet) — Sat, 29 Sep 2018 04:19:17 +0000

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

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

null@example.com (red2881) — Fri, 28 Sep 2018 20:08:45 +0000

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

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

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

null@example.com (alexii) — Fri, 28 Sep 2018 19:25:31 +0000

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

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

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

null@example.com (alkhimovmet) — Fri, 28 Sep 2018 12:45:24 +0000

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