çoklu çalışma sayfalarından koşullu veri çekme

[paladin5555]

Merhabalar,
Bu konuda örnek çalışma gönderiyorum. kısaca örnekte çalışma sayfasında b3 hücresindeki veriye göre diğer sayfaların a1 hücresindeki değerleri saymasını istiyorum.
yardımcı olabilir misiniz? şimdiden teşekkürler.

 

[turist]

Dosyanız eklidir.

 

[paladin5555]

Çok teşekkür ederim cevabınız için.
yeni çalışma sayfaları eklenince oradaki a1 hücrelerini de saymasını istiyorum. bunun için ne yapabiliriz.

 

[turist]

Eklediğim dosyayı inceleyiniz.
DİZİ FORMÜL uygulanmıştır.
Sayfa isimleri Listelenince formül çalışacaktır.

 

[paladin5555]

çok teşekkür ederim.
elinize sağlık.

 

[turist]

Sağolunuz.

 

[paladin5555]

turist Bey merhaba,
konu ile alakalı ekte bir dosya gönderiyorum. iki formüle ihtiyacım olacak. ilgilenirseniz müteşekkir olurum.

 

[paladin5555]

üstteki mesaj hakkında yardımcı olacak var mıdır. bir el atın şu işe

 

[Ömer BARAN]

Merhaba.

Sayın @turist şu an çevrimiçi değil.
Ayrıca konu açılışında belirtilen sorun çözülüp, teşekkür de edildikten sonra aynı konu sayfasında ilave bir sorunuz olduğunda,
konuyu çözen üyeyi, bu yeni sorunuzdan haberdar etmenizde (özel mesaj olabilir) yarar var.
Zira konuyu çözen üye, konunun çözüldüğünü düşündüğünden konu sayfasındaki ilave sorunuzu fark etmeyebilir.

Gelelim benim önerime; önerim makro ile çözüm olacak.
idari isimli sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılan VBA ekranında
sağ taraftaki boş alana aşağıdaki kodu yapıştırıp, kodu çalıştırırsanız; sayfa ismi idari ve ss'den farklı olup, C3'teki koşula uyan sayfalardaki değerlerin TOPLAMları, idari isimli sayfaya alınır. (Önerim, idari isimli sayfa ile diğer sayfaların biçiminin birebir aynı olduğu varsayımıyla çalışır)
.

Sub TOPLA()
Range("D8:I85").UnMerge: Range("D8:H82").ClearContents
Application.DisplayAlerts = False: Application.ScreenUpdating = False
For Each shf In ThisWorkbook.Sheets
    If shf.Name <> "idari" And shf.Name <> "ss" And shf.[C3] = [C3] Then _
        shf.Range("D8:H82").Copy: [D8].PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
Next
Sheets("1").Range("A7:I85").Copy: [A7:I85].PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone
Application.DisplayAlerts = True: Application.ScreenUpdating = True
Application.CutCopyMode = False: [C3].Activate: MsgBox "İşlem tamam."
End Sub

 

[paladin5555]

Ömer Bey ,
teşekkür ederim ilgilendiğin için. ama ben makrolar hakkında pek bilgim yok. dediğiniz gibi yaptım. ama makroyu çalıştıramadım.
idari ile diğer sayfaların biçimi aynıdır.