Макрос копирования

[Kot070]

Добрый день, поправьте пожалуйста меня.
Есть 2 листа в excel, делаю проверку на совпадение и если совпало то нужно копировать и вставить в другой лист. Счетчик j меняется, но копирования не происходит

Dim j As Integer, c As Integer, a As Integer
Set sh = Sheets(4)
Set sh1 = Sheets(8)
j = 1
c = 3
a = 3
lrow = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
lcel = Application.WorksheetFunction.CountA(sh1.Rows(11))
Do While j <= lrow
    MsgBox "j=" & j
    Do While c <= lcel
        If sh.Cells(j, 8).Val = sh2.Cells(11, c).Val Then
        Range(Cells(8, ñ), Cells(196, ñ)).Select
        Selection.Copy
        Sheets(7).Select
        Cells(8, a).Select
        Selection.PasteSpecial
        a = a + 1
        Else
        c = c + 1
        End If
            Loop
            j = j + 1
            Loop

[AleksandrH]

перед range в строке

 Range(Cells(8, ñ), Cells(196, ñ)).Select

надо указать на каком листе копируешь
например:

 sh.Range(Cells(8, ñ), Cells(196, ñ)).Select

второе: sh2. ето че за дичь? Option Explicit использовать должен ты!

[Kot070]

Выкладываю последний исправленый вариант. Вылетает ошибка "Run-time error '1004' Метод Select из класса Range завершен неверно"

Dim j As Integer, c As Integer, a As Integer
Set sh = Sheets(4)
Set sh1 = Sheets(8)
j = 1
'c = 3
a = 3
lrow = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
lcel = Application.WorksheetFunction.CountA(sh1.Rows(11))
Do While j <= lrow
        c = 3
    MsgBox "j=" & j
    Do While c <= lcel
      '  MsgBox "c=" & c
        If sh.Cells(j, 8).Value = sh1.Cells(11, c).Value Then
        sh1.Range(sh1.Cells(8, c), sh1.Cells(196, c)).Select
        Selection.Copy
        Sheets(7).Select
        Cells(8, a).Select
        Selection.PasteSpecial
        a = a + 1
        Else
        c = c + 1
        End If
            Loop
            j = j + 1
            Loop

[AleksandrH]

Sub p78()
Dim j As Integer, c As Integer, a As Integer
Set sh = Sheets(4)
Set sh1 = Sheets(8)
'Dim sh1v As String
'Dim shv As String
j = 1
a = 3
lrow = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
lcel = Application.WorksheetFunction.CountA(sh1.Rows(11))
Do While j <= lrow
    c = 3
    Do While c <= lcel
'        shv = sh.Cells(j, 8)
'        sh1v = sh1.Cells(11, c)
'        Debug.Print shv & " : " & sh1v
        If sh.Cells(j, 8) = sh1.Cells(11, c) Then
            sh1.Range(sh1.Cells(8, c), sh1.Cells(196, c)).Copy
            Sheets(7).Cells(8, a).PasteSpecial
            a = a + 1
        End If
        c = c + 1
     Loop
    j = j + 1
Loop
End Sub

Sub p78()
Dim j As Integer, c As Integer, a As Integer
Set sh = Sheets(4)
Set sh1 = Sheets(8)
Set sh2 = Sheets(9)
'Dim sh1v As String
'Dim shv As String
j = 1
a = 3
lrow = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
lcel = Application.WorksheetFunction.CountA(sh1.Rows(11))
lcel = Application.WorksheetFunction.CountA(sh1.Rows(11))
Do While j <= lrow
    c = 3
    Do While c <= lcel
'        shv = sh.Cells(j, 8)
'        sh1v = sh1.Cells(11, c)
'        Debug.Print shv & " : " & sh1v
        If sh.Cells(j, 8) = sh1.Cells(11, c) Then
            sh1.Range(sh1.Cells(8, c), sh1.Cells(196, c)).Copy
            Sheets(7).Cells(8, a).PasteSpecial
            a = a + 1
        End If
        c = c + 1
     Loop
    j = j + 1
Loop

lcel = Application.WorksheetFunction.CountA(sh2.Rows(11))
Do While j <= lrow
    c = 3
    Do While c <= lcel
        If sh.Cells(j, 8) = sh2.Cells(11, c) Then
            sh2.Range(sh2.Cells(8, c), sh2.Cells(196, c)).Copy
            Sheets(7).Cells(8, a).PasteSpecial
            a = a + 1
        End If
        c = c + 1
     Loop
    j = j + 1
Loop
End Sub