Sıra numarası verdirme

Sıra numarası verdirme

#2680 İleti | nadir | 16 Ekm 2020, 11:05

İyi günler...

B sütunundaki satırların dolu olmasına bakarak A sütununda sıra numarası makro ile nasıl verdirebiliriz?

Sub siranover
...B sütununun dolu olduğu satıra kadar (değişken)
... A sütununda sıra no verecek kod
end sub
nadir
 
İleti: 4
Kayıt: 14 Eyl 2020, 13:09
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7

Re: Sıra numarası verdirme

#2681 İleti | Hamurcu | 19 Ekm 2020, 17:02

Merhaba,

Açtığınız Çalışma Kitabının ilk sayfasındaki (Çizelge1) B sütununa ilk satırından son satırına kadar bakıp, eğer boş değilse A sütununa sıradaki numarayı vermek için aşağıdaki kodu kullanabilirsiniz.

İyi çalışmalar.

Kod: Tümünü seç
Sub DoluSatirlariNumaralandir()

    Dim Kitap As Object
    Kitap =  ThisComponent

    Dim Sayfa As Object
    Sayfa = Kitap.getSheets().getByIndex(0) ' Buradaki 0 ilk sayfayı tanımlar

    Dim SatirSayisi As Long
    SatirSayisi=Sayfa.getCellRangeByName("B:B").Rows.Count ' B:B ibaresi B sütununun tamamı demektir

    SatirNo=0

    For r = 0 To SatirSayisi-1 Step 1
   
        Hucre=Sayfa.getCellByPosition( 0, r ) ' Önce A sütunundaki satırda daha önceden yapılmış bir numaralandırma varsa onu silemk gerekecektir. Bu sebeple A sütunundaki ilgili hücrenin adresi öğrenilir

        Hucre.String="" ' Öğrenilen hücreye yokluk/boşluk girilir ve bu sayede bir önceki numaralandırma silinmiiş olur
       
        Hucre=Sayfa.getCellByPosition( 1, r ) ' Sonra B sütunundaki hücrenin adresi öğrenilir
       
        If Hucre.Type = com.sun.star.table.CellContentType.EMPTY Then Goto Atla ' Eğer bu hücre boşsa aşağıdaki satırlar ATLANIR
       
        SatirNo=SatirNo+1
       
        Hucre=Sayfa.getCellByPosition( 0, r ) ' A sütununun adresi öğrenilir
       
        Hucre.value=SatirNo ' Sıradaki numara verilir

Atla:

    Next r

End Sub
Kullanıcı avatarı
Hamurcu
 
İleti: 207
Kayıt: 06 Ağu 2012, 00:14
Konum: İstanbul
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 6.x


Calc - Hesap Tablosu

Kimler çevrimiçi

Kayıtlı kullanıcılar: Google [Bot]

cron