Фильт прячет даты месяц

[valerij]

Почему фильтр прячет строки, начиная с 1577 по 1591,??
Во вложении скрин, как использую, фильтр, Microsoft Excel 2010
Уже три часа, бьюсь, прошу срочной помощи, работа остановилась!!

[Казанский]

Потому что выше 1577 строки в ячейках текст, а ниже - даты (числа).
Чтобы убедиться, выделите ст. D, F5 - выделить - константы - числа. А потом так же - текст.

Чтобы превратить текст в числа, выделите ст. D, Ctrl+H, заменить точку на точку.

[valerij]

Сообщение от Казанский

Чтобы убедиться, выделите ст. D, F5 - выделить - константы - числа. А потом так же - текст..

Да, вижу, только разницы не вижу, точки и там и там

Чтобы превратить текст в числа, выделите ст. D, Ctrl+H, заменить точку на точку.

Если я так делаю, тогда исчезает Текстовый фильтр, а он нужен!

[gluk_fm]

У Вас просто или скрыта часть строк или сжат вид строк - для нормальной работы выделите весь текст и нажмите 2 раза левой кнопкой мышки слева на строках....



А истина ж где-то рядом...

[valerij]

Сообщение от gluk_fm

У Вас просто или скрыта часть строк или сжат вид строк - для нормальной работы выделите весь текст и нажмите 2 раза левой кнопкой мышки слева на строках.... ...

Да ни чего, такого, нет.

А истина ж где-то рядом

Попыталси, обдурить, протянул, строку 1576 до 1586, затем удалил с 1581 до 1586, жму F5 - выделить - константы - числа, все, показывает весь столбец D, как текст, но при выполнении фильтра, опять прячет, все как и было.

ВСЕ, ОК!!
То у меня пользователи, такие, сделал так

Чтобы превратить текст в числа, выделите ст. D, Ctrl+H, заменить точку на точку.

Заорали, что ТАК и лучше не бывает, оставь так!!!
Всем, Спасибо!!!

[valerij]

Чтобы превратить текст в числа, выделите ст. D, Ctrl+H, заменить точку на точку.

Почему после этого кода(рекодером делал), запускаю в самом конце, после клика ОК, на форме.

Sub zxc()
    Columns("d:d").Select
    Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Последние данные все равно в текстовом формате, а значит, прячутся?
Ввод данных, через форму:

Private Sub Data_Change()
    If Right(Data.Text, 1) = "," Then Data.Text = _
        Left(Data.Text, Len(Data.Text) - 1) + "."
End Sub

[RAN.]

А может так?

Private Sub Data_Change()
Data.Value = Replace(Replace(Data.Value, ",", "."), ".", ".")
End Sub

[valerij]

Сообщение от RAN.

А может так?

То же самое, сейчас подготовлю вложение с макросами, все лишнее удалю.
Че за фигня.

[valerij]

Вложил, проверил, там скрины как вводить, фио водит. любое, № машины, любое, дата любая этого месяца, остальные значения, любые, как на скрине.
Не могу разобраться, почему??

[IgorGO]

Не могу разобраться, почему??

потому что все это тебе органически чуждо.

потому что в столбце Д сплошной текст, а не даты

потому что не должно там быть фильтра для текстовых значений (это следствие предыдущего потому что)

потому что вы обсуждаете, RAN пишет:

Private Sub Data_Change()
Data.Value = Replace(Replace(Data.Value, ",", "."), ".", ".")
End Sub

что то же довольно сомнительно по части внешнего реплейс (смысл менять точки на точки???)
ты не возражаешь (т.е. соглашаешься), а в макросе все равно написано:

Private Sub Data_Change()
If Right(Data.Text, 1) = "," Then Data.Text = Left(Data.Text, Len(Data.Text) - 1) + "."
End Sub

этот кусок кода вообще что должен был сделать с данными???? хорошо что он никогда не работал, потому что как бы не косячили пользователи при наборе даты, вряд кто здравомыслящий заканчивает набор даты запятой.

потому что надо либо навесить проверку и не дать пользователю ввести неправильные данные, либо проверять их прежде чем переносить из формы на лист

и наконец потому что Cells(i, 4).Value = Data.Value переносит текст из ТексБокса Data в ячейку Cells(i, 4)
а надо перенести дату:
Cells(i, 4).Value = cdate(Data.Value)