Добрый день!
Пытаюсь написать код , но сломал голову ,
Вообщем нужен цикл я так понимаю, который будет выполнять определенные условия по заданным ячейкам (допустим от A1:A8)
Я написал без цикла и он работает только для одной ячейки , а нужно для списка и после выполнения создает и сохраняет файл в папку и такое действие с каждой ячейкой.
На лист3 в столбец A вводим данные (номер) в столбец B (дату)
И для каждой строки начиная с А3 нужно проделать следующие действие и создать свой файл на основании листа1
Ниже код, ктоорый работает только с ячейкой А3
Sub Ìàêðîñ5()
'
'
'
'
Range("G4").Formula = "=VLOOKUP(Ëèñò3!R[-1]C[-6],Ëèñò2!C[-6]:C[2],9,0)"
Range("G4") = Range("G4").Value
Range("a24").Formula = _
"=CONCATENATE(""Êàêîé òî òåêñò "",VLOOKUP(Ëèñò3!R[-21]C,Ëèñò2!C:C[2],3,0),"", "",""Êàêîé òî òåêñò"",VLOOKUP(Ëèñò3!R[-21]C,Ëèñò2!C:C[3],4,0))"
Range("A24") = Range("A24").Value
Range("H66").Formula = "=CONCATENATE(""Êàêîé òî òåêñò"",VLOOKUP(Ëèñò3!R[-63]C[-7],Ëèñò2!C[-7]:C[-3],5,0),"" "",VLOOKUP(Ëèñò3!R[-63]C[-7],Ëèñò2!C[-7]:C[-5],3,0))"
Range("H66") = Range("H66").Value
Range("C95").Formula = "=CONCATENATE(VLOOKUP(Ëèñò3!A3,Ëèñò2!A:Z,8,0),""ð."")"
Range("C95") = Range("C95").Value
Range("L9") = Range("Ëèñò3!C3").Value
Range("M9") = Range("Ëèñò3!D3").Value
Range("D6") = Range("Ëèñò3!C3").Value
Range("F6").Formula = "=VLOOKUP(Ëèñò1!M9,Ëèñò4!A:B,2,0)"
Range("F6") = Range("F6").Value
Workbooks.Add.SaveAs (Range("A3"))
End Sub
Пытаюсь написать код , но сломал голову ,
Вообщем нужен цикл я так понимаю, который будет выполнять определенные условия по заданным ячейкам (допустим от A1:A8)
Я написал без цикла и он работает только для одной ячейки , а нужно для списка и после выполнения создает и сохраняет файл в папку и такое действие с каждой ячейкой.
На лист3 в столбец A вводим данные (номер) в столбец B (дату)
И для каждой строки начиная с А3 нужно проделать следующие действие и создать свой файл на основании листа1
Ниже код, ктоорый работает только с ячейкой А3
Sub Ìàêðîñ5()
'
'
'
'
Range("G4").Formula = "=VLOOKUP(Ëèñò3!R[-1]C[-6],Ëèñò2!C[-6]:C[2],9,0)"
Range("G4") = Range("G4").Value
Range("a24").Formula = _
"=CONCATENATE(""Êàêîé òî òåêñò "",VLOOKUP(Ëèñò3!R[-21]C,Ëèñò2!C:C[2],3,0),"", "",""Êàêîé òî òåêñò"",VLOOKUP(Ëèñò3!R[-21]C,Ëèñò2!C:C[3],4,0))"
Range("A24") = Range("A24").Value
Range("H66").Formula = "=CONCATENATE(""Êàêîé òî òåêñò"",VLOOKUP(Ëèñò3!R[-63]C[-7],Ëèñò2!C[-7]:C[-3],5,0),"" "",VLOOKUP(Ëèñò3!R[-63]C[-7],Ëèñò2!C[-7]:C[-5],3,0))"
Range("H66") = Range("H66").Value
Range("C95").Formula = "=CONCATENATE(VLOOKUP(Ëèñò3!A3,Ëèñò2!A:Z,8,0),""ð."")"
Range("C95") = Range("C95").Value
Range("L9") = Range("Ëèñò3!C3").Value
Range("M9") = Range("Ëèñò3!D3").Value
Range("D6") = Range("Ëèñò3!C3").Value
Range("F6").Formula = "=VLOOKUP(Ëèñò1!M9,Ëèñò4!A:B,2,0)"
Range("F6") = Range("F6").Value
Workbooks.Add.SaveAs (Range("A3"))
End Sub