Dim iSource As Range, iCell As Range
Set iSource = Cells(ActiveCell.Row, 1)
If Not IsEmpty(iSource.Value) Then
Set iCell = Workbooks("Tare_Baze.xls").Worksheets("Baze").Range("A:A").Find(iSource.Value)
If Not iCell Is Nothing Then
ComboBox3.Value = iCell(1, 4).Value 'iCell.Range("D1").Value
End If
End If
помогите с макросом
Сделана юзерформа на быструю клавишу. При активации на одном листе "custom", она на из другого "baze" берет нужные данные и вписывает в комбо бокс. Так вот. лист "baze" стал слишком большим - слишком много в нем инфы храниться. Так вот идея скинуть всю инфу в отдельную книгу, и что бы эта книга открывалась при активации макроса, нужные данные вытягивались и книга закрывалась. С открытием\закрытием мне более-менее понятно, но как вытянуть нужные данные?
Сейчас работает такой код:
If Not Baze.Range("A1:A20000").Find(Cells(ActiveCell.Row, 1)) Is Nothing Then
ComboBox3.Value = Baze.Range("A2:D20000").Find(Cells(ActiveCell.Row, 1)).Cells(1, 4).Value
Как его переделать что бы он вытягивал данные из другой книги "tare_baze"?
Сейчас работает такой код:
If Not Baze.Range("A1:A20000").Find(Cells(ActiveCell.Row, 1)) Is Nothing Then
ComboBox3.Value = Baze.Range("A2:D20000").Find(Cells(ActiveCell.Row, 1)).Cells(1, 4).Value
Как его переделать что бы он вытягивал данные из другой книги "tare_baze"?
Код:
Странно. но не работает.
Ругаеться на строчку
Set iCell = Workbooks("Tare_Baze.xls").Worksheets("Baze").Range("A:A").Find(iSource.Value)
пишет "Run time error 9. Subskript out of range"
Ругаеться на строчку
Set iCell = Workbooks("Tare_Baze.xls").Worksheets("Baze").Range("A:A").Find(iSource.Value)
пишет "Run time error 9. Subskript out of range"
Значит Вы :
1) неправильно указали имя книги (включая расширение)
2) неправильно указали имя листа
3) и/или рабочая книга, где должен осуществляться поиск, закрыта
1) неправильно указали имя книги (включая расширение)
2) неправильно указали имя листа
3) и/или рабочая книга, где должен осуществляться поиск, закрыта