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

[a18lex]

IgorGO, подходит пункт 2. Для возможности открыть папку и выбрать необходимые файлы.

[IgorGO]

и еще (это не относится к рассматриваемой задаче, это относится к этой переписке)

пожалуйста, ответтьте "да" или "нет"
1. Вас зовут Михаил?
2. Вам 20 лет?
3. Вы живете в Воронеже?

[a18lex]

IgorGO:
1. нет
2. нет
3. нет

[IgorGO]

как видите - экстрасенс из меня просто "НИКАКУЩИЙ!!!"

поэтому я не умею угадывать о чем думают люди и не мог решить Вашу задачу сразу, на основании 1-го сообщения.

[IgorGO]

вернемся к задаче...
допустим... пользователь отметил нужные файлы, все умножилось...
но тут у него появились сомнения, что забыл отметить десяток файлов.
запускает макрос еще раз
видит в папке 800 файлов,
вспоминает те 600, которые уже отметил
отмечает 20-30, о которых забыл в первой попытке

такая ситуация гипотетически возможна?
файл пропущен вообще, файл выбран 2 раза (и А1 уже 2 раза умножилась на 2)

[a18lex]

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

[IgorGO]

с одной стороны обьясняете логично, с другой не понятно чем не подошел п.3

как отобрать нужные файлы?
1. по одному? спросили имя файла, пользователь ввел, умножили спросили следующий?
2. пользователь отметил все необходимые файлы сразу?
3. пользователь выбрал папку, а в этой папке перемножаем все файлы? или файлы с определенной маской имени?
4. если подходит п.3, вложенные папки просматривать?

(выбрать папку проще, чем выбрать 600 файлов в ней (по трудозатратам и возможным ошибкам))

[a18lex]

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

[IgorGO]

макросы скопируйте в любую свою книгу, сохраните ее, выполните StartSub

удачи!

Function SelectedFiles()
  With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = True
    .Title = "Выберите файлы, для умножения"
    .InitialFileName = ThisWorkbook.Path
    Set SelectedFiles = IIf(.Show = -1, .SelectedItems, Nothing)  
  End With
End Function


Sub StartSub()
  Dim fs, f
  Set fs = SelectedFiles
  If Not fs Is Nothing Then
    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
  End If
End Sub

[maksim_serg]

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

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