Доброго времени форумчане, подскажите пожалуйста есть ли макрос для взятия последнего порядкового номера из столбца В предыдущего листа и переноса на следующий лист в тот же столб следующий порядковый номер, но при условии если будет текст в ячейке D3. Пример прилагаю.
Доброго времени форумчане, подскажите пожалуйста есть ли макрос для взятия последнего порядкового номера из столбца В предыдущего листа и переноса на следующий лист в тот же столб следующий порядковый номер, но при условии если будет текст в ячейке D3. Пример прилагаю.PORTANDREW
Public Sub Num_plus_one() If ActiveSheet.Index > 1 Then If Range("d3") <> "" Then If Sheets(ActiveSheet.Index - 1).Range("b65536").End(xlUp).Row >= 3 Then Range("b3").Value = Val(Sheets(ActiveSheet.Index - 1).Range("b65536").End(xlUp).Value) + 1 End If End If End If End Sub
[/vba]
[vba]
Код
Public Sub Num_plus_one() If ActiveSheet.Index > 1 Then If Range("d3") <> "" Then If Sheets(ActiveSheet.Index - 1).Range("b65536").End(xlUp).Row >= 3 Then Range("b3").Value = Val(Sheets(ActiveSheet.Index - 1).Range("b65536").End(xlUp).Value) + 1 End If End If End If End Sub
mgt, Спасибо за помощь, только, как добавить, чтобы в листе строчки в диапазоне (B2:B25) сами дальше нумеровались, при условии конечно, что в диапазоне d3:d25 есть текст?
mgt, Спасибо за помощь, только, как добавить, чтобы в листе строчки в диапазоне (B2:B25) сами дальше нумеровались, при условии конечно, что в диапазоне d3:d25 есть текст?PORTANDREW
Пронумеровать все строки с непустым столбцом D по всем листам кроме листа ПРОЧЕЕ начиная с третьей строки.
[vba]
Код
Public Sub Num_all() Dim n%, i% Dim sh As Worksheet n = 1 For Each sh In ThisWorkbook.Worksheets If sh.Name <> "ПРОЧЕЕ" Then For i = 3 To sh.Range("b65536").End(xlUp).Row If sh.Range("d" & i).Value <> "" Then sh.Range("b" & i).Value = n n = n + 1 End If Next i End If Next End Sub
[/vba]
Пронумеровать все строки с непустым столбцом D по всем листам кроме листа ПРОЧЕЕ начиная с третьей строки.
[vba]
Код
Public Sub Num_all() Dim n%, i% Dim sh As Worksheet n = 1 For Each sh In ThisWorkbook.Worksheets If sh.Name <> "ПРОЧЕЕ" Then For i = 3 To sh.Range("b65536").End(xlUp).Row If sh.Range("d" & i).Value <> "" Then sh.Range("b" & i).Value = n n = n + 1 End If Next i End If Next End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
