Два листа с данными. Сравнить остатки на листе 1 и 2.

[Naturale]

Срочно нужна помощь в VBA по данному заданию: "Два листа с данными. Сравнить остатки на листе 1 и 2. Выделить цветом ячейки, где не произошло изменений. Сумма изменений по столбцу в документ WORD " Сумма произведенных погашений составляет ….""

[Aleksandr H.]

Sub compare()
    Dim s1 As Worksheet, s2 As Worksheet
    Dim lastRow As Long, diff As Long
    Dim i&
    Dim vTest As Variant
    Set s1 = Sheets(1)
    Set s2 = Sheets(2)
    lastRow = s1.Range("A5000").End(xlUp).Row
    diff = 0
    For i = 1 To lastRow
        vTest = Application.WorksheetFunction.VLookup(s1.Cells(i, 1), s2.Range("A:B"), 2, 0)
        If Not IsError(vTest) Then
            If Cells(i, 2) = vTest Then
                s1.Cells(i, 1).Interior.ColorIndex = 6

            Else
                s1.Cells(i, 1).Interior.ColorIndex = 0
                diff = diff + (Cells(i, 2) - vTest)

            End If
        End If
    Next
    MsgBox "Сумма произведенных погашений составляет : " & Format(diff, "#,##0.00") & chr(13) & "Нужен WORD - Гугли"
    Set s1 = Nothing
    Set s2 = Nothing

End Sub

[Naturale]

А за отдельную плату можно все подробно расписать и с вордом? Я считал, что нужно найти ячейки, в которых изменились суммы, а не именно ячейки, которые просто поменялись

[Naturale]

Спасибо большое... Неужели это так просто делается?

[Naturale]

Так вы поможете?

Сообщение от Aleksandr H.

Sub compare()
    Dim s1 As Worksheet, s2 As Worksheet
    Dim lastRow As Long, diff As Long
    Dim i&
    Dim vTest As Variant
    Set s1 = Sheets(1)
    Set s2 = Sheets(2)
    lastRow = s1.Range("A5000").End(xlUp).Row
    diff = 0
    For i = 1 To lastRow
        vTest = Application.WorksheetFunction.VLookup(s1.Cells(i, 1), s2.Range("A:B"), 2, 0)
        If Not IsError(vTest) Then
            If Cells(i, 2) = vTest Then
                s1.Cells(i, 1).Interior.ColorIndex = 6

            Else
                s1.Cells(i, 1).Interior.ColorIndex = 0
                diff = diff + (Cells(i, 2) - vTest)

            End If
        End If
    Next
    MsgBox "Сумма произведенных погашений составляет : " & Format(diff, "#,##0.00") & chr(13) & "Нужен WORD - Гугли"
    Set s1 = Nothing
    Set s2 = Nothing

End Sub

[Aleksandr H.]

С чем конкретно?

[Naturale]

Сообщение от Aleksandr H.

С чем конкретно?

С описанием кода?
Public Sub DocWrite()
Dim oWord As Object
Dim oDoc As Object
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add()
oWord.Visible = True
oDoc.Activate
With oWord.Selection
.TypeText "Сумма произведенных погашений составляет: " & Format(diff, "#,##0.00")
End With
End Sub
Так я описал вывод в ворд, но он не выводит сумму...

[Aleksandr H.]

опиши diff глобальной или же передавай ее как параметр

[Naturale]

Всё, получилось, спасибо большое за помощь!!!

[Naturale]

Можно ещё попросить с одним заданием? Буду безумно благодарен!
Суть задания: "Подбор параметров и построение графика. Значение в столбце 3 должно быть равно значению в столбце 2. Изменяется значение в стобце 5. Построить линейный график выручки. Результаты вывести в документ Word"