ignore empty cells

[Olya1985]

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

Private Sub Worksheet_Change(ByVal Target As Range)

For Each n In Worksheets(2).Range("A:A")
If Len(n) < 3 Then MsgBox ("insert number more than 3 symbols") 'Then cl.ClearContents


Next
End Sub

[EducatedFool]

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim n As Range: On Error Resume Next
    Application.EnableEvents = False    ' отключаем обработку событий
    For Each n In Intersect(Worksheets(2).UsedRange, Worksheets(2).[a:a])
        If Len(n) < 3 Then cl.ClearContents
    Next
    Application.EnableEvents = True    ' включаем обратно
End Sub

Вот только непонятен смысл этого макроса...
Вы бы полностью описали, чего пытаетесь добиться, да ещё и с примером файла, - так мы бы подсказали, как избиваться от этого странного кода.

[Olya1985]

смысл макроса в том, что он не дает ввести числа в столбец A которые имеют число цифр меньше 3. а можно ли не учитывать пустые строки с помощью ignore blanks или добавив что то типа
If Application.CountA(Rows()) = 0 Then
End If

[IgorGO]

вы все-таки пошли по пути программирования...
откройте вложение, попробуйте в колонку А внеси число короче 3-х или длиннее 10 символов. а там нет макросов.
в Вашем случае пустые ячейки не при чем, в начале процедуры отключите события, а в конце включите (Application.EnableEvents = False ... Application.EnableEvents = True). потому что в теле процедуры в ячейки вносятся новые данные, а процедура срабатывает на каждое изменение на листе...

[Olya1985]

а почему тогда происходит зацикливание при вводе числа меньше 3.

когда ввожу больше 10 то все нормально работает.

получается что макрос пустые ячейки принимает за число меньшее 3.
и логично было бы исключить blanks.
Private Sub Worksheet_Change(ByVal Target As Range)

For Each n In Worksheets(2).Range("A:A")

If Len(Target) > 10 Then MsgBox ("insert number less than 10 symbols")
If Len(n) < 3 Then MsgBox ("insert number more than 3 symbols")


Next
End Sub

[Olya1985]

Игорь,

в вашем файле excel просто включена функция validation. и там проставлена галочка ignore blanks. меня интересувет как отобразить ignore blanks в моем коде.

[IgorGO]

If Len(n) < 3 and Len(n) > 0 Then MsgBox ("insert number more than 3 symbols")

[Olya1985]

теперь решилась проблема с зацикливанием на числе меньше 3, но вот если вводить кол-во цифр более 10, то вот тогда опять зацикливание

[Hugo121]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub

Application.EnableEvents = False    ' отключаем обработку событий

Select Case Len(Target)
Case 0: Application.EnableEvents = True: Exit Sub
Case Is < 4: MsgBox ("insert number more than 3 symbols"): Application.Undo
Case Is > 9:  MsgBox ("insert number less than 10 symbols"): Application.Undo
End Select


Application.EnableEvents = True    ' включаем обработку событий

End Sub

[kuklp]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    Application.EnableEvents = False    ' отключаем обработку событий
    If Target <> "" And Not IsNumeric(Target) Then MsgBox ("insert number less than 10 symbols and  more than 3 symbols"): Application.Undo: Application.EnableEvents = True: Exit Sub
    If Target <> "" And Len(Target) < 3 Or Len(Target) > 10 Then MsgBox ("insert number less than 10 symbols and  more than 3 symbols"): Application.Undo
    Application.EnableEvents = True    ' Включаем обработку событий
End Sub