Personel icmal excel dosyam ekte yardımcı olurmusunuz..

[muzo696]

arkadaşlar dosya ekte bakıp yardımcı olursanız sevinirim..

 

[ASLAN7410]

Merhaba.

İşlem formülle yapılmıştır.

 

[muzo696]

dosya çok kasıyor bunu makro ile yapmanın imkanı yokmu acaba @ASLAN7410

 

[ASLAN7410]

Maalesef makro yazmayı bilmediğim için bu konuda başka arkadaşlar yardımcı olabilirler.

 

[muzo696]

diğer arkadaşlardan yardım bekliyorum

 

[muzo696]

kimse yokmu yardımcı olacak arkadaslar

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

son = s1.Cells(Rows.Count, "A").End(3).Row

s2.[B3:K18, B22:B23, B26:B27] = ""
For i = 2 To son
    If s1.Cells(i, "D") <> "" Then
        sütun = WorksheetFunction.Match(s1.Cells(i, "D"), s2.Range("B2:K2"), 0) + 1
        satır = WorksheetFunction.Match(s1.Cells(i, "E"), s2.Range("A3:A18"), 0) + 2
        s2.Cells(satır, sütun) = s2.Cells(satır, sütun) + 1
        If s1.Cells(i, "H") = "BAY" Then s2.[B22] = s2.[B22] + 1
        If s1.Cells(i, "H") = "BAYAN" Then s2.[B23] = s2.[B23] + 1
        If s1.Cells(i, "F") = "X" Then s2.[B26] = s2.[B26] + 1
        If s1.Cells(i, "F") = "Y" Then s2.[B27] = s2.[B27] + 1
    End If
Next
End Sub

Toplam kısımlarında otomatik toplam formüllerini yapmayı unutmayınız:
L3 için aşağıdaki formülü yazıp aşağı doğru kopyalayın:

=TOPLA(B3:K3)

B19 için aşağıdaki formülü yazıp sağa doğru kopyalayın:

=TOPLA(B3:B18)

 

[muzo696]

@YUSUF44 denedim ancak sadece uzmanlık ve cinsiyet kısmı çalıştı.. sen örnek dosyada uygulayıp atabilirmisin..

 

[YUSUF44]

Kodlar örnek dosyanızda düzgün bir şekilde çalışıyor. Sizde çalışmadıysa verileriniz birbirine uyumlu değil demektir.