Hücreden Veri çekme

[wildkiss23]

Tabloda da görüldüğü gibi toplam sayfasında eşittir formülü ile  diğer sayfalardan veri çektim.
fakat sayfa sayısı artınca bu sıkıntılı ve çok zaman alıyor. Bunu bir tuşa bağlayıp makro komutlarıyla yapmak istiyorum. Bu konuda yardımlarınızı talep ediyorum.
   
   
Yardımlarınız için şimdiden teşekkürler.

[Hakann]

işçileri sayfa sayfa yazmaktansa bir sayfada takip edemez misin her işçi için sayfa açma tek sayfada olacaksa sana çok güzel takip sayfası yapabilirim

[wildkiss23]

Çıktı aldığım için sayfa sayfa olması iyi olur düşe düşünüyorum. Öbür şekilde nasıl olur bilmem. Sizin önerinizi de görmek isterim tabii. Sizin dediğiniz şekilde bi yapabilir misiniz?

[wildkiss23]

Yokmu Yardım edecek bi arkadaş? 

[hitmen06]

Sub listele()

    Dim SAYFA As Worksheet, Satır As Long
    i = 3
   
    With Sheets("toplam")
   
    .Range("b3:f65536").ClearContents
   
    For Each SAYFA In Worksheets
        If SAYFA.Name <> "Toplam" Then
         
         .Cells(i, 2) = SAYFA.Range("b6")
         .Cells(i, 3) = SAYFA.Range("b3")
         .Cells(i, 4) = SAYFA.Range("f41")
           .Cells(i, 5) = SAYFA.Range("g41")
           .Cells(i, 6) = SAYFA.Range("h41")
        i = i + 1
        End If
    Next
   
    .Select
   
    End With
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 ÇALİŞMASI İÇİN GİZLİ SAYFAYI SİLİNİZ.

[wildkiss23]

Merhabalar Hitmen06 Bey.

Yazdığınız kod çok güzel çalışıyor, teşekkür ederim. yalnız bu kod ile değerler direk aktarılıyor. oysa ben bağlantının yapıştırılmasını istiyorum. yani ana sayfada değişiklik yapıldığı zaman en son sayfada da değişsin.

bilmem anlata bildim mi?