Код |
---|
Private Sub Приготовление_Click() ActiveSheet.Range("$B$1:$E$36").AutoFilter Field:=3, Criteria1:="приготовление" Dim DATANEW As String iLRow = ActiveCell(Rows.Count, 5).End(xlUp).Row Cells(iLRow + 1, 5).Select DATANEW = Application.InputBox("Новая дата:") Cells(iLRow + 1, 5).Value = DATANEW Range("B1:E1").Select Selection.AutoFilter UserForm3.Hide UserForm2.Hide UserForm1.Hide End Sub |
Добрый День
после выполнения процедуры необходимо заменить датув последне колонке
Помогите понять как я должен ее обозначить , Уже кучу операторов намешал не могу понять что нужно сделать?