excel makro ile farklı sayfalardan tek bir sayfaya veri kopyalama

cuneyt_emir · 05-01-2014, 17:56

merhabalar,

ekteki bir dosyam var. bu dosyadaki sayfaları yedek sayfasında birleştirmek istiyorum.

yardımlarınızı rica ederim

kolay gelsin.

cuneyt_emir · 07-01-2014, 14:59

merhabalar,

konu hakkında yardımlarınızı rica ederim.

kolay gelsin.

Taruz · 07-01-2014, 15:45

Merhaba..

Bu birleştirmeyi otomatiğe almak isteyeceğinizi düşünerek ve de Excel VBA bilgimi biraz zorlayarak bir yapı hazırladım.. Bir düğmeye de uygulanabilir elbette..:

Kod:
Private Sub Workbook_Open()

 Dim trz As Integer

    Dim sayToplam As Integer

    Dim i As Integer

 Sheets("yedek").Range("A1:LA65536").ClearContents

    For i = 1 To 2 'sayfa sayısı

        trz = WorksheetFunction.CountA(Worksheets(Worksheets(i).Name).Range("A:A"))

        sayToplam = WorksheetFunction.CountA(Worksheets("yedek").Range("A:A"))

        Worksheets(Worksheets(i).Name).Range("A1:D" & trz).Copy _

             Worksheets("yedek").Range("A" & sayToplam + 1)

    Next i

End Sub

Her açılışta yedek sayfasına diğer sayfalardaki veriler alt alta yazılacaktır..

Kod içinde sayfa sayısını belirleyebilirsiniz..

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Access Te Bulunan Tablodan Excel Userform Labele Veri Atma	ersin_gurbuz	1	380	24-05-2021, 13:43 Son Mesaj: dsezgin
	Excel	evren89	5	882	09-09-2019, 14:30 Son Mesaj: onur_can
	excel vba userform ile access veri tabanına dosya upload etme	arif0636	2	1.028	06-09-2019, 16:28 Son Mesaj: arif0636
	Excelde makro ile satırlara dönüştürme	ygurpinar	2	1.472	02-06-2017, 16:10 Son Mesaj: ygurpinar
	Makro hakkında..	Scrapie	4	1.184	23-03-2017, 09:38 Son Mesaj: Scrapie
	Dolu hücreleri farklı sütuna aktarma	ozkovlu29	1	1.327	14-02-2017, 01:28 Son Mesaj: dsezgin
	DÜŞEYARA Yerine iF ile Sayfalardan veri çek	ozkovlu29	1	1.062	11-02-2017, 12:20 Son Mesaj: ozkovlu29
	Excel VBA Sorusu	mengene	9	3.333	10-11-2016, 11:53 Son Mesaj: jon206

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL