Satış aktarma

[bmutlu966]

Arkadaşlar,
Bir sayfadaki Datayı diğer bir sayfadaki rapor formatına makro ile aktarmam gerekiyor. Data sayfasına zaman zaman kolon ilave olacak olması işimi zorlaştırdı. Uğraştım ancak beceremedim. uzmanlarımızdan yardım bekliyorum. Ayrıca dosyada açıklama mevcut.

 

[bmutlu966]

Arkadaşlar aşağıdaki kodalar ile aktarmayı yapabiliyorum. Ancak tarih kolonundaki tarihleri eşleştirme yapmıyor. Ancak tarih yerine bir metin girersem kodlar calışıyor. Bu kodda nasıl bir değişiklik yapmam gerekiyor.

Sub aktar()
Dim k As Range, i As Long, j As Range
Sheets("Terr Satışları").Select
Application.ScreenUpdating = False
Range("f49").ClearContents
Range("f1217").ClearContents
Range("f2025").ClearContents

With Sheets("Data")
For i = 3 To .Cells(65536, "A").End(xlUp).Row
Set k = Range("A3:A65536").Find(.Cells(i, "A").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
Set j = Range("F3:IV3").Find(.Cells(i, "F").Value, , xlValues, xlWhole)
If Not j Is Nothing Then
Cells(k.Row, j.Column) = Cells(k.Row, j.Column) + .Cells(i, "G").Value
End If
End If
Next i
End With
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

 

[bmutlu966]

Uzman arkadaşlar dosyayı incelerseniz çok sevinirim.

 

[bmutlu966]

Uzman arkadaşlardan yardım bekliyorum.