Ana hesap kodlarında farklı olması durumunda

[1903emre34@gmail.com]

Merhaba,

Ana hesaplarda yer alan hesap kodlarının ilk üç rakam, alttaki kodlarla farklı olması durumunda, arasına bir satır aralık açılması ,

"H" sütundaki, bakiye devri rakamların ,"J"'deki Rapor dönemi borç rakamların toplamı alınması (çizgiler) nasıl kod olutşturabiliriz
http://s8.dosya.tc/server4/mhkwkw/Kitap2.zip.html

 

[Asri]

Bu konudaki sağ tuş eklentisini kullanabilir siniz. Toplam işlemini görmemişim. Bu işlem sadece boş satır açar.

http://www.excel.web.tr/f52/excel-zel-lemler-menusu-eklentisi-sao-tu-t157219.html

BOŞ SATIR İŞLEMLERİ :
*Hücre içine satır numarası ekle
*Boş satır ekle - her n satır sonra n satır ekle
*Boş satır ekle - x. karakter ile y. karakterler arası değiştiğinde n boş satır ekle
*Boş satır ekle - Bu kelimeyi içeren satırlardan sonra n kadar boş satır ekle
*Sıra numarası ekle - n den başla n artışla . karakteri ekle hücre içeriği silinir.
*Her dolu hücreden sonra, n boş satır ekle. Fazla boş satırlar silinmez.
*Her dolu hücreden sonra, n boş satır ekle. Fazla boş satırlar silinir.
*Sıranumarası ekle, belirli bir sütundaki her değiştiğinde yeniden başla.
*Bulunduğu kolonda hücre değeri değiştiğinde n boş satır ekle
*Boş satır ekle - x. karakter ile y. karakterler arası değişmediğinde n boş satır ekle
*Boş satır ekle, sadece sayı olmayan hücrelere. Bunları karakter kabul et, bunları da sayı kabul et.
*Boş satır ekle, sadece sayı olan hücrelere. Bunları karakter kabul et, bunları da sayı kabul et.

 

[Asri]

Konrol ediniz.

Dim i As Long

Sub menu()
   Call Sonsatir_Duzenle
   Call Sonuc
End Sub

Sub Sonuc()
   Sheets("Sayfa1").Select
   sonsatir = Cells(Rows.Count, "B").End(3).Row
   If sonsatir <= 6 Then Exit Sub
   eskihesap = ""
   For i = sonsatir To 7 Step -1
     anahesap = Left(Cells(i, "C").Value, 3)
     Cells(i, "J").Value = Cells(i, "H").Value + Cells(i, "J").Value
     Cells(i, "L").FormulaR1C1 = "=RC[-2]-RC[-1]"
     If i <> sonsatir And anahesap <> eskihesap Then
        Rows(i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("B" & i).Select
     End If
     eskihesap = anahesap
   Next i
   
   Columns("E:I").Select
   Selection.Delete Shift:=xlToLeft
   Range("E7").Select
   
   sonsatir = Cells(Rows.Count, "B").End(3).Row
   eskihesap = ""
   basla = 7
   For i = 7 To sonsatir + 1
     anahesap = Left(Cells(i, "C").Value, 3)
     If anahesap = "" Then
        Cells(i, "C").Value = Left(Cells(i - 1, "C").Value, 3)
        Cells(i, "E").FormulaR1C1 = "=SUM(R[-" & i - basla & "]C:R[-1]C)"
        Cells(i, "F").FormulaR1C1 = "=SUM(R[-" & i - basla & "]C:R[-1]C)"
        Cells(i, "G").FormulaR1C1 = "=RC[-2]-RC[-1]"
        Range("E" & i & ":G" & i).Select
        Selection.Font.Bold = True
        basla = i + 1
     End If
     
   Next i
End Sub

Sub Sonsatir_Duzenle()
    satir = Cells(Rows.Count, "B").End(3).Row + 1
    Range("B" & satir & ":L" & satir).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("B2").Select
End Sub

 

[1903emre34@gmail.com]

Çok teşekkürler ellerinize sağlık