MÜKERRER KAYITLARI TOPLA VE BANKA LİSTESİ OLUŞTURMA

[yarbay]

Ek te gönderdiğim dosyada veri kayıt bölümünde personellere ait verileri banka listesinde istenilen bilgileri otomatik oluşturma ayrıca aralarında aynı personele ait birden çok verileri var bunları banka listesine atarken toplayarak atılabilir mi

 

[ÖmerBey]

Merhaba,
Örnek dosyanız için ilgili hücrelere formülleri giriniz ve aşağı çekerek çoğaltınız.
B2: =EĞERHATA(İNDİS('VERİ KAYIT'!$B$2:$B$6;KAÇINCI(0;EĞERSAY($B$1:$B1;'VERİ KAYIT'!$B$2:$B$6);0));"")
B2 hücresinin formülü dizi formülüdür.(Hücre içerisindeyken Ctrl+Shift+Enter tuşlarına birlikte basarak elde edilir.) Veri aralığını asıl dosyanıza uyarlayınız.

C2: =EĞERHATA(DÜŞEYARA(B2;'VERİ KAYIT'!B:C;2;0);"")
D2: =EĞER(B2="";"";ETOPLA('VERİ KAYIT'!B:B;'BANKA LİSTESİ'!B2;'VERİ KAYIT'!G:G))
E2: =EĞER(B2="";"";ETOPLA('VERİ KAYIT'!B:B;'BANKA LİSTESİ'!B2;'VERİ KAYIT'!J:J))
F2: =EĞER(B2="";"";ETOPLA('VERİ KAYIT'!B:B;'BANKA LİSTESİ'!B2;'VERİ KAYIT'!K:K))
G2: =EĞERHATA(DÜŞEYARA(B2;'VERİ KAYIT'!B:D;3;0);"")

İyi çalışmalar...

 

[yarbay]

Merhaba,
Örnek dosyanız için ilgili hücrelere formülleri giriniz ve aşağı çekerek çoğaltınız.
B2: =EĞERHATA(İNDİS('VERİ KAYIT'!$B$2:$B$6;KAÇINCI(0;EĞERSAY($B$1:$B1;'VERİ KAYIT'!$B$2:$B$6);0));"")
B2 hücresinin formülü dizi formülüdür.(Hücre içerisindeyken Ctrl+Shift+Enter tuşlarına birlikte basarak elde edilir.) Veri aralığını asıl dosyanıza uyarlayınız.

C2: =EĞERHATA(DÜŞEYARA(B2;'VERİ KAYIT'!B:C;2;0);"")
D2: =EĞER(B2="";"";ETOPLA('VERİ KAYIT'!B:B;'BANKA LİSTESİ'!B2;'VERİ KAYIT'!G:G))
E2: =EĞER(B2="";"";ETOPLA('VERİ KAYIT'!B:B;'BANKA LİSTESİ'!B2;'VERİ KAYIT'!J:J))
F2: =EĞER(B2="";"";ETOPLA('VERİ KAYIT'!B:B;'BANKA LİSTESİ'!B2;'VERİ KAYIT'!K:K))
G2: =EĞERHATA(DÜŞEYARA(B2;'VERİ KAYIT'!B:D;3;0);"")

İyi çalışmalar...

TEŞEKKÜRLER ÖMER HOCAM...

 

[Hacı Bayram ÖZKAN]

Merhabalar; Ömer bey güzel olmuş elinize sağlık aynı formülü makro ile yazabilir misiniz? Memurlar için çok kullanılan bir dosya

 

[ÖmerBey]

Merhabalar; Ömer bey güzel olmuş elinize sağlık aynı formülü makro ile yazabilir misiniz? Memurlar için çok kullanılan bir dosya

Merhaba, buyurunuz...

Sub Kod()
Dim s1 As Worksheet: Set s1 = Sheets("VERİ KAYIT")
Dim s2 As Worksheet: Set s2 = Sheets("BANKA LİSTESİ")
Dim a As Long, x As Long
x = 2
For a = 2 To s1.Cells(s1.Rows.Count, 2).End(3).Row
    If WorksheetFunction.CountIf(s1.Range("B1:B" & a), s1.Cells(a, "B")) = 1 Then
        s2.Cells(x, "A") = x - 1
        s2.Cells(x, "B") = s1.Cells(a, "B")
        s2.Cells(x, "C") = s1.Cells(a, "C")
        s2.Cells(x, "D") = WorksheetFunction.SumIf(s1.Range("B:B"), s1.Cells(a, "B"), s1.Range("G:G"))
        s2.Cells(x, "E") = WorksheetFunction.SumIf(s1.Range("B:B"), s1.Cells(a, "B"), s1.Range("J:J"))
        s2.Cells(x, "F") = WorksheetFunction.SumIf(s1.Range("B:B"), s1.Cells(a, "B"), s1.Range("K:K"))
        s2.Cells(x, "G") = s1.Cells(a, "D")
        x = x + 1
    End If
Next
MsgBox "İşlem tamam"
End Sub

 

[Hacı Bayram ÖZKAN]

Ömer bey yeni gördüm, unuttunuz sanmıştım meğer yanılmışım çok teşekkür ederim eline sağlık dua ile kal

 

[ÖmerBey]

Rica ederim, iyi çalışmalar...