mükerrer sütunların yanındaki değişken sütunları ayırmak??

[erkan1907]

Merhaba, ekte anlatmak istediğim konu ile ilgili yardım rica ediyorum.

Kolay gelsin.

 

[muygun]

Merhaba;
G2 hücresine;
=MAK(EĞER($A$2:$A$2000=E2;EĞER($B$2:$B$2000=F2;$C$2:$C$2000)))Formülünü uygulayıp, Formül satırında iken CTRL+SHİFT+ENTER tuşlarına birlikte basarak formülü aktive edin. Bunun sonucunda formülünüz;
{=MAK(EĞER($A$2:$A$2000=E2;EĞER($B$2:$B$2000=F2;$C$2:$C$2000)))}
şeklinde parantezler arasına girecektir (dizi formülü)
daha sonra yeterince aşağı doğru çoğaltın.
İyi çalışmalar.

 

[Orion1]

Dosyanız ektedir.

Sub mukerrer_59()
Dim sat As Long, i As Long, sat2 As Long
Sheets("Sayfa1").Select
Range("A1").AutoFilter
Range("E2:G65536").Clear
sat = Cells(65536, "A").End(xlUp).Row
sat2 = 2
Application.ScreenUpdating = False
For i = 2 To sat
    If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A").Value) = 1 Then
        Cells(sat2, "E").Value = Cells(i, "A").Value
        Cells(sat2, "F").Value = Cells(i, "B").Value
        Range("A1").AutoFilter field:=1, Criteria1:=Cells(i, "A").Value
        Cells(sat2, "G").Value = WorksheetFunction.Subtotal(104, Range("C2:C" & sat))
        sat2 = sat2 + 1
    End If
Next i
Range("A1").AutoFilter
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlanmıştır." & vbLf & _
"evrengizlen@hotmail.com"
    
End Sub

 

[erkan1907]

Öncelikle cevaplarınız için çok teşekkür ederim.

muygun dediğinizi yaptım ama formüle parantezler atmadı ???

Evren Gizlen dediğiniz gibi yaptım ve tamda istediğim şeyi elde ettim.

Her iki arkadaşada çok teşekkür ederim. Allah razı olsun.

Kolay gelsin

 

[Orion1]

Öncelikle cevaplarınız için çok teşekkür ederim.

muygun dediğinizi yaptım ama formüle parantezler atmadı ???

Evren Gizlen dediğiniz gibi yaptım ve tamda istediğim şeyi elde ettim.

Her iki arkadaşada çok teşekkür ederim. Allah razı olsun.

Kolay gelsin

Rica ederim.
İyi çalışmalar.