Добрый день! Помогите пожалуйста решить вопрос, т.к. в VBA не силен. Есть два листа, необходимо в листе 2 найти ячейку с именем (допустим Алексей) и скопировать строку с этим именем, но не все ячейки в строке, а определенные. После этого вставить эту строку на лист 1 где будет ячейка с этим именем. Ячейка с именем на втором листе рандомная, она может быть как в А1 или может быть А2. Спасибо тем, кто останется не равнодушным))
Sub CopyAlex()
Dim r1 As Range
Dim r2 As Range
On Error Resume Next
Set r1 = Sheets("Лист1").Cells.Find("Алексей")
Set r2 = Sheets("Лист2").Cells.Find("Алексей")
On Error GoTo 0
If r1 Is Nothing Then Exit Sub
If r2 Is Nothing Then Exit Sub
Dim x As Variant
For Each x In Array(1, 7, 9)
r1.EntireRow.Cells(1, x).Value = r2.EntireRow.Cells(1, x).Value
Next
End Sub
Sub CopyAlex()
Dim r1 As Range
Dim r2 As Range
On Error Resume Next
Set r1 = Sheets("Лист1").Cells.Find("Алексей")
Set r2 = Sheets("Лист2").Cells.Find("Алексей")
On Error GoTo 0
If r1 Is Nothing Then Exit Sub
If r2 Is Nothing Then Exit Sub
' куда откуда
r1.EntireRow.Cells(1, 1).Value = r2.EntireRow.Cells(1, 3).Value
r1.EntireRow.Cells(1, 2).Value = r2.EntireRow.Cells(1, 5).Value
End Sub