Всем привет! Помогите объединить два макроса, ка ни пытался, не получается
[vba]Код
Sub Программа1 ()
Dim i As Variant
Application.Calculation = xlCalculationManual
For Each i In Range("AE3:AE10")
If IsDate(i) Then '+++
i.Offset(0, 1).Value = i
Else '+++
i.Offset(0, 1).Value = "ïðîïàë" '+++
End If '+++
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
[/vba]
[vba]Код
Sub Программа2()
Dim i As Variant
Application.Calculation = xlCalculationManual
For Each i In Range("AF3:AF10")
If IsDate(i) Then '+++
i.Offset(0, 1).Value = i + 30
Else '+++
i.Offset(0, 1).Value = "ïðîïàë" '+++
End If '+++
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
[/vba]