[zion87]

весь код макроса

Код:

Dim Month, Organiz, VneshSovmest2list, RabSpisSosNezVneshSovm2list, Vsego3list, RabSpisSosNezVneshSovm3list, VneshSovmest3list As String
    Dim SRCH, BOLNICH, OTPUSK As String
    Dim Stolb, Stroka As Integer


    Month = UserForm1.ComboBox2.Text 'месяц с формы
    Organiz = UserForm1.ComboBox1.Text 'организация с формы
    
    Sheets("База ").Select
    Cells.Find(What:=Organiz, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        True, SearchFormat:=False).Activate 'ищем организацию
        
    Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
    Worksheets("Лист1").Range("месяц").Value = UserForm2.ComboBox2.Text
    Worksheets("Лист1").Range("год").Value = UserForm2.TextBox1.Text
    Worksheets("Лист1").Range("наименованиеОрг").Value = ActiveCell.Text
   Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
    Worksheets("Лист1").Range("почтовыйАдрес").Value = ActiveCell.Text
   Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
    Worksheets("Лист1").Range("окпо").Value = ActiveCell.Text

[okshef]

Вытянуть данные из закрытых книг в Excel

Ваша задача решается без макросов с пом. функции ВПР