или как можно сделать  
с помощью макрос вытягивал данные из закрытого файла место впр()

файлик  
строк не много работает нормально  
если строк 100 000 тогда долго думает

Здравствуйте!  
Как лучше создать базу???  
Я создал файл База.xlsx (здесь данные хранятся, более 60000 строк) и файл электронный_журнал.xlsm(ведется учет)...  
файле электронный_журнал.xlsm с помощью формул =ВПР()  
Path = ActiveWorkbook.Path & "\[БАЗА.xlsx]"
((=IFERROR(VLOOKUP(RC[-2],'" & Path & "1'!R2C3:R1048576C10,2,FALSE),""НЕТ ДАННЫХ"")))... формула долго думает, а как можно чтобы быстро действовал или запрос...
или по другому создать файл электронный_журнал.xlsm

Sub Copy_paste()  
For i = 7 To Cells(Rows.Count, 19).End(xlUp).Row  
If Cells(i, 19).Value = "Ошибка" Then  
   
  With создать новый лист  
    .Cells(y, 1).Value = ActiveSheet.Cells(i, 1).Value  
    ....................................................  
    .Cells(y, 18).Value = ActiveSheet.Cells(i, 18).Value  
  End With  
   
End If  
Next  
End Sub  
 
как можно переделать  
если в столбце 19 "Ошибка" тогда копируем(результат на новый лист) данные на    
1. создать новый лист  
2. скопировать найденные данные по порядку

nilem благодарю  
а то устал переводит

Здравствуйте!  
есть ли у кого словарь по функциям

Hugo спасибо работает

Hugo улучить работу  
ввожу в ComboBox находить и меняю данные в ListBox

{quote}{login=Hugo}{date=29.11.2011 05:28}{thema=}{post}:) Вводите значение, затем запятые. или наоборот, или делите значение и лепите запятые внутрь, или промеж запятых из ячейки :)  
 
Но я думаю, что понял, что нужно -    
Проверяете, есть ли уже значение.  
Если нет - вводите.  
Если есть - добавляете к значению запятую с пробелом и добавляете значение.{/post}{/quote}  
 
Private Sub CommandButton2_Click()  
Dim i As Long  
With Worksheets("Лист2")  
ListBox1.List = Split(Replace(.Cells(1, 1).Value, " ", ""), ",")  
End With  
End Sub  
 
в этом коде из ячейки в ListBox1 - убирает запятых  
----------  
из ListBox1.List в одну ячейку поставить между запятых  
можно так?

еще один вопрос  
а как можно ввести данные из ListBox1 в ячейку с запятыми

nilem, Hugo Спасибо Вам помогли!

Здравствуйте!  
как можно в ListBox ввести данные из ячейки убрав запятую  
ListBox1.AddItem . "Петров"  
ListBox1.AddItem . "Виктор"  
ListBox1.AddItem . "Владимир"

{quote}{login=Юрий М}{date=29.11.2011 12:05}{thema=}{post}Даулет, Вы не замечали, что не у всех установлен Офис 2007/2010?{/post}{/quote}  
 
Извиняюсь следующий раз на 2003 прикл. файл

Благодарю за просмотр  
вот вариант свой

Здравствуйте!  
как написать код:  
при выборе ("РУКОВОДСТВО"-ComboBox2) список в    
 
(ComboBox1.AddItem м1500)  
(ComboBox1.AddItem м15012)  
 
(ComboBox3.AddItem 10)  
(ComboBox3.AddItem 101)  
и .т.д.

{quote}{login=maslov}{date=25.11.2011 03:41}{thema=}{post}1 2 3 4 1  
1 2 3 5 2  
1 2 3 6 3  
1 2 4 5 4...  
 
(1 2 3 4)   1  
(1 2 3 4+1) 2  
(1 2 3 4+2) 3  
(1 2 3 4+3) 4 ...{/post}{/quote}  
 
ну у вас столбце D максимум 6  
(1 2 3 4+3) 4 ... получается 4+3=7

если четно не понял логику  
2 3 4 6 12  
1 2 5 6 6  
откуда берутся

все равно спасибо СЛЭН!  
можете описать коды если возможно!

G да тоже как включить ???

{quote}{login=слэн}{date=24.11.2011 11:15}{thema=}{post}и как узнать, что именно третью строку столбца G надо брать?{/post}{/quote}  
 
Слэн видите, ячейка D7=нет, по идеи должно быть "да"  
B7 6 символ T2,    
 
хотел бы как на пред. примере был. D7="да"

{quote}{login=}{date=24.11.2011 10:53}{thema=}{post}я думал логика такая: берем текст из столбца B  
берем код из столбца А  
 
находим по коду что искать и где из таблицы в столбцах F:H  
 
 
f щас как? как определить по коду какое вхождение брать? если они повторяются?{/post}{/quote}  
 
если F повторяются то G не повторяют,

Доброе утро!  
{quote}{login=слэн}{date=23.11.2011 11:42}{thema=}{post}а что коды неуникальны?  
у вас t1 6558 и t2 тоже 6558..  
 
тогда не пойму логики..{/post}{/quote}  
 
Слэн логика такая  
данные на столбце Fx они могут совпадать    
а данные на столбце Gx они не совпадают  
 
пример:  
F1=6558 | G1=T1  
F2=6558 | G2=T2  
...............  
Fx=6558 | Gx=любое значение

{quote}{login=Даулет}{date=23.11.2011 08:46}{thema=}{post}Доброе утро!  
Слэн что-то у Вашем "нет" выдает, если добавить в столбец F  
Fx=6558 Gx=T1  
Fy=6558 Gy=T2  
можете посмотреть!{/post}{/quote}

Доброе утро!  
Слэн что-то у Вашем "нет" выдает, если добавить в столбец F  
Fx=6558 Gx=T1  
Fy=6558 Gx=T2  
можете посмотреть!

а как можно переделать чтобы каждом ячейке был штрих

Здравствуйте!  
Есть у кого нибудь для создании штрих-кодов  
--------------------------  
в листе ИИН данные столбец А, надо рядом поставить в столбец В штрих для распознавание сканера  
в листе Адрес данные столбец А, надо рядом поставить в столбец В В штрих для распознавание сканера

Слэн спасибо!  
но только можно только без функции  
чисто на макросе

Здравствуйте!  
нужен помощь по макросу... я чайник еще...  
столбце "А" и "В" данные сверить надо совпадает или нет    
____________________________________________________________­_________  
"А1"=F$1 | пстр("В1",9,1)=G$1 результат на C1 = "да" или "нет"  
"А2"=F$1 | пстр("В2",9,1)=G$1 результат на C2 = "да" или "нет"  
.....................  
"А3"=F$2 | пстр("В3",6,2)=G$2 результат на C3 = "да" или "нет"  
.....................    
____________________________________________________________­_________  
 
столбец "A" строка (от 1 до ?) могут быть  
столбец "B" строка (от 1 до ?) могут быть  
столбец "F" строка (от 1 до ?) могут быть  
столбец "G" строка (от 1 до ?) могут быть  
 
хотел бы на макросе а на формуле получается  
Заранее спасибо!!!

СПАСИБО HUGO!

Hugo есть ли у Вас примерчик любой подходящий...