Soru Makro yazarken Excelde Sayfalara değişken atamak

[barangulsay]

Merhaba
(Buraya resim ekleyemedim)

Şöyle bir sorunum var
Elimdeki excelde 302 sayfa var.

Sayfalar İsmi SAYFA1 (1), Sayfa1 (2), Sayfa1 (3) şeklinde üretilmiş.
Ben ÖZET bir tablo oluşturup, hepsini tek sayfada tek tabloda göstermek istiyorum. Daha doğrusu benden istenen rapor böyle. Ancak, sayfalar oluşturulurken Sayfa1, sayfa2, sayfa3 şeklinde değil de, Sayfa1 (1), Sayfa1 (2),Sayfa1 (3) şeklinde kopyalamışlar.

2 sorum olacak :

Burası sayfa 1'in bilgilerini alıyor. Tek satıra yazıyor.

Sub Makro1()
Cells(3, 3).Select
ActiveCell.FormulaR1C1 = "='Sayfa1 (1)'!R[46]C[2]"
Cells(3, 5).Select
ActiveCell.FormulaR1C1 = "='Sayfa1 (1)'!R[46]C[7]"
Cells(3, 7).Select
ActiveCell.FormulaR1C1 = "='Sayfa1 (1)'!R[46]C[12]"
Cells(3, 9).Select
ActiveCell.FormulaR1C1 = "='Sayfa1 (1)'!RC[7]"
End Sub


SAYFA1 (2) yani 2. sayfanın biligilerini alabilmek için:

Cells(3, 3).Select
ActiveCell.FormulaR1C1 = "='Sayfa1 (2)'!R[46]C[2]"
Cells(3, 5).Select
ActiveCell.FormulaR1C1 = "='Sayfa1 (2)'!R[46]C[7]"
Cells(3, 7).Select
ActiveCell.FormulaR1C1 = "='Sayfa1 (2)'!R[46]C[12]"
Cells(3, 9).Select
ActiveCell.FormulaR1C1 = "='Sayfa1 (2)'!RC[7]"

Ve hakeza Sayfa 1(3), Sayfa1 (4), Sayfa1 (5) ......Sayfa1 (302) ye kadar yapmam gerekiyor.
Ama burada Sayfalara değişken atayamıyorum. Nasıl atayabilirim ?


2-
Sayfa1 (1), Sayfa1 (2), Sayfa1 (3) şeklinde 302 sayfanın ismini Sayfa1, Sayfa2, Sayfa3 şeklinde nasıl değiştirebilirim ?

Teşekkürler

 

[Korhan Ayhan]

Merhaba,

Linkteki #5 nolu mesajda ki kodu kendinize uyarlayınız.

DATA adında bir sayfa oluşturup sayfaları konsolide eder.

Sayfa Adını Hücreye yazdırmak (ekli makroya ilave)

Merhaba; Forumdan aldığım bu kod ile Kitaptaki sayfaların özeti DATA sayfasına geliyor. Fakat hangi ürünlerin hangi sayfalardan geldiğini görmek için yandaki kolonada sayfa isimlerini yazdırmak istiyorum. ActiveSheet.Name denedim olmadı. Acaba koda nasıl bir ekleme yapmak gerekiyor? Sub...

www.excel.web.tr

 

[Korhan Ayhan]

Yine benzer konular.

Makro ile birden fazla sayfayı birleştirme

Selamlar, Örnek olarak belirtmiş olduğum dosyadaki birden fazla sayfayı "Data" adında yeni bir sayfada alt alta toplamak istiyorum. Bunun makro ile çalışır bir yöntemi veya kodu var mıdır, desteğinizi rica ediyorum.

www.excel.web.tr

Çalışma Kitabındaki Tüm Verileri Tek Sayfada Toplamak

Ek'te bulunan örnek çalışmamda açıklama yapmaya çalıştım. Bilgi sistemimizden aldığımız haftalık veri raporunda yaklaşık 250 personelimizin her hafta gitmiş olduğu illeri rapor olarak almaktayız. Ancak bu bilgiler aynı çalışma kitabında tek sayfada değil her personel için bir sayfa olacak...

www.excel.web.tr

 

[barangulsay]

Korhan Bey Çok teşekkür ederim ama ben o VB kodlarına çok hakim değilim.
Burada yazdığımı da çok eski aşinalığımla yazdım.

Sayfaya değişken atama tam olarak nasıl yapılıyor ?

 

[Korhan Ayhan]

Verdiğim linklerde ki kod ile pratik bir şekilde sayfaları konsolide edebilirsiniz.

 

[Korhan Ayhan]

Kendi kullandığınız kodu aşağıdaki gibi kullanabilirsiniz.

Sub Makro1()
    Sayfa = "Sayfa1 (1)"
    Cells(3, 3).FormulaR1C1 = "='" & Sayfa & "'!R[46]C[2]"
    Cells(3, 5).FormulaR1C1 = "='" & Sayfa & "'!R[46]C[7]"
    Cells(3, 7).FormulaR1C1 = "='" & Sayfa & "'!R[46]C[12]"
    Cells(3, 9).FormulaR1C1 = "='" & Sayfa & "'!RC[7]"
End Sub

 

[barangulsay]

Muhteşem...
Çok teşekkür ederim
Elinize sağlık
Hemen deneyeceğim

 

[barangulsay]

Maalesef olmadı. Sayfayı değişken olarak atayamıyor.
Zahmet verdim teşekkür ederim

 

[Korhan Ayhan]

Peki tam olarak ne oluyor?

 

[barangulsay]

Sayfa arıyor. Sayfa aç penceresi açılıyor. Ben buraya resim neden yükleyemiyorum ?
Yeni üye olduğum için mi ?

 

[Korhan Ayhan]

Foruma direkt dosya yükleme işlemleri için altın üyelik satın almalısınız.

Bunun dışında harici paylaşım sitelerine yükleme yaparak linkini forumda paylaşabilirsiniz.

 

[barangulsay]

Durum şöyle kısa bir açıklama yapmış olayım

1.jpg dosyasını indir - download

1.jpg dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

2.jpg dosyasını indir - download

2.jpg dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[Korhan Ayhan]

Siz silme linkini paylaşmışsınız. İndirme linkini paylaşınız.

 

[barangulsay]

Düzelttim Korhan Bey

 

[Korhan Ayhan]

Hangi hücreleri hangi sütunlara almak istiyorsunuz.

Hücre adreslerini yazar mısınız?

 

[Korhan Ayhan]

Sanırım aşağıdaki kod işinizi görecektir.

Option Explicit

Sub Sayfalardan_Verileri_Aktar()
    Dim X As Integer, Satir As Integer, Sayfa As Worksheet
    
    Satir = 3
    
    For X = 1 To 302
        On Error Resume Next
        Set Sayfa = Nothing
        Set Sayfa = Sheets("Sayfa1 (" & X & ")")
        On Error GoTo 0
        
        If Not Sayfa Is Nothing Then
            Cells(Satir, 3).Formula = "='" & Sayfa.Name & "'!E49"
            Cells(Satir, 5).Formula = "='" & Sayfa.Name & "'!L49"
            Cells(Satir, 7).Formula = "='" & Sayfa.Name & "'!S49"
            Cells(Satir, 9).Formula = "='" & Sayfa.Name & "'!P3"
            Satir = Satir + 1
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[barangulsay]

Bravo
Çok teşekkür ederim
Elinize sağlık sorun çözüldü