Makro İle Sıra No

Katılım
17 Ağustos 2004
Mesajlar
222
Excel Vers. ve Dili
Ofiste Excel 2000 Türkçe
Evde Excel 2003 Türkçe
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
 
G

Guest

Misafir
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Kod:
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
 
Katılım
17 Ağustos 2004
Mesajlar
222
Excel Vers. ve Dili
Ofiste Excel 2000 Türkçe
Evde Excel 2003 Türkçe
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.
 
Katılım
28 Temmuz 2004
Mesajlar
21
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
mert25' Alıntı:
......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.
 
Katılım
28 Temmuz 2004
Mesajlar
21
Sayın Raider teşekkür ederim.
 
Üst