Belli bir sayıdan başlayarak sıra numarası.

[ofbalki]

Arkadaşlar konu ile ilgili arama yaptım ama benim sorunumu tam olarak çömedi.

TextBox1 e yazacağım sayıdan başlayarak, b sütununa veri girildikçe, c sütununa (2.satırdan başlayarak) otomatik sıra numarası yazdırmak istiyorum.

İlgilenen arkadaşlara şimdiden teşekkür ederim.

Selam ve Dua ile...

 

[Korhan Ayhan]

Selamlar,

Bahsettiğiniz işlemi UserForm üzerindenmi yapacaksınız?

 

[ofbalki]

evet üstad

 

[ofbalki]

Dim zzz As Long, sıra As Long
For zzz = 2 To [B65536].End(3).Row
sıra = sıra + 1
Cells(zzz, 3) = sıra
Next


döngüsünü kullandım ama 1 den başlıyor. TextBox1 in değerinden başlatmak istiyorum. Tabii bu işlem bir düğmeye bağlı. Tıklandığında olay gerçekleşiyor.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[Korhan Ayhan]

Mükerrer mesaj olduğu için tarafımdan silinmiştir.

 

[ofbalki]

Üstad yukarıda verdiğim döngüye monte edebilimemiz mümkünmü.

Ben sadece TextBox1 de istiyorum.

Elimde mevcut bir program var. Tamamlanmadan eklemek istemedim, yarım yamalak olmasın diye.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Private Sub CommandButton1_Click()
    Dim zzz As Long, sıra As Long
    sıra = TextBox1
    For zzz = 2 To [B65536].End(3).Row
    Cells(zzz, 3) = sıra
    sıra = sıra + 1
    Next
End Sub

 

[ofbalki]

Üstad teşekkürler, harikasın.

Ellerine sağlık.

 

[ofbalki]

Uygulama yaptığım için cevap gecikti, kusuruma bakma.

Saygılar.