как в тексте TextBox1  формы заменить точку на запятую  
 
в TextBox1 в результате вычислений вставляется значение типа 555.08  
 
те если в TextBox1 в результате вычислений вставляется значение 555.08  оно было заменено на 555,08  
 
рекодером записал на листе в ячейке  
 
Sub Макрос1()  
 
   Range("D9").Select  
   ActiveCell.Replace What:=".", Replacement:=",", LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False  
   Cells.Find(What:=".", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _  
       xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _  
       , SearchFormat:=False).Activate  
End Sub  
 
как применить это к TextBox1 или есть другое решение ?

есть форма в ней ComboBox1 который ссылается    
на лиапазон ячеек на соседнем листе    
в свойствах ComboBox1   RowSource =Лист2!A1:A10  
 
При этом при вызове формы в ComboBox нет записи  
только нажав треугольник в ComboBox видишь и выбираешь запись  
 
что сделать надо чтобы при вызове формы в ComboBox сразу была 1-я запись    
А1 из списка Лист2!A1:A10 (был непустой)?

макрос делает условное форматирование по образцу на 2 листе  
но глючит (не копирует формат)по причинам если  
образец  
1)два слова с пробелом  
2)первые слова в двух выражениях совпадают  
 
если цифры или одно слово то все нормально

хочу сделать выпадающий список по Приемам http://www.planetaexcel.ru/tip.php?aid=34  
только выпадающий список сделать в ComboBox1 которая находится в UserForm1  
есть лист1 (на нем вызываю форму)  и лист2 на котором список  
диапазону списка на листе2 присваиваю имя "Образ"  
в  ComboBox1 в свойствах RowSource пытаюсь ставить =Образ  
выдает ошибку - почему ?

записать в активную ячейку текст по условию  
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then  
Cancel = True  
If ActiveCell.Value = "" Then  
ActiveCell.Text = "ford"  
End If  
End If  
End Sub  
 
на строке ActiveCell.Text = "ford" дает ошибку  
как поправить ?

помогите сделать макрос который вводит значения из формы в таблицу  
таблица форма есть  условия занесения в таблицу тоже  в файле примера  
 
в VBA я "чайник" так что не обессудьте

извиняюсь    
размер файла просмотрел забанили тему поэтому открыл новую  
 
есть макрос создания новых листов по условию  
чтоб макрос не давал создавать листы в хаотичном порядке те  
создал лист 1 после этого можешь только лист 2 создать - а лист 5, 7,88 нельзя (вылетает табл -создай 2 лист)"  
 
подробности в файле

Макрос создания листов по условию плохо работает  
В файле написал в чем проблема

как прописать дату и время в TEXTBOX  чтоб совпадало с текущим системным временем в динамике(как в макросе примера) ?  
и при этом указать просто текущий открытый лист (листы будут копироваться)