Dosyada bulunan tüm sayfalardaki bilgileri aynı sayfaya alma

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Çok sayfalı bir dosyanın sayfalarındaki tüm bilgileri ilk sayfada toplamak istiyorum. Bilgiler her sayfada A:H sütunlarında, farklı satır sayılı. Yardımcı olursanız sevinirim.
Saygılarımla

 

[Korhan Ayhan]

Mükerrerlik kontrolü yapılacak mı?

 

[Tevfik_Kursun]

Sayın Korhan Hocam,
Her sayfayı bir defa alacak. Sayfalardaki bilgiler zaten farklı.
Saygılarımla

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Sayfalari_Tek_Sayfada_Birlestir()
    Dim S1 As Worksheet, Sh As Worksheet
    Dim X As Integer, Son As Long, Zaman As Double
   
    Zaman = Timer
   
    Application.ScreenUpdating = False
   
    Set S1 = Sheets(1)
    S1.Range("A2:H" & S1.Rows.Count).ClearContents
   
    For X = 2 To Sheets.Count
        Set Sh = Sheets(X)
        Son = Sh.Cells(Sh.Rows.Count, 1).End(3).Row
        Sh.Range("A1:H" & Son).Copy S1.Cells(S1.Rows.Count, 1).End(3)(2, 1)
    Next
       
    Set Sh = Nothing
    Set S1 = Nothing
       
    Application.ScreenUpdating = True
       
    MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & Chr(10) & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
End Sub

 

[Tevfik_Kursun]

Sayın Korhan Hocam,
İlginize çok teşekkür ederim. Sadece bir sorun var. Kopyalamıyor sanırım, sondaki sayı sıralı değişiyor.
saygılarımla

 

[Tevfik_Kursun]

Sayın Korhan Hocam,
Resimdeki hatayı yok etmek mümkün mü?
Saygılarımla

 

[Korhan Ayhan]

Resimdeki hatayı maalesef anlamadım.

 

[Tevfik_Kursun]

Sayın Korhan Hocam,
İlacın adı Eutrox 75, ama her satırda bir artarak kopyalanmış.
Saygılarımla

 

[Haluk]

Örnek dosya eklemediğiniz için bir karambol olmuş gibi..... ilacın başlangıcını doğru yazdığına da şükretmek lazım

.

 

[Tevfik_Kursun]

Merhaba,
Kabahat bende. Hepinize çok teşekkür ederim. İyi ki varsınız.
Saygılarımla