1 sayfadan 1. sayfa

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

İletiTarih: 11 Şub 2020 21:19
amaahmet_06
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

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

İletiTarih: 12 Şub 2020 07:52
Ali ÖZ
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

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

İletiTarih: 12 Şub 2020 08:14
amaahmet_06
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.

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

İletiTarih: 12 Şub 2020 08:25
amaahmet_06
Bir de bazı hücreleri almak istediğimde, bu işlemi birleştirilmiş bir hücrede yapamıyoruz hatası veriyor run-time error 1004

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

İletiTarih: 12 Şub 2020 10:55
Miraç CAN
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