Вылет программы при использовании макроса

[SaLoKiN]

того что мне нужно я не увидел.
там также есть обращение к диапазону

Range(Cells(5, 2), Cells(5, 2)).Select

но мне нужно обращение на другой лист,а не просто к адресу на листе...
или я чего-т не понимаю =(

[Hugo121]

a=Range(sheets(2).Cells(5, 2), sheets(2).Cells(5, 20)).value

[SaLoKiN]

тоооолько не пинайте)
но вываливается ошибка method 'Range" of object '_Global' failed

[Hugo121]

Выполняйте как положено - из стандарного модуля!
Я проверил.

P.S. Вообще-то я описанную ошибку не получаю - работает из стандарного модуля и модуля книги (XL2003).
Из модуля листа ошибка, но другая.
Естественно, второй лист в книге есть - а как иначе?

[SaLoKiN]

модуль стандартный. запускаю с листа1 и получаю ошибку...

Sub RunMe()

Dim i As Long, S As Long, j As Long, iLastRow As Long, ii As Long
Dim a, b
Dim y As Integer, y1 As Integer

Application.ScreenUpdating = False


'y = Selection.Row
'y1 = y + Selection.Rows.Count - 1

'загрузить массив а значениями А3 J96
With Sheets("НТК 1 ")
iLastRow = .Cells(1, 1).End(xlDown).Row 'до первой пустой строки в А или ставь 98
a = .Range(.Cells(3, 1), .Cells(iLastRow, 12)) ' загрузили массив А3 J96
End With


' создали массив  B для результата
ReDim b(1 To UBound(a, 1), 1 To 12)


j = 1

For ii = 99 To 144 'грубая прявязка к адресу

'подгрузили условия
With Sheets("НТК 1 ")
compared1 = .Cells(ii, 4) ' marshrut
compared2 = .Cells(ii, 6) ' nomer avto
compared4 = 1 ' svoi mashini zzz = PrinadAvto(72)
End With


'начинаем поиск
For i = 1 To UBound(a) '96


If a(i, 8) = compared1 Then
'MsgBox (a(i, 11))
'MsgBox (PrinadAvto(a(i, 11)))

If PrinadAvto(a(i, 11)) = compared4 Then

b(j, 1) = compared2 'nomer avto
b(j, 2) = "sklad1" 'nazvanie sklada
b(j, 3) = compared1 'marshrut
b(j, 4) = a(i, 1) 'Nomer magazina
b(j, 5) = a(i, 2) 'adres magazina
b(j, 6) = a(i, 3) 'summa
b(j, 7) = a(i, 4) 'ves
b(j, 8) = a(i, 6) 'palet
b(j, 9) = a(i, 10) 'poryadok razgruzki

j = j + 1
End If
End If


Next

Next
' ВОТ ТУТ И ПЛЯШЕМ(
With Sheets("для l5")
.Range(.Cells(3, 1), .Cells(j + 2, 10)) = b
End With
   ActiveWorkbook.Worksheets("для l5").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("для l5").Sort.SortFields.Add Key:=Range(Cells(3, 1), Cells(j + 1, 1)) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'A
    ActiveWorkbook.Worksheets("для l5").Sort.SortFields.Add Key:=Range(Cells(3, 3), Cells(j + 1, 3)) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'C
    ActiveWorkbook.Worksheets("для l5").Sort.SortFields.Add Key:=Range(Cells(3, 9), Cells(j + 1, 9)) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'I
    With ActiveWorkbook.Worksheets("для l5").Sort
        .SetRange Range(Cells(3, 1), Cells(j + 1, 10)) 'A I
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    ' вот тут яхз как сделать
 '  With Sheets("для l5")
 ' .Range(Cells(3, 1), Cells(j + 1, 9)).Select
 '  .Range(.Cells(3, 1), .Cells(j + 1, 9)).Copy
 '   End With

    'ThisWorkbook.ActiveSheet.Range(Cells(3, 1), Cells(j + 2, 10))
        
End Sub

вот эта штука запускалась с листа "для l5".
а мне хочется пускать ее с листа НТК1

выгрузка получилась, спасибо IgorGO
а вот скопировать сие немогу...

[Hugo121]

На какой строке ошибка? Файл качать пока не хочу.

[doober]

У меня никаких ошибок не возникает.

[SaLoKiN]

'  With Sheets("для l5")
 ' .Range(Cells(3, 1), Cells(j + 1, 9)).Select
 '  .Range(.Cells(3, 1), .Cells(j + 1, 9)).Copy
 '   End With

вот так не катит....надо запустив скрипт с листа1 скопировать значения диапазона .Cells(3, 1), .Cells(j + 1, 9) которые лежат на листе ("для l5")

У меня никаких ошибок не возникает.

я заморозил строчки и удалил строку от Hugo121

[doober]

Сначала надо лист активировать,потом селектить его

  With Sheets("для l5")
  .Activate
  .Range(.Cells(3, 1), .Cells(j + 1, 9)).Select
 .Range(.Cells(3, 1), .Cells(j + 1, 9)).Copy
 End With

[SaLoKiN]

оу) спасибо!

 With Sheets("для l5")
  .Activate
  .Range(.Cells(3, 1), .Cells(j + 1, 9)).Select
 .Range(.Cells(3, 1), .Cells(j + 1, 9)).Copy
 End With
 With Sheets("НТК 1 ")
 .Activate
 End With

вот так сделаю для того чтобы налисте оставаться =)