sayfları tek sayfada alt alta birleştirme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

sayfları tek sayfada alt alta birleştirme

İleti#1)  murat061634 » 10 Tem 2018 17:28

iyi çalışmalar dilerim.
Makro onusunda çok yeniyim sorum basit gelebilir kusuruma bakmayın ama çözüm bulamadım.
Sorum... Plaka ve Adres sayfalarındaki verilerin VERİLER sayfasında alt alta birleştirilmesi.
veriler sayfasında kaynak dosya sütununa ise hangi çalışma sayfasından veri alındıysa onun yazılması.
örnek dosyamı ekledim şimdiden teşekkür ederim.
(verilen cevapta koda ilişkin açıklama yazarsanız öğrenmeme daha fazla katkısı olacaktır)
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
murat061634
 
Kayıt: 18 Oca 2018 16:48
Meslek: memur
Yaş: 37
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/nilüfer

Cevap: sayfları tek sayfada alt alta birleştirme

İleti#2)  Ali ÖZ » 11 Tem 2018 12:45

Kod: Tümünü seç
Application.ScreenUpdating = False
    For i = 2 To Sheets.Count
        Sheets(i).Range("a2:b" & Sheets(i).Range("A65536").End(3).Row).Copy
        Sayfa12.Range("c65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
        Sayfa12.Range("b65536").End(3)(2, 1).Value = Sheets(i).Name
    Next
Application.ScreenUpdating = True
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9430
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 3 misafir

Bumerang - Yazarkafe