Последняя занятая ячейка на другом Листе

@0mega · Регистрация: 05.11.2013

Author24 — интернет-сервис помощи студентам

WorkSheet: Лист3

Как записать код :
=значение последней занятой ячейки на Листе2 в столбце "С"

~~Остап Бонд~~ · 06.11.2018, 07:51

Visual Basic

1	MsgBox Sheets("Лист2").Cells(Sheets("Лист2").Rows.Count, "C").End(xlUp)

@snipe · 06.11.2018, 07:52

в инете очень много примеров по данному вопросу
единственная переделка кода будет заключаться в том что функцию надо начать с Worksheets("Имя листа"). и дальше что предлагают написать
ну примерно так
lastrow=Worksheets("Имя листа").Cells......................

@0mega · 06.11.2018, 20:59 **[ТС]**

Остап Бонд, спасибо

а как вывести ответ из MsgBox и записать в ячейку ?
что-то типа этого

Visual Basic

1	cells(7, 4)=("Лист2").Cells(Sheets("Лист2").Rows.Count, "C").End(xlUp)

но в таком виде машина ругается

~~Остап Бонд~~ · 06.11.2018, 21:05

Visual Basic

1	cells(7, 4)=Sheets("Лист2").Cells(Sheets("Лист2").Rows.Count, "C").End(xlUp)

@Aleks777 · 06.11.2018, 21:18

0mega, я предлагаю так:

VB.NET

With ThisWorkbook.Sheets("Лист2")
    If .AutoFilterMode And .AutoFilter.FilterMode Then
        .ShowAllData
    End If
    .UsedRange.EntireRow.Hidden = False
    Cells(7, 4) = .Cells(.Rows.Count, 3).End(xlUp)
End With

Код длиннее, но надежнее, свойство End вернет не тот результат, который хотелось бы, если есть активный фильтр или скрытые строки

@0mega · 06.11.2018, 22:29 **[ТС]**

Aleks777, благодарю за уделенное время

В данном случае у меня нет фильтров и ничего не скрыто
но Ваше пожелание взял на заметку

Добавлено через 36 минут
уточните еще один момент пожалуйста
условие такое же, только в ячейку cells(7, 4) вывести второе наибольшее

@0mega 6 / 7 / 1 Регистрация: 05.11.2013 Сообщений: 305
		1
	Последняя занятая ячейка на другом Листе 06.11.2018, 07:28. Показов 2554. Ответов 6 Метки нет (Все метки) WorkSheet: Лист3 Как записать код : =значение последней занятой ячейки на Листе2 в столбце "С" 0

@snipe 4064 / 1445 / 399 Регистрация: 07.08.2013 Сообщений: 3,616
	06.11.2018, 07:52	3
	в инете очень много примеров по данному вопросу единственная переделка кода будет заключаться в том что функцию надо начать с Worksheets("Имя листа"). и дальше что предлагают написать ну примерно так lastrow=Worksheets("Имя листа").Cells...................... 0

@0mega 6 / 7 / 1 Регистрация: 05.11.2013 Сообщений: 305
	06.11.2018, 22:29 [ТС]	7
	Aleks777, благодарю за уделенное время В данном случае у меня нет фильтров и ничего не скрыто но Ваше пожелание взял на заметку Добавлено через 36 минут уточните еще один момент пожалуйста условие такое же, только в ячейку cells(7, 4) вывести второе наибольшее 0

Опции темы

Последняя занятая ячейка на другом Листе

Решение