Страницы: 1
RSS
VBA фильтры, как обозначить активную ячейку?
 
Код
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

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

Просьба к модераторам, перенести в основную ветку. Новичок по неопытности разместил не туда.
 
Цитата
Сергей Сидорин написал: VBA фильтры...
как обозначить активную ячейку?..
заменить датув последне колонке
Так тема о чем?! Три предложения - и все о разном. Ну, мыслитель...
Ознакомьтесь с правилами форума, предложите новое название. Заменят модераторы
Страницы: 1
Наверх