Доброго всем вечера!
Есть файлы: "план/факт" , "ТВБВ-1" , "ТВБВ-2", .... (отчет каждого отделения)
Подскажите как задать подобие впр, что бы искала нужные ячейки (не затрагивая тех, которые не подходят) и заполняла их
книга "ТВБВ-2" "лист1"
книга "план,факт" "лист1"
Есть файлы: "план/факт" , "ТВБВ-1" , "ТВБВ-2", .... (отчет каждого отделения)
Подскажите как задать подобие впр, что бы искала нужные ячейки (не затрагивая тех, которые не подходят) и заполняла их
книга "ТВБВ-2" "лист1"
Продукт | | Факт |
Кредит | | 4 |
Депозит | | 5 |
№ отделения | | Продукт | | План | | Факт |
1 | | Кредит | | 5 | |
1 | | Депозит | | 8 | |
2 | | Кредит | | 4 | |
2 | | Депозит | | 3 | |
3 | | Кредит | | 6 | |
3 | | Депозит | | 7 |
Код |
---|
'номер отделения Dim name As String ' название файла Dim n1 As Long ' размещение "-" и "."(.xlx) Dim final As String ' № отделения name = ActiveWorkbook.name ' n1 = InStr(1, name, "-") fin = right(n2 - n1 - 1) |