Makro İle Sıra No

[class37]

Makro Ýle Sıra No

Merhaba
B5 dolu İse a5 e 1,b6 dolu ise a6 ya 2 şeklinde A sütuna makro ile otomatik sıra no yazdırabilirmiyiz.İyiçalışmalar

 

[Guest]

Selam Class37
Cevabınıza makro dışında alternatif bir çözüm

A1 ve B1 de başlıkların olduğunu düşünerek
A2 =0 ve B2=1 şeklinde değer vererek istediğiniz dataları A3 ve B3 ten başkadığını varsayarsak aşağıdaki formul isteğinizi karşılayacaktır.

=IF(B3="";"";MAX($A$2:A2)+$B$2)

Kolay Gelsin Umarım işinize yarar.

 

[Haluk]

Sub Test()
Dim i As Long, No As Long
    For i = 5 To Cells(65536, 2).End(xlUp).Row
        If Cells&#40;i, 2&#41; <> Empty Then
            No = No + 1
                Cells&#40;i, 1&#41; = No
            Else
                Cells&#40;i, 1&#41; = Empty
        End If
    Next
End Sub

 

[class37]

Merhaba
Sayın Türker cevabınız için teşekkürler o şekilde yapınca yazdırırken sorun oluyor.Sayfa ön izlemeye geçtiğimde boş olan hücrelerde ön izlemeye alınıyor.İyiçalışmalar.
NOT:Ben mesajı yazarken Sayın Raider kodları yazmış denedim tam istediğim buydu çok teşekkürler.İyiçalışmalar.

 

[mert25]

Merhaba sayın Raider'in kodu çok güzel fakat sıra nosu A değil de başka bir sütunda ise ne yapmak gerekir.

 

[Haluk]

......fakat sıra nosu A değil de başka bir sütunda ise ne yapmak gerekir.

Cells(i, 1) buradaki 1 A sütununa karşılık gelir.

Tahmin ettiğin gibi, eğer C sütunu olacaksa 3 kullanacaksın.

 

[mert25]

Sayın Raider teşekkür ederim.