Определить первую и последнию заполненную ячейку

[goddan]

Добрый день.

Подскажите пожалуйста как можно реализовать следующее. Юзер кликает в экселе на заполненную ячейку данными. Нужно определить адрес первой и последней заполненных ячеек в этой строке. Данные их обьеденить и вставить в textbox(расположен на этом листе).

Если можно направьте мысль как это можно сделать.Спасибо.

[alibek]

Можешь пройтись циклом от текущего столбца, вначале назад, до последней непустой ячейки, потом вперед, до последней непустой ячейки. Эти две ячейки будут границами области.
Можешь также посмотреть в направлении свойства Range.CurrentRegion, лимитировав его текущей строкой.
Я бы советовал второе.

[Pavel55]

Вот, наверное, ещё так можно в первой строке узнать первую и последнуюю заполненную ячейку

Код: Выделить всё

Sub Макрос1()
Dim iFirstColumn As Long
Dim iLastColumn As Long
    iFirstColumn = Cells(1, 1).End(xlToRight).Column
    MsgBox "Первая заполненная ячейка в первом ряду в столбце: " & iFirstColumn
    iLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox "Последняя заполненная ячейка в первом ряду в столбце: " & iLastColumn
End Sub

[goddan]

спасибо, решил проблему используя

Selection.End(xlToLeft).Select и Selection.End(xlToRight).Select

[Pavel55]

лучше не испозовать метод Select. Он замедляет работу макроса

[@Nik]

А как вам такой вариант ?

[goddan]

А как вам такой вариант ?

Супер!!!!

просветите плиз, что это [usedrow] и где моржно о нем почитать.
Если используется комбобокс, то где сам обьект, и как просмотреть его свойства?

Честно я просто восхищен!!!

[@Nik]

Поскольку вы написали [usedrow], то, надо полагать, вы смотрели совсем не туда , куда надо Тот кусок кода я просто забыл удалить, он в данном примере совершенно не нужен. Им можно было бы пользоваться в том случае, если бы вам в ComboBox надо было подставлять значения выбранного столбца, а не строки, но для этого надо будет несколько изменить формулу "UsedRow". А так тут всё реализовано без макросов. Увидеть же саму формулу для "UsedRow" можно так: Вставка->Имя->Присвоить... А в ячейках В5:В14 выпадающий список реализован срадствами экселя: Данные->Проверка... Тип данных - "Список".

[goddan]

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