Ana hesaplar hk.

[1903emre34@gmail.com]

Merhaba,

Ana hesapların altında yer alan ana kıvrımlarını (00, 01,02 vs başlayan) hemen yanlarına noktalı biçimde alt alta sıralamak için nasıl kod oluşturabiliriz.

 

[Emir Hüseyin Çoban]

.

Sarı ile belirttiğim alanın hesap kodlaması nasıl olmalı?



.

 

[1903emre34@gmail.com]

120.01.04.06

120.01.20.001

 

[Emir Hüseyin Çoban]

.

İşin mantığını tam aktarırsanız, çözüm yolunu kolaylaştırırsınız.

O zaman 00 ile başlıyorsa onlar yok mu sayılacak.

Bence örneğinizdeki liste için olması gereken hesap kodlarının tamamını yazın...

.

 

[1903emre34@gmail.com]

1 nolu mesaj yer alan ekteki dosya güncellendi.

 

[Emir Hüseyin Çoban]

.

Sub kod()

    Range("B:B").ClearContents
    s = Cells(Rows.Count, "A").End(3).Row
    
    For i = 1 To s
        
        If Len(Cells(i, "A")) = 3 Then
            
            anakod = Cells(i, "A") & "."
            Cells(i, "B") = Cells(i, "A")
            
            For a = i + 1 To s
                If Len(Cells(a, "A")) = 3 Then Exit For
                dönüştür = WorksheetFunction.Substitute(Trim(Cells(a, "A")), " ", ".")
                Cells(a, "B") = anakod & dönüştür
            Next a
            
        End If
        
    Next i

End Sub

.

 

[1903emre34@gmail.com]

Teşekkürler, sorunsuz çalışıyor.