Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Найти ячейку с именем, копировать данные некоторых ячеек на другой лист
 
#1
10.06.2021 12:19:18
Добрый день!
Помогите пожалуйста решить вопрос, т.к. в VBA не силен. Есть два листа, необходимо в листе 2 найти ячейку с именем (допустим Алексей) и скопировать строку с этим именем, но не все ячейки в строке, а определенные. После этого вставить эту строку на лист 1 где будет ячейка с этим именем. Ячейка с именем на втором листе рандомная, она может быть как в А1 или может быть А2.
Спасибо тем, кто останется не равнодушным))
Изменено: vikttur - 10.06.2021 12:34:30
 
 
 
#2
10.06.2021 12:33:12
Код
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
 
 
 
#3
10.06.2021 15:26:11
Спасибо большое:)  
 
 
 
#4
11.06.2021 11:27:08
МатросНаЗебре, могли бы пожалуйста еще помочь. Как сделать чтобы скопированные данные из таблицы Листа2 вставлялись в определенные ячейки на Лист 1?\
 
 
 
#5
11.06.2021 11:58:56
Код
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
 
 
 
#6
11.06.2021 11:59:41
Спасибо вам:)))
 
 
 
Страницы: 1
Наверх