Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Не получается формулу в макросе изменить на динамическую
 
другой файл для макроса
Не получается формулу в макросе изменить на динамическую
 
Доброго времени суток!
Можете помочь в написании макроса
В моем макросе я дал переменные к двум файлам.

Private sh_ассигнование As Workbook
Private sh_погашение As Workbook

Код
Private sh_ассигнование As Workbook
Private sh_погашение As Workbook
Private end1 As Long

Sub NPL_ФЛ_Рестр() 'Main макрос

Call обзор_файла1 'Открывает окно где нужно выбрать файл 1
Call обзор_файла2 'Открывает окно где нужно выбрать файл 2
Call copypaste

End Sub

Private Sub обзор_файла1()
result = Application.GetOpenFilename(MyFilter, , "Открой Ассигнование по резервам", "открой")
If result = "False" Then
    Kill_all = True
    Exit Sub
End If
Workbooks.Open Filename:=result, ReadOnly:=1
Set sh_ассигнование = Workbooks(Dir(result))  'Тут дал переменный на workbook 1
End Sub

Private Sub обзор_файла2()

result = Application.GetOpenFilename(MyFilter, , "Открой КП по NPL.Погашение", "открой")
If result = "False" Then
    Kill_all = True
    Exit Sub
End If
Workbooks.Open Filename:=result, ReadOnly:=1
Set sh_погашение = Workbooks(Dir(result))   'Тут дал переменный на workbook 2
'    Скрывает все действия записи макроса
Application.Wait Now + TimeValue("00:00:01")
    Application.ScreenUpdating = False
End Sub

'Тут только часть кода написал сюда, так как важен только формула в макросе
'Вставляем суммы наших пулов из листа "Страница1_1" в Ассигнование по резервам
'Формулы статистические, нужно сделать динамический, связать формулу как то с (sh_ассигнование As Workbook), (sh_погашение As Workbook) 

sh_погашение.Sheets("КП по NPL ФЛ").Range("I8").FormulaR1C1 = "=SUMIFS('[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C25,'[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C18,""ПОТРЕБЦЕЛИ"",'[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C28,0)"

sh_погашение.Sheets("КП по NPL ФЛ").Range("I15").FormulaR1C1 = "=SUMIFS('[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C25,'[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C18,""АВТОКРЕДИТ"",'[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C28,0)"

sh_погашение.Sheets("КП по NPL ФЛ").Range("I22").FormulaR1C1 = "=SUMIFS('[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C25,'[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C18,""ИПОТЕКА"",'[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C28,0)"

sh_погашение.Sheets("КП по NPL ФЛ").Range("I29").FormulaR1C1 = "=SUMIFS('[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C25,'[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C18,""БЕЗЗАЛОГОВЫЕ"",'[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C28,0)"

sh_погашение.Sheets("КП по NPL ФЛ").Range("I36").FormulaR1C1 = "=SUMIFS('[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C25,'[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C18,""БЫСТРДЕН"",'[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C28,0)"

sh_погашение.Sheets("КП по NPL ФЛ").Range("I43").FormulaR1C1 = "=SUMIFS('[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C25,'[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C18,""КРЕДИТНЫЕКАРТЫ"",'[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C28,0)"

sh_погашение.Sheets("КП по NPL ФЛ").Range("I50").FormulaR1C1 = "=SUMIFS('[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C25,'[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C18,""КРЕДИТЫКИК"",'[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!C28,0)"

Формула = *=СУММЕСЛИМН('[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!$Y:$Y;'[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!$R:$R;"ПОТРЕБЦЕЛИ";'[Ассигнования по резервам (01.09.2019 - 23.09.2019).xlsx]Страница1_1'!$AB:$AB;1)*

Нужно сделать формулу динамическим в макросе чтобы он взял данные с файла, который мы открываем через путь
Макрос для переноса данных в другой файл
 
пример
Макрос для переноса данных в другой файл
 
Цитата
Юрий М написал:
Файл "Ассигнования" немного отредактировал - пояснения на листе. Файл с макросом можете переименовать.
Спасибо, но как написать так чтобы он просто копировал из одной ячейки(сводная) в определенную ячейке(КП по NPL ФЛ)
Например: из В14(сводная) в ячейку I8(КП по NPL ФЛ) ?
Подскажите пж
Код
 sh_ассигнование.Sheets("сводная").Range("B14").Selection
           Selection.Copy
           sh_погашение.Sheets("КП по NPL ФЛ").Range("I8").Selection
           Selection.Paste
Изменено: Angelo125 - 25 Сен 2019 08:30:07
Макрос для переноса данных в другой файл
 
Сам так написал, но выходит ошибка
Код
Private sh_ассигнование As Workbook
Private sh_погашение As Workbook
Private end1 As Long

Sub hh()

Call обзор_файла1
Call обзор_файла2
Call copypaste

End Sub

Private Sub обзор_файла1()
result = Application.GetOpenFilename(MyFilter, , "Открой ассигнование", "открой")
If result = "False" Then
    Kill_all = True
    Exit Sub
End If
Workbooks.Open Filename:=result, ReadOnly:=1
Set sh_ассигнование = Workbooks(Dir(result))
End Sub

Private Sub обзор_файла2()
result = Application.GetOpenFilename(MyFilter, , "Открой погашение", "открой")
If result = "False" Then
    Kill_all = True
    Exit Sub
End If
Workbooks.Open Filename:=result, ReadOnly:=1
Set sh_погашение = Workbooks(Dir(result))
End Sub


Private Sub copypaste()
On Error Resume Next
sh_ассигнование.Sheets("сводная").ShowAllData
On Error GoTo 0

On Error Resume Next
sh_погашение.Sheets("КП по NPL ФЛ").ShowAllData
On Error GoTo 0

'sh_ассигнование = ThisWorkbook
sh_ассигнование.Sheets("сводная").Range("B14").Selection
Selection.Copy
sh_погашение = ActiveWorkbook
sh_погашение.Sheets("КП по NPL ФЛ").Range("I8").Select
Selection.Paste

'sh_ассигнование = ActiveWorkbook
sh_ассигнование.Sheets("сводная").Range("B6").Selection
Selection.Copy
sh_погашение = ActiveWorkbook
sh_погашение.Sheets("КП по NPL ФЛ").Range("I15").Select
Selection.Paste

'sh_ассигнование = ActiveWorkbook
sh_ассигнование.Sheets("сводная").Range("B9").Selection
Selection.Copy
sh_погашение = ActiveWorkbook
sh_погашение.Sheets("КП по NPL ФЛ").Range("I22").Select
Selection.Paste

'sh_ассигнование = ActiveWorkbook
sh_ассигнование.Sheets("сводная").Range("B7").Selection
Selection.Copy
sh_погашение = ActiveWorkbook
sh_погашение.Sheets("КП по NPL ФЛ").Range("I29").Select
Selection.Paste

'sh_ассигнование = ActiveWorkbook
sh_ассигнование.Sheets("сводная").Range("B8").Selection
Selection.Copy
sh_погашение = ActiveWorkbook
sh_погашение.Sheets("КП по NPL ФЛ").Range("I36").Select
Selection.Paste

'sh_ассигнование = ActiveWorkbook
sh_ассигнование.Sheets("сводная").Range("B17").Selection
Selection.Copy
sh_погашение = ActiveWorkbook
sh_погашение.Sheets("КП по NPL ФЛ").Range("I43").Select
Selection.Paste

'sh_ассигнование = ActiveWorkbook
sh_ассигнование.Sheets("сводная").Range("B18").Selection
Selection.Copy
sh_погашение = ActiveWorkbook
sh_погашение.Sheets("КП по NPL ФЛ").Range("I50").Select
Selection.Paste

End Sub
Изменено: Angelo125 - 24 Сен 2019 15:53:43
Макрос для переноса данных в другой файл
 
ДД, форумчане!

Помогите с написанием макроса, нужен динамический макрос для выбора файлов, чтобы копировать данные из выборочного файла,
Есть 2 файла, макрос должен быть в  новом файле, в файле (Ассигнования) в листе (сводная) есть суммы резервов, их надо скопировать и вставить в файл (погашение) в столбец I7, I14, I21 ... I49 по названию резервов (название резервов в столбце B)
Прошу помочь с макросом буду благодарен
Изменено: Angelo125 - 24 Сен 2019 12:21:11
VBA с изпользованием фильтра и копирование данных в другой файл
 
Цитата
Jack Famous написал:
забрать данные в массив, отфильтровать и вставить — можно научиться  тут
Может вам предложить этот VBA. напишу в личку
VBA с изпользованием фильтра и копирование данных в другой файл
 
Цитата
Дмитрий(The_Prist) Щербаков написал:
Так что пути два:1. Все же платный раздел2. Терпеливо ждать энтузиаста, которому будет интересно чисто для практики написать за Вас все с нуля и расписать что за что отвечает.
В разделе Работа уже есть (VBA. написать макрос с использованием ВПР и условие), сюда выложил часть тз  
VBA с изпользованием фильтра и копирование данных в другой файл
 
Привет, Форумчане! Помогите пожалуйста по написанию макроса, так как я в  этом новичок. Попытался написать через макрорекордер, но не получается,  мне нужен динамический макрос.

У меня есть файл Расчеты(в нем данные) и Макрос результат(нужно туда макрос написать).

1.  Итак нужно создать новый столбец в конце(файл Расчет кред.линии) и  вписать формулу [=ВПР(M9;'[Макрос Расчеты  (измененный).xlsx]Лист2'!$A:$B;2;0)] и вставить их как значение, далее  заполнить всю строку. Поставить фильтр, всех (#Н/Д) из столбца  переименовать по формуле [=BJ9] (нужно прировнять к столбцу  Субпортфель).

2. Теперь нужно заполнить таблицу ‘’ Кред линии’’ С47-C49 (Малый Бизнес, Средний, Крупный) в файле “Макрос Расчеты”.
Макрос:  фильтр – Текущая классификация -> Тип расчета(Индивидуальный) ,  потом фильтр – Сегмент -> Код поиск - (H,IC,IK,IM,IR,K,K1)крупный,  потом далее копируем “Разница в тенге” сумму(BU4) и вставляем в “Макрос  Расчеты” в таблицу “Кред линии(F47)” крупный

Макрос: фильтр –  Текущая классификация -> Тип расчета(Индивидуальный), потом фильтр –  Сегмент -> Код поиск - ©средний, потом далее копируем “Разница в  тенге” сумму(BX4) и вставляем в “Макрос Расчеты” в таблицу “ Кред линии  (F48)” средний

Макрос: фильтр – Текущая классификация -> Тип  расчета(Индивидуальный) , потом фильтр – Сегмент -> Код поиск -  (R,M,D)малый, потом далее копируем “Разница в тенге” сумму(BU4) и  вставляем в “Макрос Расчеты” в таблицу “ Кред линии (F49)” малый

P.S1 Нужно писать понятный код, буду очень благодарен. У меня таких файлов 5-6 штук. Надеюсь на вас  
Исходник файл - это неизменненный файл
Расчет кред линии - я там впр руками сделал
VBA. написать макрос с использованием ВПР и условие
 
Привет, Форумчане! Помогите пожалуйста по написанию макроса, так как я в  этом новичок. Попытался написать через макрорекордер, но не получается,  мне нужен динамический макрос.

У меня есть файл Расчеты(в нем данные) и Макрос результат(нужно туда макрос написать).

1.  Итак нужно создать новый столбец в конце(файл Расчет кред.линии) и  вписать формулу [=ВПР(M9;'[Макрос Расчеты  (измененный).xlsx]Лист2'!$A:$B;2;0)] и вставить их как значение, далее  заполнить всю строку. Поставить фильтр, всех (#Н/Д) из столбца  переименовать по формуле [=BJ9] (нужно прировнять к столбцу  Субпортфель).

2. Теперь нужно заполнить таблицу ‘’ Кред линии’’ С47-C49 (Малый Бизнес, Средний, Крупный) в файле “Макрос Расчеты”.
Макрос:  фильтр – Текущая классификация -> Тип расчета(Индивидуальный) ,  потом фильтр – Сегмент -> Код поиск - (H,IC,IK,IM,IR,K,K1)крупный,  потом далее копируем “Разница в тенге” сумму(BU4) и вставляем в “Макрос  Расчеты” в таблицу “Кред линии(F47)” крупный

Макрос: фильтр –  Текущая классификация -> Тип расчета(Индивидуальный), потом фильтр –  Сегмент -> Код поиск - ©средний, потом далее копируем “Разница в  тенге” сумму(BX4) и вставляем в “Макрос Расчеты” в таблицу “ Кред линии  (F48)” средний

Макрос: фильтр – Текущая классификация -> Тип  расчета(Индивидуальный) , потом фильтр – Сегмент -> Код поиск -  (R,M,D)малый, потом далее копируем “Разница в тенге” сумму(BU4) и  вставляем в “Макрос Расчеты” в таблицу “ Кред линии (F49)” малый

3.  Макрос: фильтр – Текущая классификация -> Тип  расчета(Индивидуальный) , потом фильтр – Текущая классификация ->  Cубпортфель -

(UNSECURED) далее копируем отдельно из каждой “Разница в тенге” сумму(BU4),

(CONSUMER/OFF BALANCE) далее копируем отдельно из каждой “Разница в тенге” сумму(BU4),

(MORTGAGE), далее копируем отдельно из каждой “Разница в тенге” сумму(BU4),

(AUTO) далее копируем отдельно из каждой “Разница в тенге” сумму(BU4),

(KIK) далее копируем отдельно из каждой “Разница в тенге” сумму(BU4),
(BISTR_DEN) - потом далее копируем отдельно из каждой “Разница в тенге” сумму(BU4)

и все суммы вставляем в “Макрос Расчеты” в таблицу “Кред линии (F52-F57)” соответсвенно с названием строк.


P.S  Вложил файл (Расчеты кредитные линии вручную без макроса), тут я  вручную сделал, можете посмотреть формулу ВПР и новую таблицу

P.S1 Нужно писать понятный код, буду очень благодарен. У меня таких файлов 5-6 штук. Надеюсь на вас  


Оплата 500 рублей, так как 1 файл для работы. И макрос несложный. Пишите в личку, по сроку договоримся
VBA. Получить данные из другой книги по условию
 
Цитата
Nordheim написал:
А причем тут "шапка", я вопрос задавал про наименование листа, шапка это уже второе
Наименование листа тоже не изменяется
VBA. Получить данные из другой книги по условию
 
Цитата
Nordheim написал:
Что подразумевается под "шапкой"?
название колон, столбцов
VBA. Как сделать макрос по фильтрам
 
Цитата
Jack Famous написал:
Создайте небольшой пример, где будет 2 листа: "как есть" и "как надо"
Тут по фильтрам нескольким, невозможно сделать "как надо" потому что каждый раз новый фильтр и старый стирается. В файле макрос Расчеты есть таблица где нужно вписать суммы этих отфильтрованных данных
VBA. Как сделать макрос по фильтрам
 
 Можете без связывание с пред макросом, мне нужен макрос по условиям
VBA. Получить данные из другой книги по условию
 
Цитата
Jack Famous написал:
так сделайте вместо статичного пути текстовую переменную и передавайте в неё любой адрес. Только это уже другая тема с другим названием…
в файлах столбцы те же, только данные меняются. И для этого подходит динамический макрос, но я не знаю как написать, помогите пж
VBA. Не могу сделать макрос по фильтрам
 
Цитата
Jack Famous написал:
забирайте всё в массив, отбирайте в нем данные по условию и выгружайте, куда надо
Ну вот я не знаю какую формулу нужно использовать в Excel, чтобы сразу через формулы найти ту сумму, Помогите пж, думаю что через СУММЕСЛИМН сделать
VBA. Получить данные из другой книги по условию
 
Цитата
Nordheim написал:
А у вас в каждом выборочном файле лист с данными с одним и тем же названием?
Название шапки не меняются, только столбцы и строки. Именно поэтому нужен динамический макрос для выбора файла
VBA. Не могу сделать макрос по фильтрам
 
Доброго времени суток, форумчане!
Помогите по написанию VBA в excel.

Предыдущую часть помогли из форума
Код
Sub VPR_KredLinyi()
Dim arr(), arrM(), arrBJ(), arrVPR()
Dim iSh As Worksheet
Set iSh = Workbooks("Расчет. кредитные линии.xlsx").Worksheets("классификация кредитных линий")
With iSh
   arrM = .Range("M9:M" & .Cells(.Rows.Count, "M").End(xlUp).Row).Value
   arrBJ = .Range("BJ9:BJ" & .Cells(.Rows.Count, "M").End(xlUp).Row).Value
End With
With ThisWorkbook.Worksheets("Лист2")
   arr = .Range("A2:B" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
End With
ReDim arrVPR(1 To UBound(arrM), 1 To 1)
With CreateObject("Scripting.Dictionary")
   For I = LBound(arr) To UBound(arr)
       If Not .Exists(arr(I, 1)) Then .Item(arr(I, 1)) = arr(I, 2)
   Next
   For I = 1 To UBound(arrM)
       If .Exists(arrM(I, 1)) Then
           arrVPR(I, 1) = .Item(arrM(I, 1))
       Else
           arrVPR(I, 1) = arrBJ(I, 1)
       End If
   Next
End With
iSh.Range("BV9").Resize(UBound(arrVPR), 1) = arrVPR
End Sub
Теперь можете помочь на этом языке написать еще vba, этот язык более понятно, чем другие  
В файле "Расчет. кредитные линии" есть данные, нужно используя фильтр заполнить другой файл "Макрос Расчеты"

Нужно  заполнить таблицу ‘’ Кред линии’’ С47-C49 (Малый Бизнес, Средний,  Крупный) в файле “Макрос Расчеты”.Макрос: фильтр – Текущая классификация  -> Тип расчета(Индивидуальный) , потом фильтр – Сегмент -> Код  поиск - (H,IC,IK,IM,IR,K,K1)крупный, потом далее копируем “Разница в  тенге” сумму(BU4) и вставляем в “Макрос Расчеты” в таблицу “Кред  линии(F47)” крупный

Макрос: фильтр – Текущая классификация ->  Тип расчета(Индивидуальный), потом фильтр – Сегмент -> Код поиск - ( C  )средний, потом далее копируем “Разница в тенге” сумму(BX4) и вставляем  в “Макрос Расчеты” в таблицу “ Кред линии (F48)” средний

Макрос:  фильтр – Текущая классификация -> Тип расчета(Индивидуальный) ,  потом фильтр – Сегмент -> Код поиск - (R,M,D)малый, потом далее  копируем “Разница в тенге” сумму(BU4) и вставляем в “Макрос Расчеты” в  таблицу “ Кред линии (F49)” малый

P.S Внутри есть один макрос, прошу можете связать с ним

P.S1  Если хоть как то можете с кодом, буду очень благодарен. У меня таких  файлов 5-6 штук. Если покажете макрос, то к остальным файлам я сам по  этим макросам напишу. Надеюсь на вас  
Изменено: Angelo125 - 4 Сен 2019 04:50:26
VBA. Как сделать макрос по фильтрам
 
Доброго времени суток, форумчане!
Помогите по написанию VBA в excel.

Предыдущую часть помогли из форума
Код
Sub VPR_KredLinyi()
Dim arr(), arrM(), arrBJ(), arrVPR()
Dim iSh As Worksheet
Set iSh = Workbooks("Расчет. кредитные линии.xlsx").Worksheets("классификация кредитных линий")
With iSh
    arrM = .Range("M9:M" & .Cells(.Rows.Count, "M").End(xlUp).Row).Value
    arrBJ = .Range("BJ9:BJ" & .Cells(.Rows.Count, "M").End(xlUp).Row).Value
End With
With ThisWorkbook.Worksheets("Лист2")
    arr = .Range("A2:B" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
End With
ReDim arrVPR(1 To UBound(arrM), 1 To 1)
With CreateObject("Scripting.Dictionary")
    For I = LBound(arr) To UBound(arr)
        If Not .Exists(arr(I, 1)) Then .Item(arr(I, 1)) = arr(I, 2)
    Next
    For I = 1 To UBound(arrM)
        If .Exists(arrM(I, 1)) Then
            arrVPR(I, 1) = .Item(arrM(I, 1))
        Else
            arrVPR(I, 1) = arrBJ(I, 1)
        End If
    Next
End With
iSh.Range("BV9").Resize(UBound(arrVPR), 1) = arrVPR
End Sub

Теперь можете помочь на этом языке написать еще vba, этот язык более понятно, чем другие  
В файле "Расчет. кредитные линии" есть данные, нужно используя фильтр заполнить другой файл "Макрос Расчеты"

Нужно заполнить таблицу ‘’ Кред линии’’ С47-C49 (Малый Бизнес, Средний, Крупный) в файле “Макрос Расчеты”.Макрос: фильтр – Текущая классификация -> Тип расчета(Индивидуальный) , потом фильтр – Сегмент -> Код поиск - (H,IC,IK,IM,IR,K,K1)крупный, потом далее копируем “Разница в тенге” сумму(BU4) и вставляем в “Макрос Расчеты” в таблицу “Кред линии(F47)” крупный

Макрос: фильтр – Текущая классификация -> Тип расчета(Индивидуальный), потом фильтр – Сегмент -> Код поиск - ( C )средний, потом далее копируем “Разница в тенге” сумму(BX4) и вставляем в “Макрос Расчеты” в таблицу “ Кред линии (F48)” средний

Макрос: фильтр – Текущая классификация -> Тип расчета(Индивидуальный) , потом фильтр – Сегмент -> Код поиск - (R,M,D)малый, потом далее копируем “Разница в тенге” сумму(BU4) и вставляем в “Макрос Расчеты” в таблицу “ Кред линии (F49)” малый

P.S Внутри есть один макрос, прошу можете связать с ним

P.S1 Если хоть как то можете с кодом, буду очень благодарен. У меня таких файлов 5-6 штук. Если покажете макрос, то к остальным файлам я сам по этим макросам напишу. Надеюсь на вас  
Изменено: Angelo125 - 3 Сен 2019 17:46:40
VBA. Получить данные из другой книги по условию
 
Sanja написал:
Цитата
Согласие есть продукт при полном непротивлении сторон.
Спасибо вам большое, понятный код. Но можно ли эту строку изменить:
Set iSh = Workbooks("Расчет. Кредитные линии.xlsx").Worksheets("классификация кредитных линий")

можно ли изменить код так чтобы я мог загружать файл выборочно, любой файл?
Изменено: Angelo125 - 3 Сен 2019 17:10:59
VBA. Получить данные из другой книги по условию
 
Привет, Форумчане! Помогите пожалуйста по написанию макроса, так как я в этом новичок. Попытался написать через макрорекордер, но не получается, мне нужен динамический макрос.

У меня есть файл Расчеты(в нем данные) и Макрос расчеты(нужно туда макрос написать).

Итак нужно создать новый столбец в конце(файл Расчет кред.линии) и вписать формулу [=ВПР(M9;'[Макрос Расчеты (измененный).xlsx]Лист2'!$A:$B;2;0)] и вставить их как значение, далее заполнить всю строку. Поставить фильтр, всех (#Н/Д) из столбца переименовать по формуле [=BJ9] (нужно прировнять к столбцу Субпортфель).
Макрос отчета с использованием ВПР и Фильтров, Написать макрос по формулам ВПР и заполнить таблицу
 
Цитата
Юрий М написал:
Очень щедро )
Специалист которому я давал такие задание по макросам, оценивал их в 200-300 рублей. Но он сейчас не может принять заказы
Макрос отчета с использованием ВПР и Фильтров, Написать макрос по формулам ВПР и заполнить таблицу
 
Привет, Форумчане! Помогите пожалуйста по написанию макроса, так как я в этом новичок. Попытался написать через макрорекордер, но не получается, мне нужен динамический макрос.

У меня есть файл Расчеты(в нем данные) и Макрос результат(нужно туда макрос написать).

1. Итак нужно создать новый столбец в конце(файл Расчет кред.линии) и вписать формулу [=ВПР(M9;'[Макрос Расчеты (измененный).xlsx]Лист2'!$A:$B;2;0)] и вставить их как значение, далее заполнить всю строку. Поставить фильтр, всех (#Н/Д) из столбца переименовать по формуле [=BJ9] (нужно прировнять к столбцу Субпортфель).

2. Теперь нужно заполнить таблицу ‘’ Кред линии’’ С47-C49 (Малый Бизнес, Средний, Крупный) в файле “Макрос Расчеты”.
Макрос: фильтр – Текущая классификация -> Тип расчета(Индивидуальный) , потом фильтр – Сегмент -> Код поиск - (H,IC,IK,IM,IR,K,K1)крупный, потом далее копируем “Разница в тенге” сумму(BU4) и вставляем в “Макрос Расчеты” в таблицу “Кред линии(F47)” крупный

Макрос: фильтр – Текущая классификация -> Тип расчета(Индивидуальный), потом фильтр – Сегмент -> Код поиск - ©средний, потом далее копируем “Разница в тенге” сумму(BX4) и вставляем в “Макрос Расчеты” в таблицу “ Кред линии (F48)” средний

Макрос: фильтр – Текущая классификация -> Тип расчета(Индивидуальный) , потом фильтр – Сегмент -> Код поиск - (R,M,D)малый, потом далее копируем “Разница в тенге” сумму(BU4) и вставляем в “Макрос Расчеты” в таблицу “ Кред линии (F49)” малый

3. Макрос: фильтр – Текущая классификация -> Тип расчета(Индивидуальный) , потом фильтр – Текущая классификация -> Cубпортфель -

(UNSECURED) далее копируем отдельно из каждой “Разница в тенге” сумму(BU4),

(CONSUMER/OFF BALANCE) далее копируем отдельно из каждой “Разница в тенге” сумму(BU4),

(MORTGAGE), далее копируем отдельно из каждой “Разница в тенге” сумму(BU4),

(AUTO) далее копируем отдельно из каждой “Разница в тенге” сумму(BU4),

(KIK) далее копируем отдельно из каждой “Разница в тенге” сумму(BU4),
(BISTR_DEN) - потом далее копируем отдельно из каждой “Разница в тенге” сумму(BU4)

и все суммы вставляем в “Макрос Расчеты” в таблицу “Кред линии (F52-F57)” соответсвенно с названием строк.


P.S Вложил файл (Расчеты кредитные линии вручную без макроса), тут я вручную сделал, можете посмотреть формулу ВПР и новую таблицу

P.S1 Нужно писать понятный код, буду очень благодарен. У меня таких файлов 5-6 штук. Надеюсь на вас  


Оплата 500 рублей, так как 1 файл для работы. И макрос несложный. Пишите в личку, по сроку договоримся
Изменено: Angelo125 - 19 Сен 2019 04:49:44 (поднял цену на заказ)
Автоматизация отчета с созданием сводной таблицы
 
Там вообще 2 файла который надо будет данные кидать в 3(новый) файл
Сложности нету, но я не могу писать макросы.
Вот в чем дело
из 6 файлов 2 это как должно выглядеть результат макроса, я вручную все сделал. 2 файла -  ТЗ и новый excel файл, 2 файла исходные данные которые нужно автоматизировать
Автоматизация отчета с созданием сводной таблицы
 
Составил ТЗ но не до конца, задача легкая но очень много фильтров нужны
 

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

Кидаю вам 6 файлов:
1) где написано вручную результат, я сам все сделал но вручную(здесь результаты как сделать)
2) где написано исходник там чистый файл нетронутый
3) макрос результат, это файл куда должен макрос результаты кидать
4)  ТЗ - здесь я написал подробно задании, но не до конца, завтра еще  отправлю тз, так как сегодня нету полного справочника чтобы сегодня  закончить

Еще скиньте мне мессенджер, я вам голосовой еще обьясню. Лучше если есть Telegram

Цена ориентировочно 250руб
Срок до пятницы 12:00, возможен продление до субботы

PS: остальные файлы не загрузились, кто возмет тому скину на почту
Напишите в лс
Изменено: Angelo125 - 31 Июл 2019 19:50:19
Макрос для создание Сводной таблицы, Макрос для создание Сводной таблицы
 
Цитата
Андрей VG написал:
Как я вас понимаю, тяжело когда макрорекордер сломался
Мне без макрорекордера нужна макрос, чтобы потом другие файлы тоже автоматом макрос создавал сводную таблицу
Макрос для создание Сводной таблицы, Макрос для создание Сводной таблицы
 
Нужно написать макрос для создание сводной таблицы из всех данных на листе на новый лист в файле. Перетащить поля между указанными областями: в (Фильтр отчета: ИНД, Счет ГК, УО), в (Название столбцов: пусто), в (Название строк: Пул МСФО), в (Значение: Общая сумма)

Помогите пж, не сталкивался с такой задачей. в гугле тоже не нашел подробно
Изменено: Angelo125 - 31 Июл 2019 08:50:25
Отфильтровать значения в некоторых столбцах и передать в другой файл
 
Напримир, у меня есть данные из отчетов, несколько десяток столбцов. И среди них нужные мне столбцы (шапки) <N бал. акк> ... <Остаток ОД> <в т.ч ОД%.>.
В столбце <N бал. акк> есть значение которые нужно по одтельности фильтровать (1401, 1411, 1417, 6126, 6177).  При каждом фильтре <N бал. акк> выходят присущиеся значение <Остаток ОД> <в т.ч ОД%.>. Мне надо через формулу
Код
=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;W2:W253581)
написать МАКРОС для автоматизации. После чего макрос должен сам определять
Код
=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;W2:W253581)
для отдельного <N бал. акк>(1401, 1411, 1417, 6126, 6177)
Буду благодарен за подсказку
Страницы: 1
Наверх