[aESThete]

to Pelman

Код:

Sub SetIfEmpty()
    If Selection.Columns.Count = 1 And Selection.Rows.Count = 1 Then ' проверяем, что выбрана только 1 ячейка
        While Not IsEmpty(Selection.Value) ' пока не пустая
            ActiveCell.Next.Select ' выбираем следующую (Tab)
        Wend
        Selection.Value = "значение" ' наше значение
    End If
End Sub

Большое спасибо за помощь!!!

[SS1001]

Доброго времени суток. У меня проблема возникла , нужно в таблице определить первый пустой столбец, если кто знает - подскажите. Заранее благодарен.

[aESThete]

SS1001
Попробуйте вот так:

Код:

Sub ShowFirstEmptyColumn()
    For C = Columns.Count To 1 Step -1 'перебираем столбцы от последнего назад
        Cells(1, C).End(xlDown).Select 'выбираем последнюю занятую
        If Selection.Row < Rows.Count Then 'если это не последняя строка (столбец не пустой)
            Exit For 'выйти из цикла
        End If
    Next
    MsgBox C + 1
End Sub

Может есть готовый метод или свойство, но я не нашел.

[SS1001]

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

[aESThete]

SS1001
И как же? Поделитесь, плз.

[SS1001]

Мне важно было что бы код искал пустой столбец в соответствии с этой строкой
......
Range("A6").Select
ActiveCell.Offset(0, 1).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
Selection.EntireColumn.Select
.........

[aESThete]

SS1001
Наверное, вы не совсем правильно сформулировали задачу в своем первом посте.
Т.е. надо найти первую же пустую (даже если после нее есть данные) ячейку в определенной строке (а не целый столбец).

Код:

Range("A6").End(xlToRight).Select
if ActiveCell.Column = Columns.Count then
   Range("A6").Select
end if
ActiveCell.Offset(0, 1).Select

имхо делает то же самое что и ваш код, но без цикла (наверное, соответсвенно быстрее).

Есть две книги - первая и вторая. Мне нужно в процедуре, находящейся в модуле первой книги, прописать вызов процедуры, находящейся в модуле второй книги. Как это можно сделать?

Суть такова: программа из второй книги должна запускаться при открытии этой книги только если книга открыта программно при нажатии на кнопку в первой книге.

Использование отдельных книг, листов макросов и надстроек не подходит, т.к. пользоваться будут люди, ничего в макросах/VBA/настройках Excel не понимающие, а выставить всем все собственноручно я физически не смогу. Поэтому нужен чистый код.

[Vovchick1]

For LLIBED
Насколькоя понял, тебе нужно что-то вроде этого!!! Все описания в модулях!!!