Ay sonu fatura listesi

[fatihtutkun]

Değerli arkadaşlar. Ekli dosyada da arz ettiğim gibi, bir fatura listesi sıkıntım var.
Belki daha önceden sizden istenmiş ve hazırlamış olabilirsiniz ama sizin için basit olduğunu düşündüğüm bu yazılımın makro da yazılmasını rica ediyorum.
Yardımcı olursanız çok sevinir, duacınız olurum.
Teşekkür ederim.

 

[Excelmy]

Sayın fatihtutkun ,
Ekli dosyayı inceleyiniz. Eğer istediğiniz gibi olmuş ise , C - D - E sütunlarındaki formulleri arttırarak kullanınız.
Başarılar.

 

[Orion1]

Dosyanız ektedir.
Makro ile yapılmıştır.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
Set k = Sheets("VERİ TABANI").Range("B5:B65536").Find(Target.Value, , xlValues, xlWhole)
Range("C" & Target.Row & ":E" & Target.Row).ClearContents
If Not k Is Nothing Then
    Range("C" & Target.Row & ":E" & Target.Row).Value = _
    Sheets("VERİ TABANI").Range("C" & k.Row & ":E" & k.Row).Value
End If
End Sub