Ребята здравствуйте! подскажите почему не срабатывает код макроса,(правда код не мой), который при нажатии на кнопку выводить строки где формируются даты по сегодня, на основании двух столбцов, где даты). пример приложил
Ребята здравствуйте! подскажите почему не срабатывает код макроса,(правда код не мой), который при нажатии на кнопку выводить строки где формируются даты по сегодня, на основании двух столбцов, где даты). пример приложилASSEI
Sub Макрос1() With Application .EnableEvents = 0: .ScreenUpdating = 0 With ActiveSheet With .AutoFilter If .FilterMode Then .ShowAllData End With With .UsedRange With Intersect(.Cells, .Offset(2)) .Replace Date, "=zz1", 2, , , , False, False .Rows.Hidden = True End With End With End With With [zz1].Dependents .Rows.Hidden = False .Formula = Date End With .EnableEvents = 1: .ScreenUpdating = 1 End With End Sub
[/vba]
как-то так [vba]
Код
Sub Макрос1() With Application .EnableEvents = 0: .ScreenUpdating = 0 With ActiveSheet With .AutoFilter If .FilterMode Then .ShowAllData End With With .UsedRange With Intersect(.Cells, .Offset(2)) .Replace Date, "=zz1", 2, , , , False, False .Rows.Hidden = True End With End With End With With [zz1].Dependents .Rows.Hidden = False .Formula = Date End With .EnableEvents = 1: .ScreenUpdating = 1 End With End Sub
krosav4ig, я дико извиняюсь за свою тупость, видимо в моем проекте самое главное структура файла и я просчитался выложив в предыдущем сообщении в качестве примера сильно укороченный вариант, вот поэтому и не получается ни чего, ПРОСТИТЕ! смогли бы вы взглянуть на реальную структуру моего файла который я приложил в этом сообщении
krosav4ig, я дико извиняюсь за свою тупость, видимо в моем проекте самое главное структура файла и я просчитался выложив в предыдущем сообщении в качестве примера сильно укороченный вариант, вот поэтому и не получается ни чего, ПРОСТИТЕ! смогли бы вы взглянуть на реальную структуру моего файла который я приложил в этом сообщенииASSEI
что то с заголовками столбцов макрос делает! переименовывает
Этнияоносамо [vba]
Код
Sub Макрос1() With Application .EnableEvents = 0: .ScreenUpdating = 0 With ActiveSheet If .FilterMode Then .ShowAllData With .UsedRange With Intersect(.Columns("N:O"), .Offset(1)) .Replace Date, "=zz1", 2, , , , False, False .Rows.Hidden = True End With End With End With With [zz1].DirectDependents .Rows.Hidden = False .Formula = Date End With .EnableEvents = 1: .ScreenUpdating = 1 End With End Sub
что то с заголовками столбцов макрос делает! переименовывает
Этнияоносамо [vba]
Код
Sub Макрос1() With Application .EnableEvents = 0: .ScreenUpdating = 0 With ActiveSheet If .FilterMode Then .ShowAllData With .UsedRange With Intersect(.Columns("N:O"), .Offset(1)) .Replace Date, "=zz1", 2, , , , False, False .Rows.Hidden = True End With End With End With With [zz1].DirectDependents .Rows.Hidden = False .Formula = Date End With .EnableEvents = 1: .ScreenUpdating = 1 End With End Sub
Hugo, .ReplaceDate + 1, "=zz1", 2, , , , False, False 'эта строка показывает как раз дату которая на завтра но тут же эти даты переименовывает на сегодня
Hugo, .ReplaceDate + 1, "=zz1", 2, , , , False, False 'эта строка показывает как раз дату которая на завтра но тут же эти даты переименовывает на сегодняASSEI
Вообще этот код не мой, я задачу даже и не смотрел, так хотел помочь пока автора нет. Но подозреваю что ничего она не показывает и не находит, и не переименовывает, потому дата и остаётся как есть.
Вообще этот код не мой, я задачу даже и не смотрел, так хотел помочь пока автора нет. Но подозреваю что ничего она не показывает и не находит, и не переименовывает, потому дата и остаётся как есть.Hugo
Hugo, т.е. строка изначально фильтрует даты на "завтра", потому как они отображались на "завтра", а при формировании даты смотрятся уже на "сегодня" и приходится файл не сохранять что бы вернуть даты в первоначальный вид, так как строк много и переделывать трудоемко
Hugo, т.е. строка изначально фильтрует даты на "завтра", потому как они отображались на "завтра", а при формировании даты смотрятся уже на "сегодня" и приходится файл не сохранять что бы вернуть даты в первоначальный вид, так как строк много и переделывать трудоемкоASSEI