Verilerin tarihe göre ilgili tabloya işlenmesi

[Erdal]

Aşağıdaki kod, AE sütununda veriler girildikçe, ilgili yıl, ay ve AE sütunundaki veri yerine göre kayıt yapıyor.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Application.Intersect(Target, Range("AE9:AE13")) Is Nothing = False Then
adres = Range("CV3").CurrentRegion.Find(What:=Format(Range("E11"), "yyyy")).Offset(2, 0).Address
   adres1 = Range(adres & ":" & Range(adres).Offset(12, 3).Address).Address
  adres2 = Range(adres1).Find(Format(Range("E11"), "mmmm")).Offset(0, 2).Address
sut = Target.Row - 9
Range(adres2).Offset.Offset(0, sut).Value = Target.Value
End If
End Sub

Teşekkür ederim Ali Bey
Hakkınızı helal edin.