Ayrintili Muavİn Satirlarinin BİrleŞtİrİlmesİ

[eraser]

ArkadaŞlar Acİl Yardiminiza İhtİyacim Var.
İkİ ÜÇ GÜn İÇİnde Malİyeye Vermek Üzere Ba-bs Formlari İÇİn Hazirlik Yapmam Gerekİyor. Ektedekİ Excel ÇaliŞmamda HazirladiĞimiz Konu İÇİn Acİl Yardimlariniza İhtİyacim Var.

Bu Konuda YapacaĞiniz ÇaliŞmalarinizi DÖrt GÖzle Beklİyorum. Şİmdİden TeŞekkÜrler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir butona bağlayıp deneyiniz.

Public Sub Aktar()
Set sm = Sheets("MUAVİN")
Set sR = Sheets("RAPOR")
sm.Select
Application.ScreenUpdating = False
sm.Range("A2:E1500").Sort Key1:=sm.[D2]
sR.Range("A2:C10000").ClearContents
Sat = 1
For i = 2 To sm.[A65536].End(3).Row
    If sm.Cells(i, "D") <> EskiDeger Then
        Sat = Sat + 1
        sR.Cells(Sat, "B") = sm.Cells(i, "D")
        sR.Cells(Sat, "C") = sm.Cells(i, "E")
        EskiDeger = sm.Cells(i, "D")
    Else
        sR.Cells(Sat, "C") = sR.Cells(Sat, "C") + sm.Cells(i, "E")
    End If
Next i
End Sub

 

[eraser]

Ayrıntılı Muavin

Sayı Necdet Bey çok teşükkürler hemen kodları kullanıyorum.

Allah razı olsun.