benzer isimleri bir defa ve karşısındaki değerleri topla yaz.

[vitaminb1]

banka listesi adı soyadı bölümüne bordrodaki isimlerin geçmesini istiyorum.bordroda benzer iki isim olduğunda birinin geçmesini ve ödenecek tutara bordroda isimlerin karşısında bulunana ödenecek net tutar gelmesini istiyorum benzer iki isim olduğunda ikisi toplanıp yazılmasını istiyorum. yardımlarınızı bekliyorum.örnek dosya ektedir.

 

[Vedat Özer]

Selamun Aleyküm,

Umarım doğru anlamışımdır,

Banka Listesi sayfa sekmesinde e7 Hücresine,

=ETOPLA(BORDRO!B$13:B$50;'BANKA LİSTESİ'!B7;BORDRO!X$13:X$50)

Aşagıya doğru Çekin.

 

[usubaykan]

Merhaba;

Aşağıdaki kodu dener misiniz?

Option Explicit
Sub LİSTELE()
Dim U As Long, Son_Satır As Long, S1 As Worksheet, S2 As Worksheet, TOPLA As Double
Set S1 = Sheets("BORDRO")
Set S2 = Sheets("BANKA LİSTESİ")
    S1.Range("B1:B65536").ClearContents
    Son_Satır = 13
    For U = 7 To S2.Range("B65536").End(3).Row
        If WorksheetFunction.CountIf(S1.[B:B], S2.Cells(U, "B")) <= 0 Then
            S1.Cells(Son_Satır, "B") = S2.Cells(U, "B")
            Son_Satır = S1.Range("B65536").End(3).Row + 1
                TOPLA = WorksheetFunction.SumIf(S2.Range("B:B"), S1.Cells(Son_Satır - 1, "B"), S2.Range("E:E"))
                    S1.Cells(Son_Satır - 1, "X") = CCur(TOPLA)
                    Else
                TOPLA = WorksheetFunction.SumIf(S2.Range("B:B"), S1.Cells(Son_Satır - 1, "B"), S2.Range("E:E"))
            S1.Cells(Son_Satır - 1, "X") = CCur(TOPLA)
        End If
    Next
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[vitaminb1]

Aleyküm slm. Sn Vedat Özer bey sizin verdiğiniz kod toplama işleminde işimi görüyor. sorunumun bir kısmını hallettim.şimdi isimleirinde bordro sayfasından otamatik olarak aşağıya doğru çektiğimde almasını istiyorum, orada da bordroda benzer iki isim olduğunda tek isim yazsın istiyorum.
Sn usubaykan'ın vermiş olduğu kodu çalıştıramadım ben bu işlemi kod düğme vb olmadan formül kullanarak işlemi yapmak 1. tercihim. eğer formül ile işimi halledemessem kod kullanmak isterim ilginize teşekkürler.

 

[İhsan Tank]

Aleyküm slm. Sn Vedat Özer bey sizin verdiğiniz kod toplama işleminde işimi görüyor. sorunumun bir kısmını hallettim.şimdi isimleirinde bordro sayfasından otamatik olarak aşağıya doğru çektiğimde almasını istiyorum, orada da bordroda benzer iki isim olduğunda tek isim yazsın istiyorum.
Sn usubaykan'ın vermiş olduğu kodu çalıştıramadım ben bu işlemi kod düğme vb olmadan formül kullanarak işlemi yapmak 1. tercihim. eğer formül ile işimi halledemessem kod kullanmak isterim ilginize teşekkürler.

formül ile yaptım umarım istediğiniz gibi olmuştur.
F1 formülü silmeyiniz. mavi boyalı alandaki formül ile F1'deki formül dizi formülüdür. kıstas olarak 50'ye ayarlanmıştır tüm formüller.
dizi formülü ctrl+shift+enter tuş kombinasyonu ile aktif olmaktadır. hücreye girilip yanlışlıkla enter tuşuna basıldıysa F2 tuşuna basıldıktan sonra aktif hale getiriniz. formülün başında ve sonunda { } bu işaretler çıkmaktadır el ile girildiğinde hata verecektir. Kombinasyon bunu otomatik şekilde yapacaktır.
dosyayı inceleyiniz

 

[vitaminb1]

teşekkürler.

 

[İhsan Tank]

teşekkürler.

rica ederim
iyi çalışmalar :mutlu: