нифига себе!такое простое действие,а я не знал.спасибо suripopik!

только то что в скобках вместе со скобками,остальные значения в ячейке должны остаться.

Здравствуйте!Помогите создать макрос для удаления всех значений с листа,находящихся в скобках,можно удалять вместе со скобками.

R Dmitry dbf у меня большого формата 8м,а в excel не редактируется,по этому решил сбросить в xls,просто я в других кодах менял формат xls на dbf и все получалось.сбросил и на всякий случай код перекодировки из Windows-1251 в DOS-866 для работы в Excel если будут иероглифы.

Сори!еще один вопрос!а где в вашем коде поменять формат что бы я копировал с dbf?

R Dmitry Даже не представляете как выручили!Респектище огромный!!!Прям то что надо!

Спасибо Hugo за старания!А как мне припаять что нибудь и этого под свою задачу?  
Мне понравился этот код  
 
Sub Get_Value_From_Close_Book()  
Dim sShName As String, sAddress As String, vData  
'Отключаем обновление экрана  
Application.ScreenUpdating = False  
Workbooks.Open "C:\Documents and Settings\user\Рабочий стол\SC33.xlsx"  
sAddress = "A2:A1000" 'или одна ячейка - "A1"  
'получаем значение  
vData = Sheets("SC33").Range(sAddress).Value  
ActiveWorkbook.Close False  
'Записываем данные на активный лист книги,  
'с которой запустили макрос  
If IsArray(vData) Then  
[A1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
Else  
[A1] = vData
End If  
'Включаем обновление экрана  
Application.ScreenUpdating = True  
End Sub  
 
Но как сделать что бы он брал значения со второй строки SC33.xls и подставлял 4 столбец из SC33.xls в B5,3 столбец из SC33.xls в D5,32 столбец из SC33.xls в E5,30 столбец из SC33.xls в F5??

ошибка type mismatch

Спасибо Prist  
 
Sub Get_Value_From_Close_Book()  
   Dim sShName As String, sAddress As String, vData  
   'Отключаем обновление экрана  
   Application.ScreenUpdating = False  
   Workbooks.Open "C:\Documents and Settings\user\Рабочий стол\SC33.xlsx"  
   sAddress = "A2:A1000" 'или одна ячейка - "A1"  
   'получаем значение  
   vData = Sheets("SC33").Range(sAddress).Value  
   ActiveWorkbook.Close False  
   'Записываем данные на активный лист книги,  
   'с которой запустили макрос  
   If IsArray(vData) Then  
       [A1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
   Else  
       [A1] = vData
   End If  
   'Включаем обновление экрана  
   Application.ScreenUpdating = True  
End Sub  
 
код хороший а как сделать что бы копировались определенные столбцы до последней строки,а не диапазон?

хорошо.если это нереально,возможно ли это сделать макросом который открывал бы книгу копировал,данные а потом закрывал бы ее?

Здравствуйте уважаемые форумчане!Помогите пожалуйста создать макрос по переносу данных из закрытой книги в текущей папке.Есть файл исходник(книга1) и закрытый файл база(SC33.xlsx)надо сделать так что бы данные из базы копировались в определенные столбцы файла исходника начиная со второй строки базы.Какие столбцы копировать указано в файле книга1.

Спасибо большое!

{quote}{login=Hugo}{date=19.02.2012 05:45}{thema=}{post}Я сделал просто - проверяю данные в D снизу вверх, и если такое значение уже было, то такая строка удаляется. Остальные значения не анализируются и не копируются.{/post}{/quote}  
 
Да действительно. А можно ли это сделать без вывода на второй лист?

{quote}{login=KukLP}{date=19.02.2012 05:33}{thema=}{post}С сохранением данных 1 и 6 столбца, пока сделал вывод на второй лист.{/post}{/quote}  
 
KukLP тоже респект!

Hugo вроде все правильно.Спасибо!

На данный момент база на 3782 строки,база периодически пополняется.

Может я просто не такой опытный юзер vba

А это как?Не сталкивался никогда.

Да все верно.

Здравствуйте!Есть макрос,смысл которого обновлять базу,он сопоставляет строки с одинаковыми значениями в столбце D с заменой остальных значений в таблице,т.к. база большая он делает это очень медленно. Можно ли как то ускорить работу этого макроса?

Что то похожее.Спасибо,пытаюсь разобраться,в этом варианте проблема в том, что фокус попадает TextBox3 только после удаления значения из TextBox1 в ручную, занимает много времени.  
 
А если вставляю строку TextBox1.Clear то фокус попадает сразу в TextBox3 и не попадает в TextBox2

дело в том что TextBox2.SetFocus должен остаться,TextBox3.SetFocus выполняется только тогда,когда TextBox1.Text = "". В предложенных вариантах TextBox3.SetFocus выполняется сразу,даже если в TextBox1 было введено значение.

Здравствуйте уважаемые форумчане. Есть 3 текстбокса, при вводе значения в TextBox1 и нажатии Enter курсор фокусируется на TextBox2. Как выполнить следующее: если TextBox1 пустой, курсор фокусируется на TextBox3?      
 
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)  
If KeyCode = 13 Then  
Cells(ActiveCell.Row, 3) = TextBox1.Text 'Ввод по Enter  
TextBox1.Text = ""  
TextBox2.SetFocus  
End If  
End Sub

{quote}{login=sva}{date=23.11.2011 05:18}{thema=}{post}Смотрите{/post}{/quote}  
 
Роман респект!!!прям в точку!вот только возникла проблема почему-то не со всех файлов загружает.допустим с этого не переносит данные,хоть убей не могу понять почему?!!!

{quote}{login=sva}{date=23.11.2011 04:05}{thema=}{post}Файлы планируете по одному открывать или списком?{/post}{/quote}  
 
по одному

Упрощу задачу!Нашел макрос на форуме,очень похоже на то,что мне нужно,только он переносит фаил с данными автоматически без указания координат для переноса,если фаил лежит в той же папке,где фаил "база".может кто-нибудь подскажет как его переделать под ту форму,которая мне нужна?  
 
Private Sub CommandButton6_Click()  
Dim BazaWb As Workbook 'текущая книга (общий файл)  
Dim BazaSht As Worksheet 'лист База покупателей в общем файле  
Dim iTempFileName As String 'имя по-очерёдно открываемого файла  
Dim iPath As String 'путь к папке, где лежат все файлы  
Dim iLastRowBaza As Long 'последняя заполненная строка в общем файле в столбце A  
Dim iLastRowTempWb As Long 'последняя заполненная строка в по-очерёдно открываемом файле в столбце A  
Dim iNumFiles As Long 'количество открываемых файлов  
 
   With Application 'операции с приложением/отключаем для повышения скорости работы макроса  
       .ScreenUpdating = False 'обновление экрана  
       .DisplayAlerts = False 'выод системных сообщений  
       .Calculation = xlManual 'автопересчет формул  
         
       'присваиваем значения нашим переменным  
       Set BazaWb = ThisWorkbook  
       Set BazaSht = BazaWb.Sheets("база")  
       iPath = BazaWb.Path & "\"  
       iTempFileName = Dir(iPath & "*.xls")  
       Do While iTempFileName <> "" 'запускае цикл перебора файдов в папке  
           If iTempFileName <> BazaWb.Name Then 'если имя файла не равно общему открываем  
               With .Workbooks.Open _  
                    (Filename:=iPath & iTempFileName, UpdateLinks:=False, ReadOnly:=True)  
                    iNumFiles = iNumFiles + 1  
                    'Рабочая книга не должна быть защищена паролем  
                    With .Worksheets("Лист1") 'с конкретным листом в открытой книге  
                         'номер последней заполенной строки  
                         iLastRowTempWb = .Cells(Rows.Count, 1).End(xlUp).Row  
                         'последняя строка в итоговом файле на листе  
                         iLastRowBaza = BazaSht.Cells(Rows.Count, 4).End(xlUp).Row + 1  
                         'копируем диапазон с открытой книги в заданный лист  
                         .Range(.Cells(200, 1), .Cells(iLastRowTempWb, 27)).Copy Destination:=BazaSht.Cells(iLastRowBaza, 1)  
                    End With  
                    .Close saveChanges:=False  
               End With  
           End If  
           iTempFileName = Dir 'следующий файл  
       Loop  
         
       'включаем что отключили  
       .Calculation = xlAutomatic  
       .DisplayAlerts = True  
       .ScreenUpdating = True  
   End With  
   MsgBox "Информация собрана из " & iNumFiles & " файлов!", vbInformation, "Конец"  
     
End Sub

Неужели никто не поможет?!Очень нужно.

{quote}{login=Юрий М}{date=20.11.2011 12:19}{thema=Re: Добавление данных из одного файла в другой}{post}{quote}{login=eskimo87}{date=20.11.2011 12:08}{thema=Добавление данных из одного файла в другой}{post}Помогите создать форму добавления данных в "базу" из другого файла по заданному критерию {/post}{/quote}<BR>Идём сюда: http://www.excel-vba.ru/ или сюда: http://www.excelvba.ru/ и размещаем заказ. <BR>P.S. Где-то я этот файл уже видел пару раз :-){/post}{/quote}  
 
это же не обязательно и здесь есть добрые и отзывчивые люди.

"накладная" данные должны браться из столбцов помеченных красным цветом

"база" данные должны попадать в столбцы помеченные желтым цветом