ривет форумчане. Требуется ваша помощь. Мне из книги "Разобрано" нужно найти в "Справочнике" сначала лист с брендом, а затем в этом листе нужную модель в столбце "Модель краткое" и после этого в книгу "Разобрано" вставить соответствующее полное название. Сам код можно не присылать. Хотелось бы узнать: правильно ли я делаю. И какие идеи можете подкинуть. Заранее спасибо.
Приблизительный код вот:
Приблизительный код вот:
Код |
---|
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 |