If Range("b3").Value = "" Then
Range("b3").Value = 1
Range("b3").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
' buraya kadar hareket sıra no verir.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.