• DİKKAT

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

30 Sekmelik Bir Excelde Tarihle Birlikte İcmal Oluşturma

  • Konbuyu başlatan Konbuyu başlatan td877
  • Başlangıç tarihi Başlangıç tarihi
Katılım
11 Ağustos 2015
Mesajlar
80
Excel Vers. ve Dili
2016
TÜRKÇE
Merhaba,

Ayın 1'inden, 31'ine kadar tuttuğumuz puantaj tablomuzu ay sonunda toplu görebilmek adına birleştirmek istiyorum.

Örnek bir dosyayı ekte iletiyorum.

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

 
Deneyiniz.

C++:
Option Explicit

Sub Icmale_Aktar()
    Dim S1 As Worksheet, Sh As Worksheet, Satir As Long, Son As Long, Zaman As Double
    
    Zaman = Timer
    
    Set S1 = Sheets("İcmal")
    
    S1.Range("B3:D" & S1.Rows.Count).Clear
    
    Satir = 3
    
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <> S1.Name Then
            Son = Sh.Cells(Sh.Rows.Count, "C").End(3).Row
            If Son > 3 Then
                S1.Range("B" & Satir).Resize(Son - 3, 1).Value = Sh.Name
                S1.Range("C" & Satir).Resize(Son - 3, 2).Value = Sh.Range("C4:D" & Son).Value
                Satir = S1.Cells(S1.Rows.Count, "C").End(3).Row + 1
            End If
        End If
    Next
    
    S1.Range("B:D").EntireColumn.AutoFit
    S1.Range("B3:D" & Satir - 1).Borders.LineStyle = 1
    S1.Select
    
    Set S1 = Nothing
    
    MsgBox "Aktarım işlemi tamamlanmıştır." & vbLf & vbLf & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
End Sub
 
Geri
Üst