Поиск строки, удаление данных в ней, затем скрытие

[-Elias-]

Здравствуйте!

Есть макрос

Sub -Elias-()
    Rows("12:12").Select
    Selection.Delete Shift:=xlUp
 
    Cells.Find(What:="IRP", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    ActiveSheet.Unprotect
    ActiveSheet.Pictures.Insert( _
        "C:\Users\Elias.png").Select
    Selection.ShapeRange.IncrementLeft 17.25
    Selection.ShapeRange.IncrementTop -18#
    Range("L86").Select
    ActiveWindow.SmallScroll Down:=-70

    Columns("C:C").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("I:I").EntireColumn.AutoFit 
End Sub

Необходимо после удаления 12-й строки найти слово "Тратата", если оно есть, стереть цифры отмеченные красным и скрыть строку и продолжить действия макроса (вставить картинку и подогнать размер столбцов), если нет "Тратата", то пройти мимо вставить картинку и подогнать столбцы по размеру текста.

Помогите решением. Спасибо.

[-Elias-]

Я покопался и сделал вывод последовательность:

1 ActiveSheet.Unprotect 'снимаю защиту листа

2 Rows("12:12").Select
Selection.Delete Shift:=xlUp 'удаляю строку 12

3 Cells.Find = myColumns.Find(What:="тратата", LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False) 'ищем "тратата"

2 понял что это делает offset, но не понял как 'выделяем диапазон справа от "тратата"

3 тоже не понял 'удаляем выделенный диапазон

4 и это не понял, кроме Hidden 'скрываем строку

11 это в макросе есть 'ищем IRP
12 и это есть 'вставляем картинку

[IgorGO]

есть подозрение что Вы путаете понятия "удалить диапазон" и "очистить диапазон"

[-Elias-]

я имел ввиду очистить, чтобы формула дальнейшая не сбилась.

[-Elias-]

Нашел я рабочий макрос подправил чутка его (он удалял, а не очищал содержимое) и заработало.
Осталось скрывать строки, в которых очистили содержимое.
Теперь код такой (может я по неопытности нагородил там.) Есть более простой вариант?:

Sub Procedure_2()

  
 
    Dim ra As Range, delra As Range, ТекстДляПоиска As String
    
    ActiveSheet.Unprotect                   ' снимаем защиту листа
    
    Rows("12:12").Select                    ' удаляем 12 - ую строку
    Selection.Delete Shift:=xlUp
    
    Application.ScreenUpdating = False    ' отключаем обновление экрана
 
    ТекстДляПоиска = "Тратата"  ' удаляем строки с таким текстом
    
      For Each ra In ActiveSheet.UsedRange.Rows   ' перебираем все строки в используемом диапазоне листа
   
   If Not ra.Find(ТекстДляПоиска, , xlValues, xlPart) Is Nothing Then   ' если в строке найден искомый текст
     
   If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)  ' добавляем строку в диапазон для удаления
           
        End If
    Next
    
   If Not delra Is Nothing Then delra.EntireRow.Clear   ' если подходящие строки найдены - очищаем их
   
 
   
     ТекстДляПоиска1 = "Тратата1"
     
      For Each ra In ActiveSheet.UsedRange.Rows   ' перебираем все строки в используемом диапазоне листа
   
   If Not ra.Find(ТекстДляПоиска1, , xlValues, xlPart) Is Nothing Then   ' если в строке найден искомый текст
     
   If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)  ' добавляем строку в диапазон для удаления
           
        End If
    Next
    
   If Not delra Is Nothing Then delra.EntireRow.Clear
    
   
   
   
    Cells.Find(What:="IRP", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    ActiveSheet.Pictures.Insert( _
        "C:\Users\User\Desktop\пикча.png").Select
    ActiveWindow.SmallScroll Down:=10
    Selection.ShapeRange.IncrementLeft 21#
    Selection.ShapeRange.IncrementTop -24#
    ActiveWindow.SmallScroll Down:=-100
    
    Columns("C:C").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("I:I").EntireColumn.AutoFit
 
End Sub

[AleksandrH]

If Not delra Is Nothing Then delra.EntireRow.Clear: delra.EntireRow.Hidden = True

[-Elias-]

If Not delra Is Nothing Then delra.EntireRow.Clear: delra.EntireRow.Hidden = True

Спасибо большое. Все получилось.
Все дело в ":" оказалось. Я так понимаю, это знак последовательности действий?

[AleksandrH]

имхо ":" ето понты. ":" позволяет писать команды в 1 строку и служит разделителем. Намного читабельнее писать каждую комманду с новой строки

If Not delra Is Nothing Then 
     delra.EntireRow.Clear
     delra.EntireRow.Hidden = True
End if

[IgorGO]

: - это не понты, это синтаксис Basic (альтернативный способ разделить операторы между собой)

[-Elias-]

Сообщение от AleksandrH

If Not delra Is Nothing Then 
     delra.EntireRow.Clear
     delra.EntireRow.Hidden = True
End if

Сейчас попробовал в этом виде. Не работает макрос. А вот через ":" нормуль функционирует))) Спасибо еще раз)