Страницы: 1
RSS
Найти ячейку с именем, копировать данные некоторых ячеек на другой лист
 
Добрый день!
Помогите пожалуйста решить вопрос, т.к. в VBA не силен. Есть два листа, необходимо в листе 2 найти ячейку с именем (допустим Алексей) и скопировать строку с этим именем, но не все ячейки в строке, а определенные. После этого вставить эту строку на лист 1 где будет ячейка с этим именем. Ячейка с именем на втором листе рандомная, она может быть как в А1 или может быть А2.
Спасибо тем, кто останется не равнодушным))
Изменено: vikttur - 10.06.2021 12:34:30
 
Код
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

 
Спасибо большое:)  
 
МатросНаЗебре, могли бы пожалуйста еще помочь. Как сделать чтобы скопированные данные из таблицы Листа2 вставлялись в определенные ячейки на Лист 1?\
 
Код
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
 
Спасибо вам:)))
Страницы: 1
Читают тему (гостей: 1)
Наверх