Makro İle sayfaya Otomatik Numara Verme

[ikikan]

arkadaşlar bu kodu sayfa1 butona basınca
sayfa2 de nasıl aktif hale getire bilirim dosya ektedir



Private Sub CommandButton3_Click()
' satır silmek
Cells(ListBox1.ListIndex + 1, "a").EntireRow.Delete

'otomatik sıra formülleri yazdırılır.
For i = 4 To 50
'sıra formülü
Cells(i, 0).Select
ActiveCell.FormulaR1C1 = "=IF(RC[1]<>"""",MAX(R6C1:R[-1]C)+1,"""")"
Next i
Exit Sub
End Sub

 

[piyers]

otomatik numara verme

arkadaşlar bende şablon dosyası var içinde teslim fişi sayfası k5
fatura fişi sayfası d11
sutunlarına otomatik numara vermek istiyorum
yardımcı olursanız sevinirim