Satır ekleme makrosu

[metinavci23]

Merhaba arkadaşlar

Satır ekleme konusunda bir problemim var.baya emek verdim kendim ayarlamam için ama yapamadım.yardımınızı bekliyorum.Problemim ne olduğunu ekteki dosyada yazıyor.şimdiden yardımınız için teşekür ederim

 

[mesuttasar]

Aşağıdaki linki inceleyebilirsiniz. Ayrıca arama motoruna SATIR EKLEME diye yazarsanız birçok benzer başlık olduğunu görebilirsiniz.
Saygılarımla,

http://www.excel.web.tr/f48/uzerinde-durdugum-sat-r-silme-soru-t65580.html

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Not : Kodda C sütunu yardımcı sütun olarak kullanılmıştır. Eğer C sütununda verileriniz varsa belirtirseniz kodu boş bir sütuna göre düzenleyebilirim.

Option Explicit
 
Sub SATIR_EKLE_TOPLAM_AL()
    Dim X As Long, ALAN As Range
 
    Application.ScreenUpdating = False
 
    For X = [A65536].End(3).Row To 2 Step -1
        If Mid(Cells(X, 1), 1, 3) <> Mid(Cells(X - 1, 1), 1, 3) Then
        Rows(X).Insert
        Cells(X, 1) = Mid(Cells(X + 1, 1), 1, 3)
        Cells(X, 1).Font.Bold = True
        Cells(X, 2).Font.Bold = True
        End If
    Next
 
    For X = 2 To [A65536].End(3).Row
        If Cells(X, 1).Font.Bold = False Then Cells(X, 3) = "X"
    Next
 
    For Each ALAN In Columns("C:C").SpecialCells(xlCellTypeConstants, 2).Areas
        ALAN.Resize(1).Offset(-1, -1) = WorksheetFunction.Sum(ALAN.Offset(0, -1))
    Next
 
    [C:C].ClearContents
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[metinavci23]

tekrar merhaba arkadaşlar

Sn.Korhan Ayhan'ın yazmış olduğu makroyu uyguladım.satır eklemede herhangi bir problem yok ancak toplam almada ekteki dosyanın değerlerin bulunduğu sütunda(B sütunu) herhangi bir boşluk olduğunda toplamları ilk boş sütuna kadar topluyor.
yani:
100 0001 20,00
100 0002
100 0003 60,00
gibi olduğunda tplamı 20 olarak hesaplıyor.ayrıca da ben toplamları muhakkak 3 karakterli olanların satırına toplamasını istiyorum.şimdiden teşekkür ederim.herkese iyi günler dilerim

 

[metinavci23]

lütfen arkadaşlar bu akşam yetiştirmem gerekiyor

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

Mesaja ayrıca bir not ekledim lütfen okuyunuz.

 

[metinavci23]

Korhan bey Teşekkür ederim.Makro mükemmel çalışıyor.Ellerinize sağlık