Добрый день, подскажите пожалуйста, столкнулся с такой проблемой: Есть макрос поиска слова "Итого:" в документе "Счет на оплату". Задача: после нахождения слова "Итого:" - активной должна становиться ячейка на 26 ячеек левее (выделена красным во вложенном файле). Буду признателен за ответ. Так выглядит мой макрос поиска "Итого:" [vba]
Код
Dim r As Range Dim foundCell As Range
Set r = ActiveSheet.Range("A1:AL200") Set foundCell = r.Find("Итого:", LookIn:=xlValues) If Not foundCell Is Nothing Then foundCell.Select Else MsgBox "String not found." End If
[/vba]
[admin]Оформляйте коды тегами![/admin]
Добрый день, подскажите пожалуйста, столкнулся с такой проблемой: Есть макрос поиска слова "Итого:" в документе "Счет на оплату". Задача: после нахождения слова "Итого:" - активной должна становиться ячейка на 26 ячеек левее (выделена красным во вложенном файле). Буду признателен за ответ. Так выглядит мой макрос поиска "Итого:" [vba]
Код
Dim r As Range Dim foundCell As Range
Set r = ActiveSheet.Range("A1:AL200") Set foundCell = r.Find("Итого:", LookIn:=xlValues) If Not foundCell Is Nothing Then foundCell.Select Else MsgBox "String not found." End If
_Boroda_, Да, если уже помогли, может быть подскажете последний штрих? Можно ли заставить закрываться файл не сохраняя изменений в конце этой процедуры? Спасибо.
_Boroda_, Да, если уже помогли, может быть подскажете последний штрих? Можно ли заставить закрываться файл не сохраняя изменений в конце этой процедуры? Спасибо.jeka_piter
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
