Ayrı sayfadaki bilgileri bir sayfaya ve dolu olan satırların aktarılması

[paracı]

Ekli dosyada da belirttiğim üzere ayrı ayrı sayfadaki bilgileri bir sayfaya ve dolu satırların aktarılması konusunda formül yapmayı bilmiyorum. Bu işlemlerle ilgili yardımlarınızı bekliyor, iyi çalışmalar diliyorum.

 

[Orion1]

Dosyanız hazır.
LİSTELE butonuna basınız.

Sub mesai()
Dim sat As Long, isat As Long
Dim i As Integer, k As Long, j As Byte
Sheets("genel liste").Select
Application.ScreenUpdating = False
Range("A6:D65536").ClearContents
sat = 6
For i = 1 To Worksheets.Count
    If Sheets(i).Name <> "genel liste" Or Sheets(i).Name <> "açıklama" Then
        isat = Sheets(i).Cells(65536, "B").End(xlUp).Row
        For k = 6 To isat
            If Sheets(i).Cells(k, "D").Value <> 0 Then
                Cells(sat, "A").Value = sat - 5
                For j = 2 To 4
                    Cells(sat, j).Value = Sheets(i).Cells(k, j).Value
                Next j
                sat = sat + 1
            End If
        Next k
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Mesailer listelendi..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[Orion1]

Sayfalardaki verileri listeliyor.
Bir veriden birden çok varsa onuda listeliyor.
Siz listelemede Mükerrer kayıt olmasını istemiyorsanız bunu ilk mesajınızda belirtmeniz gerekiyordu.
Listelelen sayfada mükerrer kayıtların olmasını istemiyormusunuz?
Bunu açıklarsanız o duruma göre kodları düzenlerim.!

 

[paracı]

tamam.durumu anladım ben ayrı sayfadaki verileri gerçek isimlerde girdiğimde listede mükerrer olarak kayıt olmayacağını belirtmişsiniz.Açıklamanız için teşekkürler.

 

[paracı]

sayfalara gerçek isimleri girdim.Listede yine mükerrer kayıt yapıyor.liste sonuna toplam tutarı gösterir satır ekleyebilirmiyiz.

 

[Orion1]

Tamamdır.
Durum düzeltildi ve diğer isteğinizde yerine getirildi.
Bir inceleyip sonucu söylermisiniz?
Dosya ekte.