Макрос с условием

[Klubnik]

Здраствуйте.
Не могу разобратся с макросом который мог бы копирвать данные по условию.
То что есть во вложении - написано макрорекодером.
Может кто подскажет?

[alex77755]

Sub Макрос1()
 M = Range("B15:G19")
   For R = 1 To 5
        For C = 1 To 3
            If M(R, 6) <> 0 Then Cells(R + 4, C + 1) = M(R, C)
Next C, R
End Sub

[slan]

alex, не слишком ли примитивно?

Sub Макрос1()
 M = Range("B15:G19")
 For R = 1 To UBound(M)
    If M(R, 6) = 0 Then
        For C = 1 To 3
            M(R, C) = Empty
        Next
    End If
Next
[b5].Resize(UBound(M), 3) = M
End Sub

это уж если с массивом( а оно и правильно, особенно для больших объемов.
Но для учебных целей можно и просто с ячейками. Но тогда так:

Sub macro2()
Dim r, c
With Range("B15:d19")
    For Each c In Range("g15:g19")
        If c <> 0 Then .Rows(c.Row - .Row + 1).Copy Range("b" & c.Row - 10)
    Next
End With
End Sub

здесь и знания есть где показать - вон сколько разных способов работы с ячейками

[alex77755]

Кто бы спорил!
Разумеется ваши примеры не примитвны, а наоборот пример для подражания.
Буду учиться у вас.
У меня в одном примере показано и принцип работы с массивами и с ячейками.
И пусть ТС сам выберет нужное ему

[slan]

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

[slan]

и еще каждый раз проверять равенство нулю..