Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти  
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
#1
12 Апр 2019 18:54:55
Добрый вечер, уважаемые форумчане. Нужна ваша помощь. Я не силен в VBA  и поэтому который день ломаю голову и пытаюсь из разных предложенных вариантов на данном форуме и не только слепить макрос, который мог бы находить по значениям из двух столбцов строку и суммировать значение , к примеру третьего и четвертого столбцов с новыми данными. В примере думаю более понятно. Пытался и через автофильтр и по поиску по двум значениям, но чего-то не догоняю. Буду очень признателен за любую помощь.
 
 
 
#2
12 Апр 2019 19:10:31
Код
Sub Кнопка1_Щелчок()
    Dim factor As Byte
    Dim arr(), nmb, art As Variant
    Dim i as long
    arr = Range("B3:D" & Cells(Rows.Count, "B").End(xlUp).Row).Value
    nmb = Range("L3")
    art = Range("M3")
    factor = 1
    For i = 1 To UBound(arr)
        If arr(i, 1) = nmb Then
            If arr(i, 3) = art Then
            Cells(i + 2, "E") = Cells(i + 2, "E") + Range("N3")
            Cells(i + 2, "F") = Cells(i + 2, "F") + Range("O3")
            factor = 0
            Exit For
            End If
        End If
    Next
    If factor Then MsgBox "Не нашел позицию!" Else MsgBox "Добавил!"
End Sub
Изменено: skais675 - 12 Апр 2019 20:06:01
 
 
 
#3
12 Апр 2019 19:34:25
skais675, огромное спасибо.
В моем общем макросе используются переменные. Из Вашего варианта назначил переменные:
Код
Dim Arr As Long
    Dim nmb As Range
    Dim factor As Range
    Dim art As Range
    Dim i As Range
но в этом месте
Код
For i = 1 To UBound(Arr)
 застопорился, выдает ошибку "Expected array", выделяя UBound. Что не так я сделал?
 
 
 
#4
12 Апр 2019 19:40:52
Alexey74
или уберите
Код
Option Explicit

или добавьте

Код
Dim arr() As Variant
Изменено: skais675 - 12 Апр 2019 19:41:14
 
 
 
#5
12 Апр 2019 19:44:34
Alexey74, а почему у Вас все переменные as range? Range - это диапазон.
 
 
 
#6
12 Апр 2019 19:52:48
Юрий М, Я говорю не силен в VBA, не до конца понимаю возможности. Что скажите? Как правильно сделать? skais675 Поменял. Спасибо. Но продолжаю дальше монтировать. Не все так быстро у меня получается.
 
 
 
#7
12 Апр 2019 19:59:00
Alexey74 в #2 описал переменные.
 
 
 
#8
12 Апр 2019 20:03:34
skais675, Увидел. А "i"? Не нужно?
 
 
 
#9
12 Апр 2019 20:07:10
Alexey74 Нужно. Поправил. Я обычно этим не замарачиваюсь не трачу лишнее время - но есть случаи где это крайне необходимо.
Изменено: skais675 - 12 Апр 2019 20:07:42
 
 
 
#10
12 Апр 2019 20:16:24
skais675,Большое спасибо. Макрос заработал, только пока не может найти позиции. В примере я урезал таблицу. Видимо столбцы не соответствуют.  
 
 
 
#11
12 Апр 2019 20:24:53
Alexey74 Как в анекдоте - мы пульки выпустили - выпустили - проблемы на Вашей стороне!
 
 
 
#12
12 Апр 2019 20:28:57
Цитата
skais675 написал:
Я обычно этим не замарачиваюсь не трачу лишнее время
А я ВСЕГДА объявляю все переменные и присваиваю им тип )
И считаю, что это правильно!
 
 
 
#13
12 Апр 2019 20:29:33
skais675,Таблица большая, хотя между столбцом № заказа и Артикул еще один столбец. Но, блин, опять я в стопоре. За неделю с этим кодом всю сооброжалку растерял. :)  
 
 
 
#14
12 Апр 2019 20:32:55
Цитата
Alexey74 написал:
между столбцом № заказа и Артикул еще один столбец
И кто же Вам мешал показать реальную структуру таблицы?
Из наших правил:
Цитата
2.3. Приложите файл(ы) с примером (общим весом не более 300Кб) в реальной структуре и форматах данных
 
 
 
#15
12 Апр 2019 20:45:45
Юрий М,Не думал, что так уже сильно затуплю и не справлюсь  со столбцами. Прикрепил файл с реальным количеством столбцов. Форматы не меняются.  
 
 
 
#16
12 Апр 2019 20:56:04
Поправил.
 
 
 
#17
12 Апр 2019 21:24:30
skais675,Спасибо огромное за помощь, но уже стыдно писать. Процесс тормозится. Внес изменения, но не пойму в чем дело. Может влиять то, что прописаны в общем коде
Set ShLogist = ThisWorkbook.Worksheets("Логистика")
Set LogistListObj = ShLogist.ListObjects("Логистика_tb")
?
 
 
 
#18
13 Апр 2019 08:17:20
Alexey74 пришлите файл на почту (в профиле), посмотрим.
Изменено: skais675 - 13 Апр 2019 17:04:28
 
 
 
#19
15 Апр 2019 11:59:18
Всем доброго дня. Разобрался в чем причина. Повторюсь, я не специалист в VBA, но видимо дело в том, что из формы данные выводятся в нечитаемом  для кода формате и код этого не понимает. Добавил в код перед названием формы CDbl и все пошло так как надо.
Код
Dim factor As Byte
Dim arr(), nmb, art, i As Long
arr = Range("B3:E" & Cells(Rows.Count, "B").End(xlUp).Row).Value
    nmb = CDbl(usf_____.txt_____)
    art = CDbl(usf_____.txt______)
    factor = 1
    For i = 1 To UBound(arr)
        If arr(i, 1) = nmb Then
            If arr(i, 4) = art Then
            Cells(i + 2, "J") = Cells(i + 2, "J") + usf_____.txt______.Value
            Cells(i + 2, "K") = Cells(i + 2, "K") + usf______.txt____.Value
            factor = 0
            Exit For
            End If
        End If
    Next
    If factor Then MsgBox "Не нашел позицию!" Else MsgBox "Добавил!"

Еще раз огромное всем спасибо за помощь.  
 
 
 
#20
15 Апр 2019 12:08:40
Alexey74 Хотите сказать, что это влияло на скорость?
Цитата
Процесс тормозится.
 
 
 
#21
15 Апр 2019 12:27:34
skais675,Нет. Я имел ввиду, что не получается, предложенный Вами код вставить в мой общий код так, что бы он работал как надо. В посте #11 я писал: "Макрос заработал, только пока не может найти позиции." (т.е. ошибки не выдает, но не находит позиции). Сейчас все ищет так как надо, но только если вызываешь форму на активном листе. Если нетрудно, не подскажите, что дописать, что бы код работал при вызове формы с любого листа.
 
 
 
#22
15 Апр 2019 16:21:42
Код
Dim factor As Byte
Dim arr(), nmb, art, i As Long
with sheets("Имя вашего листа")
arr = .Range("B3:E" & .Cells(.Rows.Count, "B").End(xlUp).Row).Value
    nmb = CDbl(usf_____.txt_____)
    art = CDbl(usf_____.txt______)
    factor = 1
    For i = 1 To UBound(arr)
        If arr(i, 1) = nmb Then
            If arr(i, 4) = art Then
            .Cells(i + 2, "J") = .Cells(i + 2, "J") + usf_____.txt______.Value
            .Cells(i + 2, "K") = .Cells(i + 2, "K") + usf______.txt____.Value
            factor = 0
            Exit For
            End If
        End If
    Next
    If factor Then MsgBox "Не нашел позицию!" Else MsgBox "Добавил!"
end with
Изменено: skais675 - 15 Апр 2019 16:22:18
 
 
 
#23
16 Апр 2019 08:47:57
skais675,Спасибо
 
 
 
Страницы: 1
Читают тему (гостей: 2)
Наверх