D sütununda E:P aralığğında bulunan R leri sayıp Q sütununda listelemek

[kelkitli]

Değerli Dostlar Selamlar,
Ekteki dosyada görülen D sütununda en son dolu satıra kadar E : P aralığındaki R leri sayarak Q sütununa listelemek istiyorum.

 

[N.Ziya Hiçdurmaz]

Formülü Q3 'E Kopyalayıp aşşağıya çekiniz.
=+EĞERSAY(E33;"R")

 

[kelkitli]

Sn.V.Basic For Applications cevabınız için teşekkürler.
Ben bu işlemi puantaj için hazırladığım bir dosyada kullanıyorum. 2007 yılında kullandığım dosyada formül kullanıyorum. Uzun bir formüller ordusu ortaya çıkıyor. Yardımcılarım çoğu zaman formülleri silip olur olmaz kazalara sebep oluyorlar. Bu yüzden 2008 için makro ile bir çözüm oluşturmaya çalışıyorum.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub countif_()
For sut = 3 To 30
Range("Q" & sut) = WorksheetFunction.CountIf(Range("e" & sut & ":p" & sut), "=R")
Next
End Sub

 

[kelkitli]

Sn.V.Basic For Applications,
Sonuçları "0" olan hücrelerin boş olmasını sağlayabilirmiyiz.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub countif_()
For sut = 3 To 30
Range("Q" & sut) = WorksheetFunction.CountIf(Range("e" & sut & ":p" & sut), "=R")
If Range("Q" & sut) = "0" Then
Range("Q" & sut) = ""
End If
Next
End Sub

 

[kelkitli]

Sn.V.Basic For Applications,
Teşekkürlerimi iletirim. İşlem tamam.

 

[kelkitli]

Değerli Dostlar şöyle bir sorunla karşılaştım.
Dolusay yada 1,2,3,ht,hs,si, say demek için nasıl yapmalıyım.

 

[Orion1]

Değerli Dostlar şöyle bir sorunla karşılaştım.
Dolusay yada 1,2,3,ht,hs,si, say demek için nasıl yapmalıyım.

Aşağıdaki formül A sütununda dolu hücreleri sayar.
=BAĞ_DEĞ_DOLU_SAY(A:A)

BAĞ_DEĞ_DOLU_SAY=COUNTA

 

[kelkitli]

Selamlar ve Hayırlı akşamlar Sn.Orion2,

Range("Q" & sut) = WorksheetFunction.CountIf(Range("e" & sut & ": p" & sut), "=R") kod yazılı kırmızı kısmı diyorum.

 

[Orion1]

R lerimi saydırmak istiyorsunuz?Ayrıca bir smil var orasını pek anlayamadım.

 

[kelkitli]

Sn Orion2,
R leri saydırdığım kısımdan başka aynı şekilde dolu olan hücreleri saydırmak istiyorum. Dolu olan hücrelerde de şu bilgiler yazılı: (1,2,3,ht,hs,öi,si)
R leri saydırdığım sütunun yanındaki sütuna da bunları saydırmam gerekiyor.

 

[kelkitli]

Özür smil dediğinizi anlamamışım. Kod yukarıda yazılı zaten.

 

[Orion1]

Ekli dosyayı sizin için hazırladım.
A sütununda R leri ve Dolu hücreleri sayıyor.

Sub say()
Sheets("Sayfa1").Select
sonsat = Cells(65536, "A").End(xlUp).Row
'R leri say
Range("B2").Value = WorksheetFunction.CountIf(Range("A1:A" & sonsat), "=R")
'Dolu hücreleri say
Range("C2").Value = WorksheetFunction.CountA(Range("A1:A" & sonsat))
End Sub

 

[kelkitli]

Kardeş sizin bilginizin çok iyi olduğunu biliyorum ama smiley saydırmak için de eziyet vermeyiz. Bilginiz kadarda espri anlayışınız varmış çok güzel.

 

[Orion1]

14 numaralı mesajda cevap verdim.

 

[kelkitli]

Sn.Orion2,
çok çok teşekkürler ederim, bir önceki mesajlar aynı zamana denk gelmiş. Kusura bakma. Bilginize ve emeğinize sağlık.