[Yardım]  Ayrı Sayfalardan Veri Kopyalama ve Kod Sadeleştirme

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

Ayrı Sayfalardan Veri Kopyalama ve Kod Sadeleştirme

İleti#1)  Kayrakli » 20 Tem 2018 15:43

merhabalar,
kod bilgim sıfır buradan gördüğüm kodlar ve bilgiler üzerinde bir makro yaptım ve çalışır hale getirdim.
bir iki ufak sorunum kaldı yardımlarınızı bekliyorum.

64 tane servisin google form üzerinden yoklamalarını girdiği bir excel dosyam var.
her sayfadaki dökümleri bir sayfaya sütun-satır çevirerek kopyalamak istiyorum.
yazdığım kodda
ilk sayfaya gidiyor xlLastCell ile her şeyi kopyalıyor,
ana sayfaya dönüp Transpose:=True ile yapıştırıyor,
bir alt satıra geçiyor ve diğer sayfaya geçip aynı işlemleri tekrar tekrar yapıyor.

1.ana sayfada tekrar çalıştırdığımda alta eklemeye devam ediyor, en başta bir şekilde ana sayfamı nasıl temizlerim ve A1den başlamasını sağlarım?
2.bir alt satıra geçirme işinde biraz hülle yaptım, daha kolay yolu muhakkak var mıdır?
3.ben 10 sayfa için kodu kopyala-yapıştır ile çözdüm ama 64 veya x sayfa için bunu bir döngüye dönüştüremez miyiz?

hepsini becerebilirsem eğer 2.aşama da şöyle bir sorum olacak;
şimdi data az olduğu için baştan başlaması sıkıntı yaratmıyor ancak her gün 1200 öğrenci datası gelecek bir kaç vakit sonra sıkıntı olacak.
bir şekilde dosyaları kontrol edip sadece yeni eklenen bilgileri çekmesini nasıl sağlayabilirim?

yardımlarınız için şimdiden teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Kayrakli
 
Adı Soyadı:Kayhan Kayrakli
Kayıt: 19 Kas 2010 17:58
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Sakarya

Cevap: Ayrı Sayfalardan Veri Kopyalama ve Kod Sadeleştirme

İleti#2)  Ali ÖZ » 20 Tem 2018 16:21

Merhaba,
Makro kodunuzu bu şekilde değiştirin.Sayfa sayısında bağlı kalmadan tüm sayfalardaki verileri çekebilirsiniz.

Kod: Tümünü seç
Sub Makro3()
  Sheets("Sayfa4").UsedRange.Clear
  For i = 2 To Sheets.Count
    Sheets(i).UsedRange.Copy
    Sheets("Sayfa4").Range("a65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
  Next
End Sub
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: 9374
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Ayrı Sayfalardan Veri Kopyalama ve Kod Sadeleş

İleti#3)  Kayrakli » 20 Tem 2018 16:29

1004 hatası aldım son satırda. application or object-defined diyor.
ben mi hata yaptım acaba bir yerde?
Kullanıcı avatarı
Kayrakli
 
Adı Soyadı:Kayhan Kayrakli
Kayıt: 19 Kas 2010 17:58
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Sakarya

Cevap: Ayrı Sayfalardan Veri Kopyalama ve Kod Sadeleştirme

İleti#4)  Ali ÖZ » 20 Tem 2018 16:30

Kodu güncelledim yeniden kopyalayıp deneyin.
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: 9374
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Ayrı Sayfalardan Veri Kopyalama ve Kod Sadeleş

İleti#5)  Kayrakli » 20 Tem 2018 16:44

elinize sağlık süper oldu.

Kod: Tümünü seç
.Range("a65536").End(3)(2, 1)

kısmının mantığını anlatabilir misiniz?
Kullanıcı avatarı
Kayrakli
 
Adı Soyadı:Kayhan Kayrakli
Kayıt: 19 Kas 2010 17:58
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Sakarya

Cevap: Cevap: Cevap: Ayrı Sayfalardan Veri Kopyalama ve Kod

İleti#6)  Ali ÖZ » 23 Tem 2018 12:40

Kayrakli yazdı:elinize sağlık süper oldu.

Kod: Tümünü seç
.Range("a65536").End(3)(2, 1)

kısmının mantığını anlatabilir misiniz?


İlk boş satır.
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: 9374
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot] ve 5 misafir

cron
Bumerang - Yazarkafe