Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA с использованием ВПР и вставить суммы в другой файл с использованием фильтра / 4 сообщений из 4, страница 1 из 1
23.09.2019, 11:12
    #39865487
Angelo Lagusa
Angelo Lagusa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA с использованием ВПР и вставить суммы в другой файл с использованием фильтра
Привет Форумчане!
Можете помочь на этом языке написать еще 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 штук. Если покажете макрос, то к остальным файлам я сам по этим макросам напишу. Надеюсь на вас
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2019, 11:16
    #39865490
Angelo Lagusa
Angelo Lagusa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA с использованием ВПР и вставить суммы в другой файл с использованием фильтра
Начало с ВПР макрос как тот написал, но мне нужен динамический макрос. VBA:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
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



Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.09.2019, 10:17
    #39866100
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA с использованием ВПР и вставить суммы в другой файл с использованием фильтра
Angelo Lagusa,

как-то сумбурно все...
что именно не получается то ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.09.2019, 17:09
    #39867443
Focha
Focha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA с использованием ВПР и вставить суммы в другой файл с использованием фильтра
big-dukeAngelo Lagusa,

как-то сумбурно все...
что именно не получается то ?
это типа сделайте за меня
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA с использованием ВПР и вставить суммы в другой файл с использованием фильтра / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 466ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2154876]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 335ms
total:  466ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]