Satır numaralama(boşluklu)

[sosyal2006]

Merhabalar
B sütununa veri girişi yapılacaktır.Veriye göre A sütununa makro ile sıra numara verilecektir.Ancak sıra numarası verirken B sütunundaki boşluklar yok sayılacaktır.

Ben bir kod ekledim fakat kodda boşlukları yok saydıramadım.
Yardımcı olusanız sevinirim.

 

[Mahir64]

Merhaba,
Makro yerine formül ile de çözülebilir.
A2 hücresine yazıp aşağı çekerek çoğaltınız.

=EĞER(B2="";"";ALTTOPLAM(3;$B$2:B2))

 

[sosyal2006]

Merhaba,
Makro yerine formül ile de çözülebilir.
A2 hücresine yazıp aşağı çekerek çoğaltınız.

=EĞER(B2="";"";ALTTOPLAM(3;$B$2:B2))

Teşekkürler.Makro olursa daha iyi olur.Formülü silme durumları olabilir.
Olmazsa sayfa koruma yöntemiyle beraber bu formülü kullanabilirim.

 

[Mahir64]

Merhaba,
Modüle ekleyerek deneyiniz.

Sub Sıra_No()
srn = 1
For i = 1 To Range("B65536").End(3).Row
If Range("B" & i).Value = "" Then
Else
Range("A" & i).Value = srn
srn = srn + 1
End If
Next
End Sub

 

[sosyal2006]

Merhaba,
Modüle ekleyerek deneyiniz.

Sub Sıra_No()
srn = 1
For i = 1 To Range("B65536").End(3).Row
If Range("B" & i).Value = "" Then
Else
Range("A" & i).Value = srn
srn = srn + 1
End If
Next
End Sub

Çok teşekkürler.İşlem tamamdır.Elinize sağlık.

 

[Mahir64]

Çok teşekkürler.İşlem tamamdır.Elinize sağlık.

İyi çalışmalar.