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

[DiemonStar]

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

нам тоже непонятно - текста ошибки же нет..

[SaLoKiN]

я вообще не понимаю что сейчас происходит!!!
С такой ерундой падает! Все функции закоментил

Sub ЗатратыСвой()
Dim Reys As Integer
Dim Razmer As Integer
Dim i As Integer, j As Integer
'************************ SHEET ОТЧЕТ *****************************
With Sheets("отчет")
    iLastRow = .Range("A" & .Rows.Count).End(xlUp).Row 'определяем последнюю строку по столбцу дат
    
    a = .Range(.Cells(4, 1), .Cells(iLastRow, 32)) 'массив обрабатываемых значений
    
End With
'************************ SHEET CONFIG ****************************
With Sheets("config")
    iLastRow2 = .Range("H" & .Rows.Count).End(xlUp).Row 'определяем последнюю строку по столбцу дат
    
    b = .Range(.Cells(2, 8), .Cells(iLastRow2, 10)) 'массив обрабатываемых значений
       
    Тариф = .Range(.Cells(4, 1), .Cells(15, 3)) 'массив обрабатываемых значений
End With


'*************************** LETS RUN *****************************
Оклад = 138.89
Reys = 1

For i = 2 To UBound(a)
    If (a(i, НовыйРейс) <> "-") Then
        j = i - 1 ' последнее значение
        Razmer = j - Reys  ' размерность
        
        
        
                
       ' For Z = Reys To Reys + Razmer
        'If (ПоискХрени(Reys, Reys + Razmer) = 0) Then ' избавились от маршрутов "хоз.раб" , "-"
        
            'If (проверкаГород(Reys, Reys + Razmer)) Then ' чистый город
             '  РаспределениеГород Reys, Reys + Razmer, a(Reys, Сумма), СуммаПаллет(Reys, Reys + Razmer)
           ' End If
           ' If (проверкаОбласть(Reys, Reys + Razmer)) Then  ' чистая область
           '     РаспределениеОбласть Reys, Reys + Razmer, 0 ', 0
            'РасчетОблУник Reys, Reys + Razmer
           ' End If
         
           'If (Reys = 2395) Then
           ' If (проверкаСмешанный(Reys, Reys + Razmer)) Then  ' чистая область
           ' СчетСмешанный Reys, Reys + Razmer
               ' ThisWorkbook.ActiveSheet.Cells(Reys + 3, 2).Select
                'MsgBox (Reys + 3)
        
            'End If
            'End If
            'РасчетОблУник Reys, Reys + Razmer - 1
        'End If
    Reys = i
    End If

Next
'ХозНужды


With Sheets("отчет")
     .Range(.Cells(4, 1), .Cells(UBound(a) + 3, 32)) = a 'здесь выгружаем полученный массив
End With


End Sub

и над всем шапкой тут висит это

Dim a As Variant ' отчет
Dim b As Variant ' config
Dim Uniq(30, 2) 'уникальные : 0-НомерМаг 1-КолВо 2-Распределение
Dim Тариф ' тарифы
Dim Оклад

сейчас просто правил код в модуле,ничего не запуская.... ХЛОП! и что-то типо :"Программа EXCEL нашла ошибку и будет закрыта."

UPD
сейчас выдернул код с модуля в блокнот, чтобы подправить. подправил, выделил,скопировал, перешел на ескелевский модуль, Ctrl+V и падение...

[shanemac51]

как минимум
объявите и присвойте начальное значение
переменной НовыйРейс

[SaLoKiN]

хм...спасибо за подсказку. но все эти переменные в паблике лежат в отдельном модуле. просто по запарке это не сказал.
кста, вроде решил проблему... удалил модуль,создал новый и туда код. сейчас работает без проблем. я в шоке x__x

все работает! =)

[SaLoKiN]

и снова АП темы. ничего не вылетает. просто вопрос.
поместил я данные с листа в массив а

With Sheets("отчет")
        iLastRow = .Range("A" & .Rows.Count).End(xlUp).Row 'определяем последнюю строку по столбцу дат
        a = .Range(.Cells(4, 1), .Cells(iLastRow, 32)) 'массив обрабатываемых значений
    End With

после чего производились некоторые изменения в массиве. как выгрузить из массива только один столбец в нужный столбец листа?
не хочется выгружать массив полностью,т.к. тогда формулы,в других столбцах, заменяются значениями.
т.е. вот так не прикольно =(

 With Sheets("отчет")
        '.cells
        Z = UBound(a) + 3
        .Range(.Cells(4, 1), .Cells(Z, 32)) = a 'здесь выгружаем полученный массив
    End With

есть идея пройти циклом по всем значениям, но может существует более совершенный вариант?

[Hugo121]

Первый столбец выгружается легко:

    z = UBound(a) + 3
    .Cells(4, 1).Resize(z, 1) = a    'здесь выгружаем первый столбец массива

Если нужно выгрузить например третий - то можно или отдельно ранее взять этот столбец в отдельный массив и отдельно обработать, или создать пустой массив, переложить в него данные из большого и его выгрузить.
Или можно использовать функцию листа INDEX(), но это самый медленный способ.

[kalbasiatka]

Пардоньте шо без "z"

Sub цикл()
    a = Range("A1:C" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    For i = 1 To UBound(a)
        Cells(i, 10) = a(i, 2)
    Next
End Sub

Sub ещё_массив()
    Dim a(), b()
    a = Range("A1:C" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    ReDim b(1 To UBound(a), 1 To 1)
    For i = 1 To UBound(a)
        b(i, 1) = a(i, 3)
    Next
    [F1].Resize(UBound(b), 1) = b
End Sub

[SAS888]

Пусть, например, из массива a нужно выгрузить 3-й столбец в столбец "H". Можно так:

[H1].Resize(UBound(a, 1)).Value = Application.Transpose(Application.Index(a, 0, 3))

[SaLoKiN]

SAS888 чет не прокатило..все значения 1. вернее не 1, а весь столбец заполняется первым значением.
kalbasiatka 1 - про этот вариант я писал. можно, но искал вариант без циклов и обращения к каждой ячейке.
2 - то что предложил Hugo. наверн единственный вариант.
Hugo121 создавать отдельный массив. перегружать в него из исходного и потом выкладывать. много всего делать...

неужели нельзя тупо выложить нужный столбец массива в столбец листа(

кста изначально значения сразу помещались на лист без массива, но т.к. вывод происходил из 4х разных функций,каждая из которых обращалась к ячейкам. я убрал это, т.к. посчитал это не правильным...

[Hugo121]

Гдеж много? Всего 3 строки:

Sub tt()
    Dim a(), i&
    
    a = [a1:b10].Value

    ReDim b(1 To UBound(a), 1 To 1)
    For i = 1 To UBound(a): b(i, 1) = a(i, 2): Next
    [e1].Resize(UBound(b), 1) = b

End Sub