Макрос на все случаи жизни или еще раз про

[tevadim]

Уважаемые знатоки можно дописать макрос чтоб в " A " нумерация строк шла с первой пустой ячейки ( так как обычно бывают шапки в таблицах - получится макрос автоматической нумерации строк на все случаи жизни :

Sub numbering()
Application.EnableEvents = False
For Each oCell In Range([B1], Cells(Rows.Count, "B")).Cells
If Not IsEmpty(oCell) Then iCount = iCount + 1: oCell.Previous = iCount
Next
Application.EnableEvents = True
End Sub

Linki for file
https://www.dropbox.com/s/ij79biqff3u7506/Numbering.rar

[Smitt&Wesson]

Макрос на все случаи жизни

Портянки не катят?

[DiemonStar]

Sub f()
  S = InputBox("Ââåäèòå êîëè÷åñòâî íîìåðîâ:", "Íóìåðàöèÿ", 1)
  If IsNumeric(S) Then
    With Range("$A$" & Rows.Count).End(xlUp).Offset(1)
     .Value = 1
     .AutoFill .Resize(S), xlFillSeries
    End With
  End If
End Sub

типа такого?

[tevadim]

Сообщение от Smitt&Wesson

Портянки не катят?

Обьясняю : на все случаи жизни... при работе с таблицами .
Краткость - сестра таланта.

[tevadim]

Сообщение от DiemonStar

Sub f()
  S = InputBox("Ââåäèòå êîëè÷åñòâî íîìåðîâ:", "Íóìåðàöèÿ", 1)
  If IsNumeric(S) Then
    With Range("$A$" & Rows.Count).End(xlUp).Offset(1)
     .Value = 1
     .AutoFill .Resize(S), xlFillSeries
    End With
  End If
End Sub

типа такого?

Спасибо Уважаемый " DiemonStar " Работает но нужно чтоб автоматом заполняла до последнего рядя таблицы если columns " B " не пуста