Вписать значение в первую свободную колонку

[tae1980]

Стоит простая задача: вписать значение в первую справа свободную колонку. Колонки заполняются последовательно, начиная с первой, возможна ситуация когда строка будет полностью пустая (вписывается первое значение).
Пытаюсь решить задачу вот таким методом

Rows(11).End(xlToRight).Column

Все хорошо когда в строке заполнено первые две колонки. Но если заполнена только одни или вообще нет значений код возвращает значение 256. Что я делаю не так? Или сегодня уже просто поздно? "Утро вечера мудренее" (с)

[SAS888]

Код

x = [IV11].End(xlToLeft).Column

вернет номер последнего заполненного столбца в строке 11 (но не первого свободного).
Примечание: этот метод будет корректно работать, если ячейка последнего столбца пуста.
Если же заполненная строка имеет пустые ячейки, и Вам требуется определить номер столбца именно первой пустой ячейки в строке (в примере это строка 11), то можно воспользоваться кодом:

x = Rows(11).SpecialCells(xlCellTypeBlanks).Cells(1, 1).Column

Если же требуется записать значение в эту ячейку, то отдельно вычислять номер столбца не следует. Можно так:

[IV11].End(xlToLeft).Offset(, 1) = "Пишем_сюда"

или так:

Rows(11).SpecialCells(xlCellTypeBlanks).Cells(1, 1) = "Пишем_сюда"

в зависимости от Вашей задачи.

[tae1980]

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

Код

[IV11].End(xlToLeft).Column

вернет номер последнего заполненного столбца в строке 11 (но не первого свободного).
Примечание: этот метод будет корректно работать, если ячейка последнего столбца пуста.

Спасибо. Работает.
PS Странно... я экспериментировал с заменой направления, но результат был отрицательный. Наверное точно нужно было выспаться.

[tae1980]

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

Код

x = [IV11].End(xlToLeft).Column

вернет номер последнего заполненного столбца в строке 11 (но не первого свободного).

Как бы не смешно звучало снова воюю с этой же проблемой.
Задача: есть лист на котором построчно содержится информация, ее размер не известен (от 0 до 256), у листа есть кодовое имя. Нужно: обработать (я заношу строки в комбобокс, но для опыта подойдет просто вывести номер последнего столбца) всю информацию для строки в которой находиться курсор.
Вторая задача: дописать новую информацию в конец.
Пример листа:
___A___B__C
1| 111 222
2| 111
3| 111 222 333
4| 111
5| 111 222
6|
7| 111 222 333
8| 111
9| 111 222

Как всегда использую цикл for n=1 to ПоследнийСтолбец
Команда ПоследнийСтолбец = Path.Rows(Selection.Row).End(xlToLe ft).Column
Всегда возвращает 1. Если заменить "xlToLeft" на "xlToRight" то если заполнено 2 и более столбцов - возвращается правильное значение, если заполнено 0 или 1 столбец - возвращается 256.

Что я снова делаю нет так?

[IgorGO]

Path.cells(Selection.Row, columns.count).End(xlToLeft).Column

[SAS888]

Метод End имеет опции xlUp, xlDown, xlToLeft и xlToRight. И работает он относительно указанной ячейки. Результат работы этого метода эквивалентен действию:
Выделить ячейку и одновременно нажать клавиши "End" и стрелку соответствующего направления. Поэкспериментируйте, и вопросов у Вас не будет.

[tae1980]

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

Path.cells(Selection.Row, columns.count).End(xlToLeft).Column

Спасибо. Вечером попробую.

[tae1980]

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

Метод End имеет опции xlUp, xlDown, xlToLeft и xlToRight. И работает он относительно указанной ячейки.

Как я понимаю в этом и проблема, так как у меня указана только строка. Но тогда почему xlToRight, работает почти правильно?

[IgorGO]

фраза:

xlToRight, работает почти правильно

сказанная в адрес макроса - означает "ни фига он не работает!!!"

[tae1980]

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

фраза:сказанная в адрес макроса - означает "ни фига он не работает!!!"

Аминь! :)))
Твой вариант работает.