Eğer formülü yada benzeri ama ne?

[mirkutt]

Arkdaşlar öncelikle daha önceki yardımlarınız için tekrar teşekkür etmek istiyorum.
Yeni sorunum;
255 sayfalık excel belgemdeki 1 ile 254'üncü sayfalar arasındaki;
Eğer B47 Hücresinde 1826 verisi var ise B48 hücresindeki 10 değerini say. şeklinde bir formül yazmam lazım.
yardımlarınız için şimdiden sağolun.
Kolay gelsin

 

[uzmanamele]

merhaba
5-10 sayfalık örnek dosya ekleyiniz.

 

[mirkutt]

Ekde verdim 10 sayfalık bir örnek..
yaş kategorisnde yazan:1826 rakamı 18*26 yaş aralığını
Cinsiyet kategorisinde yazan: 10 Erkek --- 20 ise Kadın

 

[mirkutt]

yardımcı olabilecek kimse yok mu ?:s

 

[fedeal]

eğer sayfa isimleri sayfa1.sayfa2 diye gidiyorsa:

Sub tx()
For i = 1 To 254
If Sheets("sayfa" & i).Range("b47").Value = 1826 Then Sheets("sayfa" & i).Range("b48").Value = 10
Next
End Sub

 

[mirkutt]

yardım için çok teşekkür ederim fedeal..
ancak.. bu formülü nasıl kullanacağım ben.. Excel kullanma konusunda çok acemiyim:S

Türkçe 2007 Excel kullanıyorum..

 

[fedeal]

Eğer B47 Hücresinde 1826 verisi var ise B48 hücresindeki 10 değerini say. şeklinde bir formül yazmam lazım.

öncelikle b48 hücrelerinde ki 10 yazanların kaç tane oldugunumu sayacagız yoksa b47=1826 ise b48=10 mu olacak?orjinal dosyada sayfa isimleri sayfa1 - sayfa2........sayfa254 şeklindemi sıralanıyor?

 

[fedeal]

çalışmanıza ana sayfası ekledim. şartlara uyan sayfaları sayıyor.
(B47 Hücresinde 1826 verisi var ise B48 hücresindeki 10 değerini say)

Sub tx()
For i = 1 To 10
If Sheets("sayfa" & i).Range("b47").Value = 1826 And Sheets("sayfa" & i).Range("b48").Value = 10 Then Sheets("ana").Range("a" & i).Value = 1
Next
Sheets("ana").Range("b2").Value = "=SUM(C[-1])"
Sheets("ana").Range("b1").Value = Sheets("ana").Range("b2").Value
Sheets("ana").Range("b2").Value = ""
Columns("A:A").ClearContents
End Sub

kodlarda kırmızı yazılı yeri sayfa sayınız kadar arttırın kodlar nerde derseniz ana sayfasının sayfa sekmesini sağ tıklayın kod görüntüleyi tıklayın. dosyanıza uyarlamada sıkıntı çekerseniz yardımcı oluruz.iyi çalışmalar.