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

[Aleksandr H.]

Сообщение от Naturale

Да, всё прекрасно работает!
А как сделать вывод в ворд графика, созданного через VBA?
Я пытался по вашему примеру, но там нужно именно выбрать объект, а как сделать его распознавание сразу после создания?

раз на листе будет только 1 график, то в чем проблема?

Sub ChartToDocument()
' Set a VBE reference to Microsoft Word Object Library

    Dim WDApp As Word.Application
    Dim WDDoc As Word.Document
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Range("Лист1!$J$5:$AN$5")
    ActiveSheet.ChartObjects(1).Activate
    ' Make sure a chart is selected
    If ActiveChart Is Nothing Then
        MsgBox "Please select a chart and try again.", vbExclamation, _
               "No Chart Selected"
    Else
        ' Reference existing instance of Word
        Set WDApp = CreateObject("Word.Application")

        ' Reference active document
        Set WDDoc = WDApp.Documents.Add()
        WDApp.Visible = True
        WDDoc.Activate
        ' Copy chart as a picture
        ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, _
                                Format:=xlPicture

        ' Paste chart at cursor position
        WDApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, _
                                     Placement:=wdInLine, DisplayAsIcon:=False

        ' Clean up
        Set WDDoc = Nothing
        Set WDApp = Nothing
    End If

End Sub

[Naturale]

Я прописал по итогу вот так! Спасибо огромное за помощь)
Sub Макрос1()
Range("C4").GoalSeek Goal:=50000, ChangingCell:=Range("E4")
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range("Лист1!$J$5:$AN$5")

ActiveSheet.ChartObjects(1).Activat e
ActiveSheet.ChartObjects(1).Activat e
ActiveChart.ChartArea.Copy
Set WApp = CreateObject("Word.Application")
WApp.Visible = True
Set Doc = WApp.Documents.Add
WApp.Selection.TypeParagraph
WApp.Selection.Paste
ActiveChart.Parent.Cut

End Sub

[Aleksandr H.]

Сообщение от Naturale

А за отдельную плату можно все подробно расписать и с вордом?

Сообщение от Naturale

Буду безумно благодарен!

Сообщение от Naturale

Можно рассчитывать на помощь со 2 заданием? С меня причитается)

Сообщение от Naturale

Спасибо огромное за помощь)

Ну прям депутат

[Naturale]

У меня только Сберовская карта, как могу отблагодарить?

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

Ну прям депутат

[Naturale]

Оказалось неверно... Нужно было составить условие, в котором будет расписано, что среднее значение в С4 будет меняться в зависимости от изменения ячейки Е4, так как в С4 пишется среднее значение диапазона от Е4 до АN4. Так же значение в С4, которое среднее, не должно быть равно В4, а приближенным должно быть, отличаться максимум на 10%. Поможете с этим?

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

Range("C4").GoalSeek Goal:=50000, ChangingCell:=Range("E4")