Я хочу написать процедуру VBA, которая будет "ежедневной"
- создать новый лист
- присвойте этому новому листу имя в форме ДД.ММ.ГГ (с начальными нулями) на основе текущей даты (например,
25.07.18
) - скопируйте значения из столбцов A и B моего листа
DataInput
в новый лист.
Что я подразумеваю под "ежедневно"? Просто, если текущее время = или> указанное время суток, то создайте лист, иначе просто проигнорируйте.
Я не думаю, что это трудно управлять. Я пытался объединить некоторые формулы, чтобы соединить их, но они все время дают мне ошибку.
Я думал о чем-то
Option Explicit
Sub ReportSheet_Today()
Dim szTodayDate As String
szTodayDate = Format(Date, "dd.mm.yy")
On Error GoTo MakeSheet
Sheets(szTodayDate).Activate
If Time < TimeValue("9:00:00") Then
'MakeSheet:
Sheets.Add , Worksheets(Worksheets.Count)
ActiveSheet.Name = szTodayDate
Sheets("DataInput").Select
Range("A:A").Copy
Sheets("szTodayDate").Select
Range("A:A").Select
ActiveSheet.Paste
End IF
End Sub