Excel Vba Forum - Excelce.Net
SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: wildkiss23 - 10 Ekim 2015, 11:56:26
-
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.
-
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 :)
-
Çı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?
-
Yokmu Yardım edecek bi arkadaş? :(
-
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.
-
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?