Нужно ограничить ввод значений в текст бох(который находиться на листе) что бы пользователь мог ввести только числовое значение разделенное точкой(именно точкой запятая не подходит) например:  145.55 или 145 или 145.786 (как “проверка данных” в ексель -> действительные)  
Что бы при этом можно было вставлять/копировать значения    
проверку на PressKey это очень сложно реализовать.  
Я уверен что есть вариант проще. Поделитесь пожалуйста)

Приветствую.  
Сотрудник заполняет таблицу строгой отчетности.  
В которой заносит количество товара находящегося на "борту" у торгового.  
Я как помог, цветовым оформлением что бы сотрудник не путал стоки. Но это все ровно не помогает. Конечно можно найти более внимательного сотрудника, но может поможете реализовать альтернативное решение:  
Макрос на SelectionChange:  
При выделении ячейки например H40 (событие SelectionChange) нижняя граница строки 40 (в приделах таблицы) становилась жирная, далее если переходим на L40 ничего не меняться, а при переходе например на H42 нижняя граница стоки 40 становиться опять нормальная а 42 жирная.  
Не могу сообразить как это грамотно написать.  
Прилагаю файл пример таблицы.

Во вложении фаил.  
ComboBox 1,2,3 работают нормально  
 
ComboBox 4 - не корректно -вводом с клавиатуры нельзя выбрать элемент (тоесть например вводишь 1 он должен выбрать строку которая начинается с 1)  
 
Я так понимаю это связано с тем что функция:  
ComboBox4.List = Application.WorksheetFunction.Transpose(Range("B21:E21"))  
вписывает в ComboBox4 значения в цифровом формате а нужно в текстовом (как могу объясняю)  
 
То есть если в ComboBox транслировать не диапазон с числами а например диапазон со словами все будет ок.  
 
Значит нужно как то поменять Application.WorksheetFunction.Transpose(Range("B21:E21"))  
так что бы она возвращала не числа..  
 
Как это сделать?

Здравствуйте.  
На листе есть 2 заполненных столбца A1:A100 и B1:B100 (цифрами)  
как макросом (без цикла) в столбец B1:B100 записать суммы A1:A100 и B1:B100,  
а A1:A100 "очистить"  
 
пример:  
 
до  
1 1  
2 1  
3 2  
после  
0 2  
0 3  
0 5

в книге на листе есть ComboBox_Art и TextBox_pcs  
В ComboBox_Art пользователь выбирает/вводит артикул  
В TextBox_pcs вводи значение товара  
 
 
Переход с поля на поле осуществляется по Enter  
 
после того как пользователь выбрал товар и количество  
по интеру обробатываеться процедура  
 
Private Sub TextBox_pcs_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)  
 
If KeyCode = 13 Then  
   If Range("A19").Value > 0 And TextBox_pcs.Text > 0 Then  
       Cells(Range("A18").Value, 7).Value = Cells(Range("A18").Value, 7).Value + TextBox_pcs.Text 'записываем в базу.  
   CheckBox_hide_Click  
 
   End If  
   ComboBox_Art.Activate  
End If  
 
 
End Sub  
 
Записывается значение в базу и опять активируется ComboBox_Art    
Нужно что бы текст в ComboBox_Art выделился что бы если пользователь начнет вводить новый артикул то не нужно было удалять старый. (выделеный текст при вводе нового стираться)  
 
это все нужно что бы оператор смог быстро очень быстро набивать позиции.

Есть  
CheckBox1 CheckBox2 и т.д.  
Как работать в группой компонентов в цикле  
 
For i = 1 To 10  
CheckBox(i).Value = True  
Next i  
 
Конечно же не работает)

Нужно напечатать несколько столбцов таблицы напимер 1,3,5 при этом 2,4 не нужно)  
Можно канибудь сделать так что бы их можно было распечатать одной таблицей, не пользуясь срыванием не нужных столбцов.  
Побывал области печати тогда вылезает каждый столбец на отдельном листе.  
 
P/S Скрывать столбцы не могу потому что формы (кнопки, списки) по листу накиданы не красиво получаться.  
 
Конечно все бы в коде)

Нужно присвоить значение одного диапазона другому диапазону.  
Адресацию пито A1:A200 для указания диапазона использовать не могу т.к. он переться из цикла  
приходиться использовать Cells  
 
Worksheets("111.").(Cells(num, 22), Cells(num, 200)) = Worksheets("222").Range(Cells(num, 22), Cells(num, 200))  
 
поправьте пожалуйста синтаксис так ошибку выдает.

Нужно что бы при нашатии "Enter" на ComboBox_Art(ввод артикула)  курсор перескакивал на TextBox_pcs (ввода количества товара) и в TextBox_pcs был доспупен ввод с клавиатуры.  
 
как переловить "Enter" знаю а как переключиться на другой элемент нет(

Нужно что бы если в ячейках B11 или B15 (в них формулы) не #Н/Д то выполнялась фунция.  
 
If Range("B11").Formula = "#Н/Д" Or Range("B15").Formula = "#Н/Д" Then  
MsgBox "Не выбран собрудник / контагент !!!"  
Else  
Log_Nakl  
ActiveWorkbook.Save  
End If  
 
так не работает. (все время выполняеться вункция)  
 
Есть я не знаю как следать правельно проверку на "#Н/Д"

Во всех ячейках цифровые значения  
Нужно что бы в ячейке Cells(9, 29) была сумма Cells(9, 29) и Cells(9, 27)  
 
Если делать так то просто складываться текст  
Worksheets("1111").Cells(9, 29).Formula = Worksheets("1111").Cells(9, 29).Formula + Worksheets("1111").Cells(9, 27).Formula  
 
А если использовать volume то ошибку выдает

Записываю макросом: добавить разрыв страницы  
  Rows("72:72").Select  
   ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell  
 
А как это перевести в одну строчку  
Типо:  
Rows("72:72") Before:=ActiveCell  
 
Часто с этим сталкиваюсь не пойму синтаксиса.  
Спасибо за терпение)

Есть SpinButton изменяет(+1/-1) значение в ячейе    
как сделать так что бы при длительном нажатии измениения шли быстрее.  
 
Я делел так.  
 
Public i  
 
Private Sub SpinButton_d_SpinDown()  
Range("S4") = CDate(Range("S4") - i)  
i = i + 1  
End Sub  
 
Private Sub SpinButton_d_SpinUp()  
Range("S4") = CDate(Range("S4") + i)  
i = i + 1  
End Sub  
 
Private Sub SpinButton_d_Change()  
i = 1  
End Sub  
 
только тогда получаеться пока не сделаешь SpinButton_d_Change, i ,очень бысть расти и можно "перестараться"

Тоесь нужно что бы на листе была переменная i корорая задаеться на весь лись.  
Все для всех Private Sub значение будет то что задано.

Есть ячейки имеют одинаковый формат. (правдо выраввивание у них почемуто разное не смотря на это....)  
Так вот А1 и А2 нормально считаються в формулах с суловиями а В1 и С1 не считаються.  
В чем у них разница???  
Функция "формат по образчу" не помогает...  
 
PS проблема заключаться в том что в документе работают макросы и они как раз записываю "не правельный" формат ячеек...

Переменной нужно присвоить номер строки выделенной ячейки.  
Например    
если выделена А2 то 2  
если В7 то 7

Workbooks("111.xlsm").Worksheets("111").Range("A6:O200").Copy Workbooks(222.xlsm).Sheets("222").Range("A6")  
 
Так фунция копирует формулы из ячеек а нужно только значения.

как скопировать рисунок с одной книги на другую макросом.  
Макрокодер записывает  
   Windows("111.xlsm").Activate  
   ActiveSheet.Shapes.Range(Array("Picture 1")).Select  
   Selection.Copy  
   Windows("22.03.2011.xls").Activate  
   ActiveSheet.Paste  
Как можно не активировать по очереди окна и т.д, то есть как записать одной строкой.

при открытии окна сохранения файла    
'Application.GetSaveAsFilename(fileFilter:="Excel 2003 (*.xls), *.xls")  
нужно что бы открывался "Мой компьтер" и пользователи могли выбрать диск для сохранения.  
 
Это можно сделать ChDir?  
Или может как то по другому?

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

Доброго времени суток.  
Не очень удобно выбирать значения из ComboBox когда их много.  
Хотелось что бы при разворацивании списка курсор всегда был на начале (на первом элементе)  
 
PS  
Может есть еще какие лучше решения?

Есть таблица в которой перечеслины все наклодные(строки)  
Автофильтром можно выбрать нужные строки  
Нужно следать что бы макрос обробатывал все выбраные фильтром строки, а остальные не трогал.  
 
Проблема состоит в том что бы не трогать строки которые не попали в авто фильтр.  
 
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>