Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Поиск значения из одной книги в другой и вставка этого значения
 
Мне это для программы нужно
Поиск значения из одной книги в другой и вставка этого значения
 
ривет форумчане. Требуется ваша помощь. Мне из книги "Разобрано" нужно найти в "Справочнике" сначала лист с брендом, а затем в этом листе нужную модель в столбце "Модель краткое" и после этого в книгу "Разобрано" вставить соответствующее полное название. Сам код можно не присылать. Хотелось бы узнать: правильно ли я делаю. И какие идеи можете подкинуть. Заранее спасибо.
Приблизительный код вот:
Код
Sub CompareSub()
Dim code As String
Dim spr As String
Dim sprval As String
Dim itkval As String
 
code = Range("B4").Value
'code = Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row).Select
'itkval = Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row).Value
'itkval = Range("C2").Value
spr = "F:\Spravochniki_1.xlsx"
iok = Dir(spr)
'sprval = Work
 For Each iok In Worksheets
    For i = 1 To Worksheets.Count
       If Worksheets(i).Name = code Then
          'Worksheets(i).Select
          'With Worksheets(i)
          'sprval = Worksheets(i).Range("E2").Value
         ' sprval = Worksheets(i).Range("E2:E" & Cells(Rows.Count, 1).End(xlUp).Row).Value
          'If itkval = sprval Then
         ' ThisWorkbook.Range("E2") = Worksheets(i).Range("E2").Value
          'MsgBox ("da")
         ' End If
        
          'End With
          MsgBox ("da")
       End If
    Next i
 Next
 
End Sub
Страницы: 1
Наверх