Sıra Numarası Verme

[ahmed_ummu]

Merhaba arkadaşlar.

Ekteki resimde belirttiğim yerlere sıra numarası vermek istiyorum aşağıdaki kırmızı renkteki kodlar ile ama sadece 1. sıra numarasını veriyor. Yardımcı olabilir misiniz.

Sheets("maaş").Select
Range("a14").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(5, 0).Select
Loop

ActiveCell.Offset(-1, 0).Value = TextBox19.Value & "-" & TextBox3.Value
ActiveCell.Offset(0, 0).Value = TextBox2.Value
ActiveCell.Offset(1, 0).Value = TextBox11.Value
ActiveCell.Offset(2, 0).Value = TextBox4.Value & "-" & TextBox5.Value & " " & TextBox6.Value & " " & TextBox18.Value & "-" & TextBox17.Value & " " & TextBox16.Value

If Range("a14").Select Then
ActiveCell.Offset(-2, 0).Value = 1
Else
ActiveCell.Offset(-2, 0).Value = ActiveCell.Offset(-7, 0).Value + 1
End If

 

[Ömer]

Merhaba,

Başta yazdığınız kodları aşağıdakilerle değiştirip deneyin.

Sheets("maaş").Select
Range("a14").Select
Do While Not IsEmpty(ActiveCell)
s = s + 1
ActiveCell.Offset(-2, 0) = s
ActiveCell.Offset(5, 0).Select
Loop

 

[ahmed_ummu]

Merhaba,

Başta yazdığınız kodları aşağıdakilerle değiştirip deneyin.

Sheets("maaş").Select
Range("a14").Select
Do While Not IsEmpty(ActiveCell)
s = s + 1
ActiveCell.Offset(-2, 0) = s
ActiveCell.Offset(5, 0).Select
Loop

Çok teşekkür ederim Ömer bey.
Sıra numarası veriyor fakat hep bir sonraki kişiinin bilgilerini girince, bir önceki kişiye sıra no veriyor.

Resimde En son verisi girilen kişiye (FATMA COŞKUN) sıra no vermemiş. Bir sonraki kişinin verilerini girince bu kişiye sıra no veriyor.

 

[Ömer]

Bende bir sorun olmadı.