Else
Message = MsgBox("Дата " & d & " в файле ""Предприят1"" не найдена", vbCritical)
в чем причина, я не знаю, может кто-нибудь подскажет?
- Код: Выделить всё
Sub ПереносИнформПоДате()
Dim d As Date
Dim c As Range
Dim r As Range
Dim m As Integer
For Each r In [A9:A10]
If r.Value <> 0 Then
m = r.Row
Rows(m).Select
Selection.Copy
d = r.Value
Windows( _
"Предприт1.xls") _
.Activate
For Each c In [A9:A388]
If c.Value Like d Then
c.Select
GoTo q
End If
Next
q:
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Else
Message = MsgBox("Дата " & d & " в файле ""Предприят1"" не найдена", vbCritical)
End If
Windows( _
"Предприят2.xls") _
.Activate
Next
End Sub