// Перенесено из темы: https://www.safezone.cc/threads/vba-rabota-so-spiskom-ssylok.42175/#post-323439
Добрый вечер.
Вы простите за назойливость, но нет больше кого спросить.
Как вставить несколько ячеек с формулами (формула одинакова для всех файлов)?
='дані договору'!L17
='дані договору'!L18
='дані договору'!N17
='дані договору'!N18
Взяла ваш скрипт...попыталась изменить но ругается там где жирным шрифтом.
И номер листа не всегда удобно, как можно на конкретное имя заменить с wb.Sheets(2) на Sheets("лютий")
'Лист "лютий" вставить из буфера формулы
wb.Sheets(2).Range("D6").Select
ActiveSheet.Paste
wb.Close SaveChanges:=True
Добрый вечер.
Вы простите за назойливость, но нет больше кого спросить.
Как вставить несколько ячеек с формулами (формула одинакова для всех файлов)?
='дані договору'!L17
='дані договору'!L18
='дані договору'!N17
='дані договору'!N18
Взяла ваш скрипт...попыталась изменить но ругается там где жирным шрифтом.
И номер листа не всегда удобно, как можно на конкретное имя заменить с wb.Sheets(2) на Sheets("лютий")
'Лист "лютий" вставить из буфера формулы
wb.Sheets(2).Range("D6").Select
ActiveSheet.Paste
wb.Close SaveChanges:=True
Код:
Function FileExists(path As String) As Boolean
FileExists = CreateObject("Scripting.FileSystemObject").FileExists(path)
End Function
Sub MarkAll()
Dim personCode As String
Dim baseSheet As Worksheet
Dim path As String
Dim wb As Workbook
Dim y As Long
Set baseSheet = ThisWorkbook.ActiveSheet
For y = 2 To baseSheet.Cells(Cells.Rows.Count, "B").End(xlUp).Row
path = baseSheet.Cells(y, "B").Value
If FileExists(path) Then
Set wb = Workbooks.Open(Cells(y, "B").Value, UpdateLinks:=False)
If Not (wb Is Nothing) Then
personCode = baseSheet.Cells(y, "C")
'Лист "лютий" вставить из буфера формулы
wb.Sheets(2).Range("D6").Select
ActiveSheet.Paste
wb.Close SaveChanges:=True
End If
End If
Next
End Sub
Последнее редактирование модератором: