Поиск и замена в Excel, в разных столбцах

[vasiliy]

Мне необходимо искать строку по значению столбца, и заменять в найденой строке совсем другой столбец, кто знает как это сделать подскажите

Код: Выделить всё


    With Worksheets(1).Range("B4:B1500")
        Set c = .Find(TAB_NOMER, LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
             Сюда нужно добавить код
        End If
    End With


Вот что нашел на форуме, то что нужно находить, но теперь мне нужно изменить значение в другом столбце при этом мне номер столбца будет меняться от поставленного условия.

[GSerg]

c.entirerow.columns(5).value="замена"