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

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

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

Здравствуйте уважаемые форумчане. Есть 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

Здравствуйте уважаемые знатоки! Помогите создать форму добавления данных в "базу" из другого файла по заданному критерию (как на скриншоте). Допустим есть база данных и накладные которые могут быть разными по своей структуре, перенос должен осуществляться по заранее заданным параметрам, допустим в текстбоксе выбирается первая и конечная строка диапазона накладной,которая будет переноситься, в других текстбоксах столбцы, данные должны добавляться с последней строки "базы".

Подскажите пожалуйста каким образом можно автоматически сопоставлять строки с одинаковыми кодами в таблице, при том что бы данные столбцов E и F заменялись на данные той строки у которой отсутствует значение в столбце H, т.е. при сопоставление должны изменяться только  значения двух столбцов E и F

Добрый день уважаемые форумчане. Помогите пожалуйста доделать форму. Задача такая нужно что бы в label16 автоматически отображалось значение TextBox1 - Label13 = label16(т.е. "полученно" - "к оплате" = "сдача")

Доброе утро уважаемые форумчане! Помогите доделать форму,нужно что бы в листбоксе помеченном красным цветом автоматически отображалась сумма выбранных товаров.

Добрый день уважаемые форумчане! Подскажите пожалуйста как сделать что бы в листбокс автоматически попадали только те строки, в которых колонка "C" заполнена и что бы туда не попадали колонки F G I.

Помогите решить задачу. Есть листбокс помеченный зеленым цветом,в него должны попадать строки из таблицы если в столбце C есть значение и текстбокс помеченный красным цветом,где будут суммироваться выбранные товары.

Нужно что бы эта функция:  
Private Sub CommandButton6_Click()  
menu1.Hide  
Call Ïðåäâ_Ïðîñìîòð_Òîâàð_Íàêë_1  
Me.Hide  
End Sub  
вызывалась по нажатию клавиши F12

ЕСТЬ КОД:  
 
'********************************** ДОГОВОР *************************************  
 
With Sheets("Договор")  
 
.[a6] = Sheets("1").Cells(p, "b") 'Покупатель
.[e43] = Sheets("1").Cells(p, "b") 'Покупатель
.[f46] = Sheets("1").Cells(p, "c") 'Адрес
.[f47] = Sheets("1").Cells(p, "d") 'Телефон
 
.[d23] = Sheets("1").Cells(кон_Диап - 1, "g") 'Общая стоимость
.[e33] = Sheets("1").Cells(p, "h") 'Первый платеж
 
'Накладная  
Sheets("1").Range(Cells(r, "d"), Cells(кон_Диап - 2, "d")).Copy .[a25] 'Код
Sheets("1").Range(Cells(r, "c"), Cells(кон_Диап - 2, "c")).Copy .[d25] 'Кол
Sheets("1").Range(Cells(r, "e"), Cells(кон_Диап - 2, "e")).Copy .[e25] 'Цена
 
'Наименования Copy  
Dim li As Long, le As Long  
le = 25  
For li = r To кон_Диап - 2  
.Cells(le, "b").Value = Cells(li, 2).Value  
le = le + 1  
Next li  
     
.PrintOut Copies:=1  
End With  
 
 
'--------------------------------------  
2:  
Unload wite  
 
ScreenOn  
End Sub  
 
НАДО ЧТО БЫ ВОТ ЭТИ ЯЧЕЙКИ АВТОМАТИЧЕСКИ ОТЧИЩАЛИСЬ:  
 
.[a6] = Sheets("1").Cells(p, "b") 'Покупатель
.[e43] = Sheets("1").Cells(p, "b") 'Покупатель
.[f46] = Sheets("1").Cells(p, "c") 'Адрес
.[f47] = Sheets("1").Cells(p, "d") 'Телефон
 
.[d23] = Sheets("1").Cells(кон_Диап - 1, "g") 'Общая стоимость
.[e33] = Sheets("1").Cells(p, "h") 'Первый платеж
 
'Накладная  
Sheets("1").Range(Cells(r, "d"), Cells(кон_Диап - 2, "d")).Copy .[a25] 'Код
Sheets("1").Range(Cells(r, "c"), Cells(кон_Диап - 2, "c")).Copy .[d25] 'Кол
Sheets("1").Range(Cells(r, "e"), Cells(кон_Диап - 2, "e")).Copy .[e25] 'Цена
 
'Наименования Copy  
Dim li As Long, le As Long  
le = 25  
For li = r To кон_Диап - 2  
.Cells(le, "b").Value = Cells(li, 2).Value  
le = le + 1  
Next li

Помогите пожалуйста доработать форму рассрочка, добавить в форму печати, checkbox - "договор".Есть лист "договор" в который будут подставляться значения из лист "1",поля куда должны подставляться значения я отметил красным цветом.Кто поможет решить задачу,буду премного благодарен (200р. на счет)  
 
http://ifolder.ru/26746968

Как автоматически выделять текст в первом (верхнем) листбоксе при срабатывание события enter во втором (желтом). Вручную удалять текст занимает много времени при продаже товара,тем более если подбирать товар по штрих-коду.Идеи,предложения,жалобы?

Имеется форма,в ней 3 ячейки. Нужно что бы выделялся текст в средней ячейке при переходе на нее с верхней или нижней,либо сразу после ввода значения в среднюю.  
 
Макрос средней ячейки:  
 
Private Sub TxtFind_Change()  
'очистка списка найденых элементов  
    ListBox1.Clear  
'при отсутствии символов для поиска - выход  
    If Len(TxtFind.Value) = 0 Then Exit Sub  
'вычисляем номер последней строки, до которой осуществляем поиск  
    strokaLast = Cells(Rows.Count, stolb).End(xlUp).Row  
'задаем индекс первого элемента списка ListBox1  
    j = 0  
'переводим искомый текст в вверхний регистр  
    textS = UCase(TxtFind.Value)  
 
 For i = strokaFirst To strokaLast  
  'для одного символа  
     If Len(TxtFind.Value) = 1 Then  
        If UCase(Left(Cells(i, stolb), 1)) = textS Then  
          'при совпадении добавляем элемент в список  
           ListBox1.AddItem i  
           ListBox1.List(j, 1) = Cells(i, stolb)  
          'задаем индекс для следующего элемента списка  
           j = j + 1  
        End If  
  'для двух и более символов  
     Else  
        If InStr(1, UCase(Cells(i, stolb)), textS) > 0 Then  
          'при совпадении добавляем элемент в список  
           ListBox1.AddItem i  
           ListBox1.List(j, 1) = Cells(i, stolb)  
          'задаем индекс для следующего элемента списка  
           j = j + 1  
        End If  
     End If  
 Next  
   
'если найден только один эл-т, то переходим к нему  
     If j = 1 Then Cells(ListBox1.List(0, 0), stolbV).Select  
End Sub