sıra no verme

Katılım
6 Mart 2015
Mesajlar
9
Excel Vers. ve Dili
2007 türkçe
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

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,103
Excel Vers. ve Dili
Excel-2003 Türkçe
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.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Alternatif,

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