Block if without end if (error)

[zlobnaya]

Помогите пжста дописать макрос, никак не могу с ним побороться
выдает ошибку Block if without end if
в книге есть 2 листа - необходимо перенести данные из одного листа в другой со след. условиями: выбрать из второго листа (столбец A) только те строки, в которых есть нужная дата (ячейка AW2); добавлять строки из второго листа на пустую строку первого листа
Private Sub CommandButton1_Click()
Dim j As Integer
j = 2
For i = 3 To 1000
work:


While Trim(Sheets("1").Range("G" & CStr(j)).Text) <> ""
j = j + 1

Wend
If Sheets("2").Range("A" & CStr(i)).Value = Range("AW2").Value Then

If Trim(Sheets("1").Range("G" & CStr(j + 1)).Text) = "" Then
If Trim(Sheets("1").Range("G" & CStr(j + 2)).Text) = "" Then


Sheets("1").Range("A" & CStr(j)) = Sheets("2").Range("A" & CStr(j))


MsgBox ("строка " & Sheets("2").Range("G" & CStr(j)) & " добавлена")
Else
j = j + 1
GoTo work
End If
Else
j = j + 1
GoTo work
End If

j = 5

End Sub

[shanemac51]

займитесь арифметикой--- сколько if\endif
-----------------
не баланс
угадать место вставки недостающего можете только вы сами
---------------

If Sheets("2").Range("A" & CStr(i)).Value .... Then
If Trim(Sheets("1")......= "" Then
If Trim(Sheets("1")..... = "" Then
..
Else
..
End If
Else
..
End If

[DiemonStar]

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

ячейка AW2

[zlobnaya]

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

займитесь арифметикой--- сколько if\endif
-----------------
не баланс
угадать место вставки недостающего можете только вы сами
---------------

If Sheets("2").Range("A" & CStr(i)).Value .... Then
If Trim(Sheets("1")......= "" Then
If Trim(Sheets("1")..... = "" Then
..
Else
..
End If
Else
..
End If

если поставить верное количество End If возникает новая ошибка - For without next..

[shanemac51]

у вас оказывается и next i отсутствует

не заметила

[ShAM66]

Даа, беда не только с арифметикой.
Где Next для

For i = 3 To 1000

[zlobnaya]

сам файл..

[zlobnaya]

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

Даа, беда не только с арифметикой.
Где Next для

For i = 3 To 1000

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

[shanemac51]

Private Sub CommandButton1_Click()
    Dim j As Integer
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Set ws1 = Sheets("1")
    Set ws2 = Sheets("2")
    j = 2
    For i = 3 To 10
work:
     Debug.Print
    While Trim(ws2.Range("G" & CStr(j)).Text) <> ""
        j = j + 1
        Debug.Print j;
      
    Wend
    If ws1.Range("A" & CStr(i)).Value = ws1.Range("AW2").Value Then
    
    If Trim(ws2.Range("G" & CStr(j + 1)).Text) = "" Then
        If Trim(ws2.Range("G" & CStr(j + 2)).Text) = "" Then
            
                              
                ws2.Range("A" & CStr(j)) = ws1.Range("A" & CStr(j))
             
                ws2.Range("B" & CStr(j)) = "9493"
                                
                ws2.Range("C" & CStr(j)) = ws1.Range("D" & CStr(j))
                ws2.Range("D" & CStr(j)) = ws1.Range("E" & CStr(j))
                ws2.Range("E" & CStr(j)) = ws1.Range("F" & CStr(j))
                ws2.Range("F" & CStr(j)) = ws1.Range("H" & CStr(j))
                ws2.Range("G" & CStr(j)) = ws1.Range("I" & CStr(j))
                ws2.Range("H" & CStr(j)) = ws1.Range("R" & CStr(j))
                ws2.Range("I" & CStr(j)) = ws1.Range("S" & CStr(j))
                ws2.Range("J" & CStr(j)) = ws1.Range("T" & CStr(j))
                ws2.Range("K" & CStr(j)) = ws1.Range("AG" & CStr(j))
                ws2.Range("Q" & CStr(j)) = ws1.Range("AK" & CStr(j))
                
                                           
                ''MsgBox ("строка " & ws2.Range("G" & CStr(j)) & " добавлена")
        Else
         j = j + 1
         GoTo work
        End If
    Else
     j = j + 1
     GoTo work
    End If
    
    j = 5
End If
Next i
Set ws1 = Nothing
Set ws1 = Nothing
End Sub

предположила, что есть
--отбор по дате
--отбор по пустым записям +1 и +2 не поняла
--пронумеровала ивановых, чтобы видеть кто есть кто
--получила

иванов1
пустая
пустая
иванов4
иванов5
иванов6

скажите по русски, что вы ищете

[zlobnaya]

макрос работает, именно такой и нужен, спасибо
только почему-то не делается выборка по дате - должно быть так: макрос ищет нужную дату (которая предварительно вводится в ячейку AW2 листа 2) в столбце A листа 1, далее копирует строки, в которых есть нужная дата в лист 2
а написанный макрос работает так: макрос ищет количество строк, которые занимает нужная дата в столбце А листа 1 и копирует начиная со 2-й строки листа 1 выбранное количество строк в лист 2
надеюсь понятно объяснила..