Страницы: 1
RSS
макрос на поиск номера (Ctrl+F) и вставку данных конкретного столбца той-же строки на другом листе + автоввод для новых номеров, макрос на поиск номера (Ctrl+F) и вставку данных конкретного столбца той-же строки на другом листе + автоввод для новых номеров
 
В столбце K есть номера, необходим макрос чтоб эти номера искались на листе "адреса" во всех стобцах (типа поиска на Ctrl+F, так-как эти номера могут быть написанны вместе с другой информацией и в любом столбце) и выводилось информация из столбца C с данным номером листа "адреса" в ячейку М листа "номера", так же нужно чтоб при добавлении новых номеров автоматически проделывалось то же самое. Данных строк может быть до 20000 и в номерах и в адресах
 
Код
Sub Найти_весь_столбец()
    With Sheets("номера")
        Dim cl As Range
        For Each cl In Intersect(.UsedRange, .Columns("K:K"))
            If Not IsEmpty(cl.Value) Then
                FindNumber cl.Value, cl.Cells(1, 3)
            End If
        Next
    End With
End Sub

Public Sub FindNumber(sNumb As String, rPrint As Range)
    Dim rf As Range
    On Error Resume Next
    Set rf = Sheets("адреса").Cells.Find(What:=sNumb, LookAt:=xlPart)
    On Error GoTo 0
    If rf Is Nothing Then
        rPrint.ClearContents
    Else
        'rPrint.Value = rf.EntireRow.Cells(1, 3).Value
        rPrint.FormulaR1C1 = "='" & rf.Parent.Name & "'!" & rf.EntireRow.Cells(1, 3).Address(1, 1, xlR1C1)
    End If
End Sub
Это выглядит не из этой задачи "сюда нужна формула, чтоб при копировании (растягивании на другие строки) она делала то же самое", ну да ладно, формула, так формула.
 
МатросНаЗебре, спасибо, работает :)  
Страницы: 1
Наверх