Макрос работает только с листа

[Евгений Таб]

Добрый день,

Подскажите пож-ста почему я запускаю этот макрос из листа - все ок.
Запускаю из модуля ошибка 400. Помоги пож-ста исправить код.

Спасибо, код ниже.

Sub QWERT()
    
Worksheets("iI").Activate 
    

      
name_sheets = "iI"
INVOICE = 1
Category = 146
Result = 147
                                                          
                                                          
'TEA+FOOD+HPC+ICFF
'--------------------------------------------------------------------------------------------------
    M = Range("A1").Resize(UsedRange.Rows.Count, Result).Value
    Set D = CreateObject("Scripting.Dictionary")
                    
    For R = 2 To UBound(M)
    
        If D.Exists(M(R, INVOICE)) Then
            Set W = D(M(R, INVOICE))
            If Not W.Exists(M(R, Category)) Then W(M(R, Category)) = M(R, Category)
        Else
            Set DR = CreateObject("Scripting.Dictionary")
            DR(M(R, Category)) = M(R, Category)
            D.Add M(R, INVOICE), DR
        End If
    Next R
    
    For R = 2 To UBound(M)
            For Each DR In D(M(R, INVOICE)).keys
                M(R, Result) = IIf(Len(M(R, Result)) = 0, DR, M(R, Result) & "+" & DR)
            Next
    Next R
    Range("A1").Resize(UsedRange.Rows.Count, Result) = M

    Category = 30
    Result = 148


'H1+H2+H3+H4+H5+H6
'--------------------------------------------------------------------------------------------------
    M = Range("A1").Resize(UsedRange.Rows.Count, Result).Value
    Set D = CreateObject("Scripting.Dictionary")

    For R = 2 To UBound(M)
    
        If D.Exists(M(R, INVOICE)) Then
            Set W = D(M(R, INVOICE))
            If Not W.Exists(M(R, Category)) Then W(M(R, Category)) = M(R, Category)
        Else
            Set DR = CreateObject("Scripting.Dictionary")
            DR(M(R, Category)) = M(R, Category)
            D.Add M(R, INVOICE), DR
        End If
    Next R
    
    For R = 2 To UBound(M)
            For Each DR In D(M(R, INVOICE)).keys
                M(R, Result) = IIf(Len(M(R, Result)) = 0, DR, M(R, Result) & "+" & DR)
            Next
    Next R
    Range("A1").Resize(UsedRange.Rows.Count, Result) = M
    

Set myrange = Range(Cells(2, Result), Cells(UBound(M), Result)) 
myrange.Select
For Each cell In Selection
cell.Value = Replace(cell.Value, "++", "+")
Next cell
    
    
End Sub

[IgorGO]

ошибка 400 где?

[Aleksandr H.]

может модуль не знает с каким листом работать. Попробуй "обернуть" все в

with Worksheets("iI")
 .. 
end with

и все range, cells привязать к этому листу

[Евгений Таб]

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

может модуль не знает с каким листом работать. Попробуй "обернуть" все в

with Worksheets("iI")
 .. 
end with

и все range, cells привязать к этому листу

Александр, а как сделать? все range, cells привязать к этому листу?

[Hugo121]

UsedRange чьё? Непонятненько... всем. Когда работает не из модуля листа.

[Евгений Таб]

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

UsedRange чьё? Непонятненько... всем. Когда работает не из модуля листа.

Как же решить эту проблему

[Hugo121]

Ну как решить... Наверное нужно написать чьё. Мне например непонятно чьё, я не решу.
Да ведь выше Александр уже подсказал - Ваше дело повтыкать всюду где нужно точки, и перед usedrange тоже, если всё к одному листу относится. А вдруг к другому? мне неведомо...

[Евгений Таб]

Может покажите куда воткнуть? не могу понять

[Евгений Таб]

Все относится к одному листу.Worksheets("iI")

[Aleksandr H.]

в начало процедуры

with Worksheets("iI")

в конец

end with

и перед что

относится к одному листу.Worksheets("iI")

ставите "."