sıra no verme

[sukruerkiner]

sayfa1 de a sütununa 1 den 2000 e kadar sıra numarası vermek istiyorum. önce a sütununu komple temizlesin sonra 1 den 2000 e kadar sıra numarası versin, sayfa1 den sayfa2 ye geçerken çalışsın, yardımcı olursanız memnun olurum.

 

[muygun]

Merhaba;
Sayfa1 kod bölümüne;

Private Sub Worksheet_Deactivate()
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
s1.Range("a1:a65536").ClearContents
For i = 1 To 2000
s1.Cells(i, 1) = i
Next i
End Sub

Bu kod sayfadan her çıkışta çalışır.

Sadece Sayfa2 ye geçişte çalıştırmak istiyorsanız;
Sayfa2 nin kod bölümüne;

Private Sub Worksheet_Activate()
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
s1.Range("a1:a65536").ClearContents
For i = 1 To 2000
s1.Cells(i, 1) = i
Next i
End Sub

Kodlarını yerleştirin. Bu kodlar Sayfa2 ye her girişte sayfa1 ide sırano işlemini yapar.

İsteğinize göre ikisinden birini uygulayın.
İyi çalışmalar.

 

[sukruerkiner]

teşekkürler

 

[Korhan Ayhan]

Alternatif,

Sub Sira_No()
    Columns(1).ClearContents
    Range("A1") = 1
    Range("A1").AutoFill Range("A1:A2000"), xlFillSeries
End Sub