İcmal Sayfası Oluşturma

[devinim]

Merhabalar,
Çok basit bir konuda yardıma ihtiyacım var.

Örnek dosyada gün bazında veriler var. İstediğim "icmal" sayfasına otomatik olarak gün bazında yazılanların atması.

Bir de veri sayfasında da , sürücü bazında atmış oldukları sevkıyat sayılarının ve yapmış oldukları km ^lerin otomatik olarak atması.

Yardımlarınız için şimdiden çok teşekkür ederim.

Oktay Coşar

 

[usubaykan]

Merhaba,

Kod bölümüne aşağıdaki kodu dener misiniz?

Option Explicit
Sub İCMAL()
Dim U As Long, S As Long, Satır As Long
Range("A2:H65536").ClearContents
For U = 1 To Worksheets.Count
    For S = 2 To Sheets(U).Range("A65536").End(3).Row
    If Sheets(U).Name <> "İCMAL" Then
        Satır = Sheets("İCMAL").Range("A65536").End(3).Row
        Satır = Satır + 1
            If Sheets(U).Cells(S, "A") <> "" Then
                Sheets("İCMAL").Cells(Satır, "A") = Format(Sheets(U).Cells(S, "A"), "DD.MM.YYYY") 
                Sheets("İCMAL").Cells(Satır, "B") = Sheets(U).Cells(S, "B")
                Sheets("İCMAL").Cells(Satır, "C") = Sheets(U).Cells(S, "C")
                Sheets("İCMAL").Cells(Satır, "D") = Sheets(U).Cells(S, "D")
                Sheets("İCMAL").Cells(Satır, "E") = Sheets(U).Cells(S, "E")
                Sheets("İCMAL").Cells(Satır, "F") = Sheets(U).Cells(S, "F")
                Sheets("İCMAL").Cells(Satır, "G") = Sheets(U).Cells(S, "G")
                Sheets("İCMAL").Cells(Satır, "H") = Sheets(U).Cells(S, "H")
            End If
    End If
    Next
Next
MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[devinim]

Hızlı Dönüşünüz için çok çok teşekkür ederim.

Bir de son olarak, sürücü bazında atılan sevkıyat sayısı ve yapılan km nin veri sayfasında toplamda görünmesini istiyorum. alacağı bilgiler ise icmal sayfasında.

Şimdiden teşekkür ederim...

 

[usubaykan]

Hızlı Dönüşünüz için çok çok teşekkür ederim.

Bir de son olarak, sürücü bazında atılan sevkıyat sayısı ve yapılan km nin veri sayfasında toplamda görünmesini istiyorum. alacağı bilgiler ise icmal sayfasında.

Şimdiden teşekkür ederim...

Rica ederim.

Veri sayfasının C sütunu için,

=ETOPLA(İCMAL!$B:$B;$B3;İCMAL!$D:$D)

D sütunu için

=ETOPLA(İCMAL!$B:$B;$B3;İCMAL!$G:$G)+ETOPLA(İCMAL!$B:$B;$B3;İCMAL!$H:$H)

yazıp aşağıya doğru çoğaltın.

 

[assenucler]

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

 

[usubaykan]

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

Rica ederim ;-)