(excel_2010_VBA) Поиск ячейки с данными и запись текста в соседнюю ячейку

[lapin912]

День добрый! Помогите написать скрипт. Есть таблица, нужно найти ячейку с данными, например 12:30:00:00 и слева от неё вписать текст допустим "Пуск".

[EducatedFool]

range("B:B").Find("12:30:00:00").Previous = "Пуск"

[lapin912]

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

range("B:B").Find("12:30:00:00").Next = "Пуск"

А как слева чтобы заполнялось? Всё разобрался, Большой респект и человеческое спасибо.

[svsh2016]

добрый день,протестируйте еще макрос.

 Sub start()
   Dim i&, x()
   x = Sheets("123").UsedRange.Value
        For i = 1 To UBound(x)
           If x(i, 2) = "12:30:00:00" Then x(i, 1) = "Пуск"
        Next
   Sheets("123").Range("A1").Resize(UBound(x), UBound(x, 2)).Value = x
 End Sub

[lapin912]

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

добрый день,протестируйте еще макрос.

 Sub start()
   Dim i&, x()
   x = Sheets("123").UsedRange.Value
        For i = 1 To UBound(x)
           If x(i, 2) = "12:30:00:00" Then x(i, 1) = "Пуск"
        Next
   Sheets("123").Range("A1").Resize(UBound(x), UBound(x, 2)).Value = x
 End Sub

Спасибо большое тоже рабочий макрос, но если поменяется название Sheets("123"), как быть? Как унифицировать макрос? Тоже разобрался ActiveSheet. Огромное спасибо.