можно

Ира, вот небольшой фрагмент из правил "старайтесь сохранить структуру, расположение таблиц, имена листов - аналогично оригиналу." Вы их читали?

{quote}{login=EducatedFool}{date=04.11.2009 07:34}{thema=}{post} Что за дурацкая идея выкладывать код в виде скриншота?{/post}{/quote}Ну вдруг кто не знает как код посмотреть в книге, а тут - вот он :D

Все равно не могу (не знаю) как подправить этот макрос.  
чтобы он работал с уже имеющ.двумя.  
Один отвечает за то чтобы в соседней ячейке проставлялась дата.другой за заполнение бланка данными из этой базы.  
Подскажите как подправить этот третий Чтоб работало.  
Вот все что в "исходном тексте".СПАСИБО  
 
Private Sub CommandButton1_Click()  
 
End Sub  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
  If Target.Cells.Count > 1 Then Exit Sub  
     If Not Intersect(Target, Range("C19:C6000, E19:E6000, J19:J6000, AH19:AH6000")) Is Nothing Then  
        With Target(1, 2)  
           If Target <> "" Then  
              .Value = Now  
           Else  
              .Value = ""  
           End If  
        End With  
  End If  
'''''''''''''''''  
Dim r As Long  
Dim str As String  
If Target.Count > 1 Then Exit Sub  
  If Target.Column = 1 Then  
     str = Target.Value  
     Application.EnableEvents = False  
     r = Cells(Rows.Count, 2).End(xlUp).Row  
     Range("A2:A" & r).ClearContents  
     Target.Value = str  
  End If  
Application.EnableEvents = True  
End Sub  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
If Target.Address <> Range("Q15").Address Then Exit Sub  
Set rng = Range("J:J").Find(Target.Value, LookAt:=xlWhole)  
If rng Is Nothing Then Exit Sub  
Application.Goto rng.Address(ReferenceStyle:=xlR1C1), True  
End Sub

{quote}{login=EducatedFool}{date=05.11.2009 08:32}{thema=}{post}Замените ВЕСЬ свой код вот этим:  
Заменила. Не работает. Ошибки.  
Т.е.не работ ни один из 3-х макр. Один из них (тот что на заполнение)некорректно.    
Как исправить чтоб работало. ?

Кажется заработало:  
Но я исправила вот здесь Dim r As Long на Dim str As Long    
 
Т.Е вот в этой части кода:  
Dim str As Long, s As String  
If Target.Column = 1 Then  
s = Target.Value  
Application.EnableEvents = False  
r = Cells(Rows.Count, 2).End(xlUp).Row  
Range("A2:A" & r).ClearContents  
Target.Value = s  
Application.EnableEvents = True  
End If  
End Sub  
 
Честно не знаю что это означает str и r. Но работает кажется правильно.  
Спасибо