• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Satış aktarma

Katılım
26 Ocak 2006
Mesajlar
757
Excel Vers. ve Dili
Office 365 İngilizce 64 Bit
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.
 

Ekli dosyalar

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("f4:o9").ClearContents
Range("f12:o17").ClearContents
Range("f20:o25").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
 

Ekli dosyalar

Uzman arkadaşlar dosyayı incelerseniz çok sevinirim.
 
Uzman arkadaşlardan yardım bekliyorum.
 
Geri
Üst