Makro ile tablo doldurma

[bmutlu966]

Bir sayfadan diğerine makro ile bilgi taşımak istiyorum. örnek ekte... şimdiden teşekkürler.

 

[bmutlu966]

Çok zor bir kodlama olmalı. Mümkünatı yokmu acaba ?

 

[Orion1]

Dosyanız ekte.

Sub aktar()
Dim k As Range, i As Long, j As Range
Sheets("Rapor").Select
Application.ScreenUpdating = False
Range("B2:IV65536").ClearContents
With Sheets("Sheet1")
    For i = 2 To .Cells(65536, "A").End(xlUp).Row
        Set k = Range("A2:A65536").Find(.Cells(i, "A").Value, , xlValues, xlWhole)
        If Not k Is Nothing Then
            Set j = Range("B1:IV1").Find(.Cells(i, "B").Value, , xlValues, xlWhole)
            If Not j Is Nothing Then
                Cells(k.Row, j.Column) = Cells(k.Row, j.Column) + .Cells(i, "C").Value
            End If
        End If
    Next i
End With
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

 

[bmutlu966]

Dostum sen süpersin. Çok teşekkürler.

 

[Orion1]

Dostum sen süpersin. Çok teşekkürler.

Rica ederim.
O sizin süperliğiniz.

 

[ziya]

Sn Gizlen merhaba,
Benzeri bri çalışmaya ihtiyacım var. Pivot tablo ile yapıyordum şimdiye kadar, kodlarla uğraştım beceremedim. Sizin kodlarınızı da kendime uyarlayamadım.
Örnek dosya ekte.
Selamlar,