Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Перенос порядкового номера на следующий лист - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос порядкового номера на следующий лист (Макросы/Sub)
Перенос порядкового номера на следующий лист
PORTANDREW Дата: Суббота, 14.11.2020, 14:46 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Доброго времени форумчане, подскажите пожалуйста есть ли макрос для взятия последнего порядкового номера из столбца В предыдущего листа и переноса на следующий
лист в тот же столб следующий порядковый номер, но при условии если будет текст в ячейке D3. Пример прилагаю.
К сообщению приложен файл: 9896073.xlsm (16.0 Kb)

ZAC

Сообщение отредактировал PORTANDREW - Суббота, 14.11.2020, 14:48
 
Ответить
СообщениеДоброго времени форумчане, подскажите пожалуйста есть ли макрос для взятия последнего порядкового номера из столбца В предыдущего листа и переноса на следующий
лист в тот же столб следующий порядковый номер, но при условии если будет текст в ячейке D3. Пример прилагаю.
Автор - PORTANDREW
Дата добавления - 14.11.2020 в 14:46
mgt Дата: Понедельник, 16.11.2020, 12:17 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 98
Репутация: 25 ±
Замечаний: 0% ±

Excel 2010
[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
[/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
[/vba]
Автор - mgt
Дата добавления - 16.11.2020 в 12:17
PORTANDREW Дата: Понедельник, 16.11.2020, 15:41 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
mgt, Спасибо за помощь, только, как добавить, чтобы в листе строчки в диапазоне (B2:B25) сами дальше нумеровались, при условии конечно, что в диапазоне d3:d25 есть текст?

ZAC
 
Ответить
Сообщениеmgt, Спасибо за помощь, только, как добавить, чтобы в листе строчки в диапазоне (B2:B25) сами дальше нумеровались, при условии конечно, что в диапазоне d3:d25 есть текст?
Автор - PORTANDREW
Дата добавления - 16.11.2020 в 15:41
mgt Дата: Понедельник, 16.11.2020, 16:59 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 98
Репутация: 25 ±
Замечаний: 0% ±

Excel 2010
Пронумеровать все строки с непустым столбцом 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]


Сообщение отредактировал mgt - Понедельник, 16.11.2020, 17:00
 
Ответить
СообщениеПронумеровать все строки с непустым столбцом 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]
Автор - mgt
Дата добавления - 16.11.2020 в 16:59
PORTANDREW Дата: Воскресенье, 22.11.2020, 09:58 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
mgt, Спасибо БОЛЬШОЕ за помощь!!!

ZAC
 
Ответить
Сообщениеmgt, Спасибо БОЛЬШОЕ за помощь!!!
Автор - PORTANDREW
Дата добавления - 22.11.2020 в 09:58
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос порядкового номера на следующий лист (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!