Bir sayfadaki araç verilerini listeye aktarma

[kelkitli]

Selamlar,
RAPOR Sayfasında A sütununda yazılı araçlar, AKARYAKIT sayfasında topla.çarpım makrosu ile aranıp,tarihler aylara göre tutar toplamları RAPOR sayfasına akrarılacak.
Saygılar.

 

[Ömer]

Selamlar,
RAPOR Sayfasında A sütununda yazılı araçlar, AKARYAKIT sayfasında topla.çarpım makrosu ile aranıp,tarihler aylara göre tutar toplamları RAPOR sayfasına akrarılacak.
Saygılar.

Merhaba,

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
 
    Dim i As Long, c As Range, ilkadres As Variant, Sa As Worksheet, ay As Byte
 
    Set Sa = Sheets("AKARYAKIT")
 
    Application.ScreenUpdating = False
    Range("B4:N" & Rows.Count).ClearContents
 
    With Sa.Range("C:C")
        For i = 4 To Cells(Rows.Count, "A").End(xlUp).Row
            Set c = .Find(Cells(i, "A"), , xlValues, xlWhole)
            If Not c Is Nothing Then
                ilkadres = c.Address
                Do
                    ay = Month(Sa.Cells(c.Row, "B")) + 1
                    Cells(i, ay) = Cells(i, ay) + Sa.Cells(c.Row, "I")
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> ilkadres
            End If
            Cells(i, "N") = Evaluate("=Sum(B" & i & ":M" & i & ")")
        Next i
    End With
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[1Al2Ver]

Selamlar,
RAPOR Sayfasında A sütununda yazılı araçlar, AKARYAKIT sayfasında topla.çarpım makrosu ile aranıp,tarihler aylara göre tutar toplamları RAPOR sayfasına akrarılacak.
Saygılar.

Merhaba,

Topla.Çarpım ile alternatif çözüm.

 

[assenucler]

Teşekkürler

Sayın Ömer ve 1Al2Ver;

İyi geceler.

Katkılarınız için teşekkürler.

Sevgi ve saygılar.

 

[kelkitli]

--------------------------------------------------------------------------------
Sayın Ömer ve 1Al2Ver,
Teşekkürlerimi iletirim.

 

[1Al2Ver]

Sayın assenucler, Sayın kelkitli, merhaba,

Ben de nezaketiniz için teşekkür ederim.

Saygılarımla.