Поиск столбца и пустой ячейки

Пользователь

Сообщений: 48 Регистрация: 20.07.2018

05.01.2019 12:57:11

Добрый день! Нужно найти столбец "Пример 8" и первую пустую ячейку в нем. Предпоследняя строчка с ошибкой, поправьте пожалуйста.

Код

Sub find()
Dim col As String
Dim rng1, cfind As Range
col = "Пример8"
Worksheets(1).Activate
Set cfind = Cells.find(what:=col, lookat:=xlWhole)
Set rng1 = Range(cfind, cfind.xlDown)

'Set rng1 = Range(cfind & Rows.Count).End(xlDown)

End Sub

Прикрепленные файлы

Пример.xlsm (12.26 КБ)

Inexsu

Пользователь

Сообщений: 760 Регистрация: 29.06.2017

05.01.2019 13:21:19

Привет!

Код

Public Sub REName_(Optional ByVal msg As Variant)
' Тестом НЕ покрыта

    Dim ws     As Worksheet:     Set ws = ActiveSheet

    Dim r      As Range
    Dim Cell_Empty As Range
    
    Dim str    As String:    str = "Пример8"

    Set r = ws.UsedRange.Find(str)

    If Not r Is Nothing Then

        Set r = ws.Columns(r.Column)

        Set Cell_Empty = r.SpecialCells(xlCellTypeBlanks).Cells(1, 1)

    End If

End Sub

Цитата
Чих-пых написал: "Пример 8"

а в приложенном Вами файле Пример8

Сравнение прайсов, таблиц - без настроек

Чих-пых Пользователь Сообщений: 48 Регистрация: 20.07.2018	#3 05.01.2019 13:30:32 Спасибо!