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

Ребята чуствую себя жутним нубом.  
Где код в примере КЛ-а????  
Все что увидел  
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
   If Intersect(Target, [B30:V149]) Is Nothing Then Exit Sub
   Target.Calculate  
End Sub  
 
Поскольку не вижу кода не знаю как перенести на свой фаил(

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

Сори)  
Попробуйте как это выгладит.  
Сравните 3 и 4  
С клавы значения поводите в 4-ом не работают.

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

Все понял перед Evaluate нужно лист указать.  
Только тогда получаться что можно только на одном листе операции делать...

Ребят всю голову сломал когда вызываю эту функцию с другого листа    
Он присваивает значения на указанном листе ("На борту") но берет из не с указанного ("На борту") а с текущего хотя я ему вроде везде прописал лист ("На борту")  
 
Sheets("На борту").Range(Sheets("На борту").Cells(22, 8), Sheets("На борту").Cells(100, 8)).Value =    
Evaluate(Sheets("На борту").Range(Sheets("На борту").Cells(22, 8), Sheets("На борту").Cells(100, 8)).Address    
& "+" &    
Sheets("На борту").Range(Sheets("На борту").Cells(22, 7), Sheets("На борту").Cells(100, 7)).Address)  
 
PS это пример, так тут конечно переменные вместо значений

Спасибо. это было 10 лет назад как хобии.  
Спасибо еще раз! Ваш форум самый лучший и тут самые хорошие специалисты!

Пока так раскорячится:  
 
Function pogriz(Fist, Last)  
 
Range(Last).Value = Evaluate(Fist & "+" & Last)  
Range(Fist).Value = ""  
 
End Function  
 
PS Clean убивает форматирование  
 
Еще раз Спасибо, если у кого будет минутка покажите с Cells-ами

типо  
Range(Cells(1, 1), Cells(200, 1)).Value =

Спасибо? хорошо работает.  
А как это будут выглядеть если вместо B1:B100 использовать цифровые координаты?  
Для универсальности что бы было вызывать его как функцию с параметрами (в качестве параметров номера столбцов и и высота таблицы).

это приход товара так идет.

Здравствуйте.  
На листе есть 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 выделился что бы если пользователь начнет вводить новый артикул то не нужно было удалять старый. (выделеный текст при вводе нового стираться)  
 
это все нужно что бы оператор смог быстро очень быстро набивать позиции.

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

Более маленький фаил

Про 2007/2010    
нужно что бы заработала кнопка "СНЯТЬ ВСЕ ГАЛКИ С ЧЕК БОКСОВ"  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Файл очень большой это один лист.  
Сделал через SelectionChange (G19:U19)  только я думаю CheckBox удобнее для пользователя будет.

Так что так нельзя работать с элементами на листе, можно только на форме?

SelectionChange очень хорошее предложение.  
Все же можете написать как в цикле элементы налисте обробатывать  
 
Как на форме вы уже показывали ... UserForm1.Controls("TextBox" & li).Value = li

Извените за флуд. Диана а как можно с вами связаться чуть чуть посоветоваться.  
Моя почта vishnev.alexei@inbox.ru

Спасибо за замечание.    
буду более подробен    
Элементы ActiveX    
Расположены просто на листе книги по столбцам с 1 го по 15.  
 
PS Диана все как вашей ссылки только на листе.

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

Я в сожалению не знаю как правильно сформулировать этот вопрос в справке(  
Задача следующая есть CheckBox-ы (15 шт.) по столбцам.  
 
Макрос должен обработать только те столбцы где CheckBox отмечен    
 
for i=1 to 15  
if CheckBox.Value = True then  
....  
next i  
 
 
Конечно можно вместо CheckBox просто указывать в ячейках по столбцам "*"    
 
for i=1 to 15  
if Cells(1, i) = "*" then  
....  
next i  
 
Но это не солидно и не удобно.    
Помню в Delhi я так делал лет 10 назад (конечно же все забыл).  
Спасибо за понимание.

Есть  
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))  
 
поправьте пожалуйста синтаксис так ошибку выдает.

в режиме контркутора правой кнопкой кликнул по элементу, вылезло контекстное меню.  Tab Order нету там. Может не туда кликаю?

TextBox_pcs.Activate