Добрый день.  
Debug.Print Date - Печатается сегодняшнее число (то, что на панели задач Windows)  
т.е задайте переменную которая будет  отвечать за дату в документе .  
и Переменная которой присвоится  значение системной даты.  
 
Option Explicit  
 
Dim b As Date  'системная дата  
 
 
Private Sub UserForm_Click()  
b = Date  
If Range("A1") = b Then  
     MsgBox " Можно работать "  
Else: MsgBox "скачайте новый файл"  
End If  
Debug.Print Date ' это для проверки системной даты  
End Sub  
 
Надеюсь смогла вам подсказать.

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

Отличный документ, очень пригодился.  
на его основе сделала свой график. все довольны.

{quote}{login=nilem}{date=19.10.2011 08:22}{thema=}{post}Например:  
 
Sub rty()  
Dim wsh As Worksheet  
With ActiveSheet    'Sheets("Лист4")  
   For Each wsh In ThisWorkbook.Worksheets  
       If Not wsh Is ActiveSheet Then  
           wsh.Range("A1").Copy .Cells(CLng(wsh.Name), 1)  
       End If  
   Next wsh  
End With  
End Sub{/post}{/quote}  
 
 
Применила ваш код.    
Выражаю особую благодарность.

Добрый день. Перед тем как писать я прочла большинство имеющейся здесь информации по нужному мне вопросу.  
Больше всего подошел ответ http://www.planetaexcel.ru/forum.php?thread_id=17434    
Но у меня не много посложнее задача.  
В книге 3 листа, пронумерованы. На Лист4 должна попадать информация с трех предыдущих.  
Данные в ячейках проставлены. Данные ячейки А1 листа 1, должны быть скопированы на Лист 4 в ячейку А1, данные листа2 ячейки А1, должны быть скопированы на лист4 в ячейку А2. Так по всем листам.  
Сейчас работаю и использую  CurrentRegion но либо неверно, либо совсем неверно.  
 
Прошу вашей консультации.

Всем спасибо. Я разобралась.

{quote}{login=vikttur}{date=28.09.2011 10:15}{thema=}{post}Юля, ну уж поправку по подсказке нужно было вписать, чтобы не смущать других помогающих :)  
.FormulaLocal = "=K1 & "/" &...  
<<Не помогло. Во время отладки эту строчку просто проскакивает.>>  
Возможно, не выполняется условие If{/post}{/quote}  
 
 
Извините. Думала может еще варианты есть.

Сделайте запись макроса. И вам будет проще.

Добрый день. Окажите содействие в поиске ошибки.  
 
 
Public Sub Operat_time()  
   Dim i As Integer  
   Dim n As Integer  
   Dim shtX As Worksheet  
     
   Dim K1 As Integer  
   Dim K2 As Integer  
   Dim K3 As Integer  
     
   Dim Date1 As Integer  
   Dim Number As Integer  
     
     
   K1 = Worksheets("Plan").Range("C3")  
   K2 = Worksheets("Plan").Range("C4")  
   K3 = Worksheets("Plan").Range("C5")  
   Date1 = Worksheets("1").Range("BH6")    
   Number = ActiveWorkbook.ActiveSheet.Range("D3").Value  
 
   For Each shtX In ThisWorkbook.Worksheets   êíèãè  
 
      If IsNumeric(shtX.Name) Then  
           For i = 7 To 26 Step 1  
               n = shtX.Name  
                 
                   If ActiveSheet.Range("C" & i).Value = K1 Then  
                       ActiveSheet.Range("BD" & i).FormulaLocal = K1 & " / " & Date1 & " * " & Number  
                         
                   ElseIf ActiveSheet.Range("C" & i).Value = K2 Then  
                       ActiveSheet.Range("BD" & i).FormulaLocal = K2 & " / " & Date1 & " * " & Number  
                         
                   ElseIf ActiveSheet.Range("C" & i).Value = K3 Then  
                        ActiveSheet.Range("BD" & i).FormulaLocal = K3 & " / " & Date1 & " * " & Number  
                         
                   End If  
           Next i  
     End If  
   Next shtX  
End Sub  
 
Проблема с получением результатов по вложенным  IF, где ищем значение ячейки по формуле.