Привет!
Друзья, посмотрите код, у меня работает только 1 условие:
Код |
---|
Sub clearRT()
If ActiveWorkbook.Name <> "Отчет по Центру А*" Then
Application.ActiveSheet.range("F6:G26").ClearContents
Application.ActiveSheet.range("L6:L26").ClearContents
ElseIf ActiveWorkbook.Name <> "Отчет по Центру Б*" Then
Application.ActiveSheet.range("G6:H23").ClearContents
Application.ActiveSheet.range("M6:M23").ClearContents
ElseIf ActiveWorkbook.Name <> "Отчет по Центру В*" Then
Application.ActiveSheet.range("F6:G10").ClearContents
Application.ActiveSheet.range("L6:L10").ClearContents
End if
end
|
Здесь точно такое же:
Код |
---|
If ActiveWorkbook.Name <> "Отчет по Центру А*" Then
Application.ActiveSheet.range("B2").Value = "Центр А" & StrConv(Format(Now - 1, "dd.mm.yy dddd"), vbProperCase)
ElseIf ActiveWorkbook.Name <> "Отчет по Центру Б*" Then
Application.ActiveSheet.range("B2").Value = "Центр Б " & StrConv(Format(Now - 1, "dd.mm.yy dddd"), vbProperCase)
ElseIf ActiveWorkbook.Name <> "Отчет по Центру В*" Then
Application.ActiveSheet.range("B2").Value = "Центр В " & StrConv(Format(Now - 1, "dd.mm.yy dddd"), vbProperCase)
End If
END
|
Работает только условие по центру А при любом названии книги, как исправить?