ЕСЛИ ПУСТО, ТО... [VBA циклы]

[Евгений Таб]

Доброго дня!

Есть код:

PHP код:

For Each c In Range("A2", Cells(Rows.Count, "A").End(xlUp))
  If c.Offset(, 28) <> 0 Then
  c.NoteText c.Offset(, 28)
  c.Comment.Shape.TextFrame.AutoSize = True
     End If
     
     Next 


Он добавляет комментарий, согласно ячейкам справа, даже если ячейка пуста. Какой код вставить чтобы если ячейка равна "", точнее пуста, коммент не добавлялся.

Спасиб!

[Hugo121]

Добавьте ещё одну проверку - если не пуста

        With c.Offset(, 28)
            If .Value <> "" Then
                If .Value <> 0 Then
                    c.NoteText c.Offset(, 28)
                    c.Comment.Shape.TextFrame.AutoSize = True
                End If
            End If
        End With

[Евгений Таб]

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

Добавьте ещё одну проверку - если не пуста

        With c.Offset(, 28)
            If .Value <> "" Then
                If .Value <> 0 Then
                    c.NoteText c.Offset(, 28)
                    c.Comment.Shape.TextFrame.AutoSize = True
                End If
            End If
        End With

Что-то ругается... можно целиком код(

[Hugo121]

Только после Вас
А, ну разве что ещё 2 строчки забыл...

    For Each c In Range("A2", Cells(Rows.Count, "A").End(xlUp))
        With c.Offset(, 28)
            If .Value <> "" Then
                If .Value <> 0 Then
                    c.NoteText c.Offset(, 28)
                    c.Comment.Shape.TextFrame.AutoSize = True
                End If
            End If
        End With
    Next

[IgorGO]

и...
возможно, так задумано, а скорее всего это будет неприятной новостью для Вас, но диапазон

Range("A2", Cells(Rows.Count, "A").End(xlUp))

содержит только 2 ячейки, не не все ячейки между А2 и последней в колонке А.

[Hugo121]

У меня по всем пробегает.

[IgorGO]

опа, значит это для меня сюрприз... надо учить синтаксис

[Евгений Таб]

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

У меня по всем пробегает.

Спасибо! !!!!!!!!!!!!!!!!!!!!!!!!!!!