[Yardım]  Döngü ile sayfalardan belirli hücrelerden veri çekmek

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

Döngü ile sayfalardan belirli hücrelerden veri çekmek

İleti#1)  amaahmet_06 » 11 Şub 2020 21:19

Forumda araştırdım gerçekten uyan bulamadım, excelde yeniyim.
Aslında sorum çok basit. 5 tane sayfa var diyelim devamlı artacak o yüzden döngü ile devam etmeli. Belirli şablonum var yani ben sürekli sallıyorum bütün sayfalardan a5, b2, d4, e9 hücresindeki bilgileri açtığım boş çalışma sayfasında sırayla listenmesini istiyorum.
Örnek olarak
Çalışma Sayfa1 - ""a5 verisi"" - b2 verisi - d4 verisi - e9 verisi
Calısma Sayfa2 - "a5 verisi" - b2 verisi
devam şeklinde. En üst satıra başlık atıcam yazmaya 2. satırdan başlarsa harika olur.
Şimdiden teşekkürler
Kullanıcı avatarı
amaahmet_06
 
Kayıt: 11 Şub 2020 21:14
Meslek: IT
Yaş: 12
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara / yenimahalle

Cevap: Döngü ile sayfalardan belirli hücrelerden veri çekmek

İleti#2)  Ali ÖZ » 12 Şub 2020 07:52

Merhaba,
Örnek;
Kod: Tümünü seç
for i = 2 to sheets.count
sheets(i).range("a1:b5").copy sheets("sayfa1").range("a65536").end(3)(2,1)
next
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 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 10096
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Döngü ile sayfalardan belirli hücrelerden veri çekmek

İleti#3)  amaahmet_06 » 12 Şub 2020 08:14

Ali ÖZ yazdı:Merhaba,
Örnek;
Kod: Tümünü seç
for i = 2 to sheets.count
sheets(i).range("a1:b5").copy sheets("sayfa1").range("a65536").end(3)(2,1)
next

hocam güzel ama a1:b5 yazdığımız zaman sadece o iki hücredeki bilgiler geliyor ben 4-5 tane daha hücredeki bilgileri istiyorum. Bir de toplamı işlemi yapmış, fiyat bilgisi çekiyorum hata döndürüyor.
Kullanıcı avatarı
amaahmet_06
 
Kayıt: 11 Şub 2020 21:14
Meslek: IT
Yaş: 12
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara / yenimahalle

Cevap: Döngü ile sayfalardan belirli hücrelerden veri çekmek

İleti#4)  amaahmet_06 » 12 Şub 2020 08:25

Bir de bazı hücreleri almak istediğimde, bu işlemi birleştirilmiş bir hücrede yapamıyoruz hatası veriyor run-time error 1004
Kullanıcı avatarı
amaahmet_06
 
Kayıt: 11 Şub 2020 21:14
Meslek: IT
Yaş: 12
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara / yenimahalle

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

Cevap: Döngü ile sayfalardan belirli hücrelerden veri çekmek

İleti#5)  Miraç CAN » 12 Şub 2020 10:55

Her sayfayı 1 satıra listelenmesi düşünülerek;
Kod: Tümünü seç
satır = 1
For i = 1 To Sheets.Count
    If Not Sheets(i).Name Like ActiveSheet.Name Then
        satır = satır + 1
        Cells(satır, "a") = Sheets(i).Range("a2").Value
        Cells(satır, "b") = Sheets(i).Range("b2").Value
        Cells(satır, "c") = Sheets(i).Range("d4").Value
        Cells(satır, "d") = Sheets(i).Range("e9").Value
    End If
Next
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Sogou, Yandex[Bot] ve 6 misafir

Bumerang - Yazarkafe