Здравствуйте, подскажите пожалуйста как сделать автонумерацию строк. С учетом того, что нумерация должна автоматически нумеровать только те ячейки, справа от которых что-то написано. Например написать фамилии беспорядочно, не через определённый промежуток ячеек. Я создала кнопку, написала в модуле макрос autonum. И назначила для этой кнопки этот самый макрос. Написала фамилии, но кнопка не работает..вообще не реагирует. Уже всё облазила, но не могу понять в чём причина. Вот мой код, возможно где-то ошиблась. Исправьте пожалуйста, а то незнаю уже что делать.
Sub autonum()
Dim r As Range
If TypeName(Selection) = "range" Then
Set r = Selection
n = 0
For y = 1 To r.Rows.Count
If r.Cells(y, 1).Offset(0, 1) <> "" Then
n = n + 1: r.Cells(y, 1) = n
Else
r.Cells(y, 1) = ""
End If
Next y
End If
End Sub
Sub autonum()
Dim r As Range
If TypeName(Selection) = "range" Then
Set r = Selection
n = 0
For y = 1 To r.Rows.Count
If r.Cells(y, 1).Offset(0, 1) <> "" Then
n = n + 1: r.Cells(y, 1) = n
Else
r.Cells(y, 1) = ""
End If
Next y
End If
End Sub
![;]]](/styles/default/xenforo/smiles.rudtp/4100_7.gif ";]] ;]]")
