n = ActiveSheet.Name
t = ActiveCell.Column
m = Split(ActiveCell.Address, "$")(1) '
lr = Sheets(n).Columns(t).Find("*", [m&1], SearchDirection:=xlPrevious, LookIn:=xlValues).Row '
в коде возникает ошибка Type mismatch из за [m&1] чем заменить эту часть кода что бы устранить ошибку
Юрий М написал: Если для активного листа, то зачем знать его имя?Вам нужно именно по столбцу активной ячейки или просто последнюю, неважно, в каком столбце?
хочу сделать модуль с макросом определения последней заполненной ячейки определенного столбика который будет срабатывать при выделении ячейки в модуле листа. Листов будет несколько. Вообщем заморочился и не хочу дублировать эту часть кода во всех модулях листа. Этот код в будущем будет больше.
LastRow = Cells(Rows.Count, 1).End(xlUp).Row 'где 1 - это первый столбец
LastRow = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row ' без указания номера столбца