xena_1987 (Все сообщения пользователя)

Макрос Поиск строки по определенному значению

xena_1987 Пользователь Сообщений: 4 Регистрация: 02.12.2016	# 02.12.2016 16:42:30 Станислав Антонюк, Run-time error 13 Type mismatch Изменено: xena_1987 - 03.12.2016 00:04:52
	Перейти

Макрос Поиск строки по определенному значению

xena_1987

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

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

02.12.2016 16:39:30

Казанский, выдает ошибку. Не понимаю почему

Код

    Sheets("DATA_f").Select
    Dim c As Range
    Set c = Range("Y:Y").Find(Sheets("Инструкция").Range("B21"), Range("E" & Rows.Count), xlValues, xlPart, False)
    If c Is Nothing Then
    MsgBox "Данные не найдены", vbExclamation
    Else
    Range(c.Row & ":" & Rows.Count).Delete
    End If

Перейти

Макрос Поиск строки по определенному значению

xena_1987 Пользователь Сообщений: 4 Регистрация: 02.12.2016	# 02.12.2016 16:14:02 Потому что это будет встроено в более сложный макрос. И дубликатов там нет. Изменено: xena_1987 - 02.12.2016 16:14:53
	Перейти

Макрос Поиск строки по определенному значению

xena_1987

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

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

02.12.2016 15:45:40

Есть база данных в диапазоне A1:W100.
В столбце E указаны месяца.
Сентябрь
Сентябрь
Сентябрь
Октябрь
Октябрь
Октябрь
Необходимо написать макрос, который будет искать в столбце E первую строку содержащую название конкретного месяца (например Октябрь).
Затем удалять все строки, начиная с этой и до последней.

Перейти