Karışık listedeki isimleri bir yerde toplayıp toplam alma

[hakankilic]

Saygıdeğer büyüklerim. 6 (fazlada olabilir) bölüm var ve bu bölümde çalışanlar var. 6 bölümün ilk harfleri çalışanların ad ve soyadlarının başına getirerek nerede çalıştıklarını gösteriyor. Kişilerin karşısında da ücretleri var. Formül kullanarak sonuç elde ediyorum. Macro ile bunu yapabilirmisiniz? Dosyayı ekledim. Saygılarımla.

 

[Ziynettin]

Buyrun.

Sub aktar()
Set s1 = Sheets("LİSTE")
Set s2 = Sheets("SONUÇ")
a = s1.Range("B3:C" & s1.Cells(Rows.Count, 2).End(3).Row)
ReDim b(1 To UBound(a), 1 To 3)
aranan = "HT*"
    For i = 1 To UBound(a)
        If a(i, 1) Like aranan Then
            say = say + 1
            b(say, 1) = say
            b(say, 2) = a(i, 1)
            b(say, 3) = a(i, 2)
            t = t + a(i, 2)
        End If
    Next i
    b(say + 1, 3) = t
s2.[A4].Resize(say + 1, 3) = b
MsgBox "İşlem tamam... ", vbInformation
End Sub

 

[hakankilic]

Harika. Sayın hocam HT için böyle. veri değerleri olan diğer ST, KT, vb. de yanlarına sıralaması lazım. Yani VERİ sayfasında ne varsa sonuç sayfasına ayırarak sıralaması lazım. İlginize tekrar teşekkür ederim.

 

[Ziynettin]

Dosyanız...

 

[hakankilic]

Ellerinize sağlık. Harika olmuş. Birgün bende sizler gibi program yapabilirim inşallah. Saygı ve segilerimle.