Умножить ячейку нескольких файлов на одно значение

[IgorGO]

в комитет по строительству тоннеля под Ла Маншем заходит мужик с лопатой
-- Вы по какому вопросу?
-- я по вопросу рытья тоннеля между Англией и Францией
-- а Вы представитель какой компании?
-- мы будем копать в компании с моим братом! я из Англии, а он из Франции!
-- А если Вы не встретитесь под Ла Маншем?
-- ну... фигня какая - будет у Вас два тоннеля


maksim_serg,
запускаем все еще раз, ну станут некоторые умноженны на 4, а не 2, делов-то.

[a18lex]

IgorGO, спасибо! Только после открытия каждого файла спрашивает про обновление связей в файле, я не знал про такие нюансы, поэтому заранее обговорить такие моменты не мог.
maksim_serg, это будет печально))

[IgorGO]

а так:

Sub StartSub()
  Dim fs, f
  Set fs = SelectedFiles
  If Not fs Is Nothing Then
    Application.DisplayAlerts = False
    For Each f In fs
      With Workbooks.Open(f)
        .Worksheets(1).Cells(1, 1) = .Worksheets(1).Cells(1, 1) * 2
        .Save: .Close
      End With
    Next
    Application.DisplayAlerts = True
  End If
End Sub

[a18lex]

Даже если выключится свет, проблемы не будет, так как мне надо умножить закрепленное значение на 2. То есть а2=а1*2, можно если что все запустить заново. Не хотелось путать мелочами.
Единственное, механизм данного макроса оставляет только значение.
IgorGO, можно это сделать чтобы он умножал как при: специальная вставка - формула - умножить?

[a18lex]

Проблема с обновлением связей вроде как решилась.

[diop]

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

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

А если такая ситуация?
Вы выбрали 600 файлов запустили макрос. Макрос работает, вентилятор в компе жужжит.... Бац и вырубили свет... ((((((((((((
как отсортируете сделанные файлы и нет?

предложение.
а перед сменой значения ячейки - проверить изменения файла на дату и время его сохранения.
перед выполнением макроса запрос на интервал времени

[Hugo121]

Я бы обработанные файлы переносил в другую папку таким образом - сперва сохранил результат (saveas в другую папку), затем удалил оригинал. Или его переименовал.
Тогда даже если погаснет свет - можно смело заново обрабатывать что осталось.