Добрый день, подскажите, пожалуйста,   как  создать ехе- файл в VBA, чтобы приложение запускалось ярлычком.    
Заранее спасибо

Добрый день, подскажите , пожалуйста, можно ли как то реализовать следующее:  
есть определенное кол-во номеров, из них часть занята, как определить свободные номера.  
 
 
Заранее спасибо

Добрый день, подскажите пожалуйста,  проблема в том, что  в столбце данные введены и большими и малыми буквами, в макросе прописано, что, при повторном вводе значения, выдается сообщение, что такое значение уже есть, но если написать первый раз малыми буквами, а второй раз написать большими  буквами, то сообщение не выдается.Можно с этим что-нибудь придумать?(данные вводятся через форму, textBox)  
Заранее спасибо

Добрый день, подскажите, пожалуйста, как реализовать запрет на ввод маленьких букв в TextBox на форме.  
Заранее спасибо

Добрый день, подскажите, пожалуйста, можно ли сделать, чтобы при нажатии на кнопку, фильтровались строки, у которых в  столбце В пустое значение, и можно было бы редактировать только значение в столбце В. Как сделать, чтобы фильтровало, я знаю, подскажите как запретить редактирование ячеек , кроме ячейки в столбце В.    
Заранее спасибо

Добрый день, подскажите, пожалуйста, как сделать, чтобы при вводе в TextBox более 3 символов, выдавалось сообщение об ошибке  
Заранее спасибо

Добрый день, подскажите, пожалуйста где ошибка:  
 
На форме 10 CheckBox'ов , при выборе каждого из них выполняется определенное условие,проблема, в том, что если не выбрать первый CheckBox для выполнения, то следующие никакие не работают(при их выборе , не выполняется условия).  
   
Пример:  
 
Private Sub CommandButton2_Click()  
If Not IsDate(TextBox1) Then MsgBox "Не дата", vbCritical, "Ошибка": Exit Sub  
If Not IsDate(TextBox2) Then MsgBox "Не дата", vbCritical, "Ошибка": Exit Sub  
   If CheckBox1 = True Then  
   Dim lLastRow As Long, li As Long, lCountSv As Long, lCountSp As Long, lCountT As Long, lCountTP As Long  
   With Sheets("Лист1")  
       lLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row  
         
       For li = 2 To lLastRow  
       
           If .Cells(li, 1) <> "" Then  
               
               If CDate(.Cells(li, 1)) >= CDate(TextBox1) And CDate(.Cells(li, 1)) <= CDate(TextBox2) And .Cells(li, 4) = "AAA" And .Cells(li, 6) = "BBB" Then _  
                  lCountSv = lCountSv + 1  
               If CDate(.Cells(li, 1)) >= CDate(TextBox1) And CDate(.Cells(li, 1)) <= CDate(TextBox2) And .Cells(li, 4) = "AAA" And .Cells(li, 6) = "CCC" Then _  
                       
                 lCountT = lCountT + 1  
               End If  
           End If  
       Next li  
   End With  
 
   
 
   
If CheckBox2 = True Then    
   Dim lLastRow2 As Long, ki As Long, lCountSv2 As Long, lCountSp2 As Long, lCountT2 As Long, lCountTp2 As Long  
   With Sheets("Âûäà÷à")  
       lLastRow2 = .Cells(.Rows.Count, 1).End(xlUp).Row  
         
       For ki = 2 To lLastRow  
       
           If .Cells(ki, 1) <> "" Then  
               
               If CDate(.Cells(ki, 1)) >= CDate(TextBox1) And CDate(.Cells(ki, 1)) <= CDate(TextBox2) And .Cells(ki, 4) = "111" And .Cells(ki, 6) = "222" Then _  
                  lCountSv2 = lCountSv2 + 1  
               If CDate(.Cells(ki, 1)) >= CDate(TextBox1) And CDate(.Cells(ki, 1)) <= CDate(TextBox2) And .Cells(ki, 4) = "111" And .Cells(ki, 6) = "333" Then _  
                       
                 lCountT2 = lCountT2 + 1  
               End If  
           End If  
       Next ki  
   End With  
 
и т.д.

Добрый день, подскажите, пожалуйста,как реализовать следующее:    
есть табличные данные, изменяются каждый день, на форме 2 поля для ввода даты и выбор наименования, подскажите как сделать, чтобы при нажатии кнопки подтягивались  и подсчитывались данные с разных листов. на примере наверное понятнее  
   
Заранее спасибо

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

Добрый день, подскажите, пожалуйста, как сделать, чтобы ячейки через определенный промежуток времени выделялись цветом, например есть запись с датой 01,01,2009, надо , чтобы  когда текущая дата будет 10,01,2009 , строка содержащая дату 01,01,2009 выделилась цветом.  
Заранее спасибо

Добрый день,    
 на форме две OptionButton, необходимо, чтобы при выборе первой,данные заносились, исключая повторы, а при выборе второй, при повторе номера,  вся строка , содержащая данный номер переносилась на лист 2, а из исходного листа удалялась полностью(вместе с оригиналом). С первой кнопкой разобралась, а со второй никак, помогите, пожалуйста.  
Фрагмент:  
If OptionButton1 Then  
Dim cell As Range: Set cell = [a65000].End(xlUp).Offset(1)
ActiveSheet.Unprotect Ïàðîëü  
Dim x As Long  
Dim n As String  
n = Me.NXT  
x = WorksheetFunction.CountIf(Range("A:A"), n)  
 If x > 0 Then  
  MsgBox "Такой номер уже есть", 48, "Ошибка"  
  Exit Sub  
  Else  
   cell = Me.NXT  
   cell = Format(cell, "0")  
   End If  
cell = cell.Row - 1: cell.Next = Me.KOD.Value:......  
 
End If    
 
If OptionButton2 Then  
Dim y As Long  
Dim t As String  
t = Me.NXT  
y = WorksheetFunction.CountIf(Range("A:A"), t)  
 
If y > 0 Then  
Application.ScreenUpdating = False  
Rows("& : &").Select- на этом месте застряла

Добрый вечер, подскажите , пожалуйста,    
есть  столбец с номерами, как сделать, чтобы при вводе повторного номера, этот номер переносился в другой столбец, а из данного удалялся.  
Заранее спасибо