Нужно ехе, при запуске которого, открывалась бы форма для ввода данных.

А в VB это очень сложно сделать?

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

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

Спасибо, разобралась

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

СУПЕР, спасибо

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

Разобралась , всем спасибо

а как второй столбец остался незащищенным?, че то у меня не получается

макрос при защите не работает :((

неужели никто ниче не может предложить?

нет , Вы просто защитили лист целиком и все,

Забыла прикрепить :))

Пример

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

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

Спасибо

TextBox на форме

Попробуйте так (кажется здесь на форуме видела):  
 
Sub CombineWorkbooks()  
 
     
   Dim FilesToOpen  
   Dim x As Integer  
 
   On Error GoTo ErrHandler  
   Application.ScreenUpdating = False  
     
     
 
   FilesToOpen = Application.GetOpenFilename _  
     (FileFilter:="Microsoft Excel Files (*.xls), *.xls", _  
     MultiSelect:=True, Title:="Files to Merge")  
 
   If TypeName(FilesToOpen) = "Boolean" Then  
       MsgBox "Файл не выбран!"  
       GoTo ExitHandler  
   End If  
 
     
   x = 1  
   While x <= UBound(FilesToOpen)  
       Workbooks.Open Filename:=FilesToOpen(x)  
       Sheets().Move After:=ThisWorkbook.Sheets _  
         (ThisWorkbook.Sheets.Count)  
       x = x + 1  
   Wend  
 
ExitHandler:  
   Application.ScreenUpdating = True  
   Exit Sub  
 
ErrHandler:  
   MsgBox Err.Description  
   Resume ExitHandler  
     
End Sub

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

Thanks you very much

The_Prist, в  Вашем приложеном файле мой исходник, скиньте, пожалуйста еще раз доработанный Вами файл.

Спасибо огромное

может я не так поняла, но мне надо , чтобы остальные checkbox'ы работали вне зависимости от первого

пример может не совсем корректно считает, но если не выбрать checkbox1, а выбрать например, сразу checkbox3, то он не обработается

не обрабатываются условия, если не выбран CheckBox1

Добрый день, подскажите, пожалуйста где ошибка:  
 
На форме 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  
 
и т.д.

{quote}{login=The_Prist}{date=05.08.2009 01:07}{thema=}{post}Ячейка .Cells(li, 1) либо пустая, либо значение в ней не является датой.{/post}{/quote}  
 
 
Все получилось,работает.Спасибо огромное

The_Prist    
 
в строке    
If CDate(.Cells(li, 1)) = CDate(TextBox1) And .Cells(li, 4) = NPO Then _  
 
выдает ошибку "13", Type mismatch  
из-за чего это может быть?  
 
Спасибо