Rapor Alma

[saroz]

Arkadaşlar istediğim ayı seçtiğimde İsim altına o kişi için kaç tana malzeme geldi. Rapor olarak görünmesini istiyorum. Dosya ektedir. Bu işlem MAKRO ile yapılabilir mi?

 

[Ömer]

Merhaba,

D5 hücresine yazarak yan hücrelere kopyalayınız..

=TOPLA.ÇARPIM((LİSTE!$D$2:$D$1000=$B$4)*(LİSTE!$C$2:$C$1000=D4))

.

 

[Orion1]

Arkadaşlar istediğim ayı seçtiğimde İsim altına o kişi için kaç tana malzeme geldi. Rapor olarak görünmesini istiyorum. Dosya ektedir. Bu işlem MAKRO ile yapılabilir mi?

Dosya ektedir.
kodlar çalışma sayfasının kod modülünde.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sut As Integer, k As Integer
If Intersect(Target, [B4]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Sheets("LİSTE").Range("A1").AutoFilter
Sheets("LİSTE").Range("A1").AutoFilter field:=4, Criteria1:=Target.Value
sut = Cells(4, 256).End(xlToLeft).Column
For k = 4 To sut
    Sheets("LİSTE").Range("A1").AutoFilter field:=3, Criteria1:=Cells(4, k).Value
    Cells(5, k).Value = WorksheetFunction.Subtotal(103, Sheets("LİSTE").Range("C2:C65536"))
Next
Sheets("LİSTE").Range("A1").AutoFilter
Sheets("LİSTE").Range("A1").AutoFilter

End Sub