Функции в макросе.

[Rom1k06]

Вечер добрый.
Подскажите что нужно исправить в коде стобы он складывал значения в ячейке а не ячейку..


With Sheets("Сводная")
For j = 2 To Sheets("Marks").Cells(Rows.Count, "A").End(xlUp).Row
a = 0
For i = 8 To Sheets("Сводная").Cells(Rows.Count, "A").End(xlUp).Row
Set x = Sheets("Сводная").Columns("A").Find (what:=Sheets("Marks").Cells(j, 1), LookAt:=xlWhole)
If Not x Is Nothing Then
If .Cells(x.Row, 6) = "" Then GoTo m1
a = a + .Cells(x.Row, 6)
End If
m1: Next i
Sheets("Marks").Cells(j, 3) = a
Next j

End With

End Sub

Только можно пороще чтобы я разобрался?
Заранее СПАСИБО ЗА ОТВЕТ.....

[bakabul]

а вы не складывайте ячейки
складывайте значения Cells(x.Row, 6).Value

[Rom1k06]

Не помогает.......
Может вначале кода присвоить Dim a as variant ?

Как еще можно..

[EducatedFool]

Приложили бы Вы пример в виде файла - сразу бы и разобрались...

Попробуйте так, вдруг поможет...

    With Sheets("Сводная")
        For j = 2 To Sheets("Marks").Cells(Rows.Count, "A").End(xlUp).Row
            Dim a As Long: a = 0
            For i = 8 To Sheets("Сводная").Cells(Rows.Count, "A").End(xlUp).Row
                Set x = Sheets("Сводная").Columns("A").Find(what:=Sheets(" Marks").Cells(j, 1), LookAt:=xlWhole)
                If Not x Is Nothing Then
                    If .Cells(x.Row, 6) = "" Then GoTo m1
                    a = a + Val(.Cells(x.Row, 6))
                End If
m1:         Next i
            Sheets("Marks").Cells(j, 3) = a
        Next j

    End With

[Rom1k06]

Не неполучается чтото , выкладываю файлик
внутри краткое описание того чт о надо сделать ...


надо сумму всей значений колонки поставить в соответствующею колонку листа 2 в строку согласно искомому критерию ...

[EducatedFool]

Используйте такой код:

Sub Marks()
    Dim a As Long, MarksValue As String
    With Sheets("Сводная")
        For j = 2 To Sheets("Marks").Cells(Sheets("Marks").Rows.Count, "A").End(xlUp).Row
            a = 0: MarksValue = Sheets("Marks").Cells(j, 1).Value
            For i = 8 To .Cells(.Rows.Count, 1).End(xlUp).Row
                If InStr(1, .Cells(i, 1).Value, MarksValue, vbTextCompare) > 0 Then
                    a = a + Val(.Cells(i, 6))
                End If
            Next i
            Sheets("Marks").Cells(j, 3).Value = IIf(a = 0, "", a)
        Next j
    End With
End Sub

[EducatedFool]

Проблема в вашем коде заключалась в том, что, хоть Вы и перебирали в цикле все ячейки на странице СВОДНАЯ, но метод Find применяли для поиска ячейки во всём столбце А. Соответственно, каждый раз находилась одна и та же ячейка (первая подходящая в этом столбце), и суммировались значения из одной и той же строки 32 раза.

Кстати, Ваша задача решаема без использования макроса - достаточно написать одну большую формулу и вставить её в ячейки листа MARKS... Но по формулам я не специалист

[Rom1k06]

нет без помощи макроса сдесь необойтись т.к. это только часть таблицы
насамом деле этоограмны инструмент автоматизации процесса аналитики...
в этот код я еще добавлю автоматическое пополнение критериев...
это 1 из 4 модулей...

спасибо за ваш ответ.....