satır no sınırlandırma

[YILDIZ YAĞMURU]

aşağıdaki kodu 155 . satırla sınırlandırabilirmiyiz acaba ?


sat = Sheets("SIPARIS").Cells(Rows.Count, "C").End(xlUp).Row
For i = 6 To sat
Sheets("SIPARIS").Cells(i, "B").Value = i - 5
Next i

 

[Murat OSMA]

6 to 155 yazın.

 

[YILDIZ YAĞMURU]

6 to 155 yazın.

yaptım fakat boş satırlara da no veriyor o zaman 155 satıra kadar dolu boş numara veriyor

 

[Murat OSMA]

Normaldir.
Ne yapmak istiyorsunuz ?
Boş satırları dikkate almasın mı ?

 

[YILDIZ YAĞMURU]

Normaldir.
Ne yapmak istiyorsunuz ?
Boş satırları dikkate almasın mı ?

Evet sadece dolu satırları numaralandırsın

 

[Murat OSMA]

Şu sekilde bir deneyiniz;

For i = 6 To 155
if cells(i, "b") <>"" then Sheets("SIPARIS").Cells(i, "B").Value = i - 5
Next i

 

[YILDIZ YAĞMURU]

Şu sekilde bir deneyiniz;

For i = 6 To 155
if cells(i, "b") <>"" then Sheets("SIPARIS").Cells(i, "B").Value = i - 5
Next i

teşekkürler

 

[Murat OSMA]

Rica ederim.