Makroda Çokeğersay ile Veri Saydırma

[cedi007]

Merhaba,

Ekteki örnek dosyadaki gibi formülle saydırılan verilerin, makro ile saydırılmasını istiyorum. Örnekte ayrı ayrı sheetlerden saydırdım. Burada istediğim, makro ile "veri" sayfasındakileri aynı mantıkla tabloya(özet sayfasına) uygun(Greather,8.Tem,9.Tem,SES,SOT) yerlerine saydırabilmesi. Yani tek sayfadan çağıracak bu sefer aynı verileri.

Değerli fikir ve çözüm önerilerinizi rica ederim.

 

[cedi007]

Syn. @Korhan Ayhan hocamın müsait bir anını yakalayamadık, uygun bir zamanında kendisinden bu konuda destek almayı sabırsızlıkla bekliyorum : )

 

[cedi007]

Fırsat bulup yardımcı olabilen olursa çok sevinirim arkadaşlar.
Problemin çözümü önemli benim, yaptığım araştırmalarda bir sonuca ulaşamadım maalesef.

 

[GursoyC]

Merhaba,
aşağıdaki kodlar "veri" isimli sayfadan istediğiniz formülü özet isimli sayfanızda B5:E12 aralığına uygular.
Tek sayfadan çağıracağınıza göre sanırım bu yeterli olacaktır.

Dim v As Worksheet
Set v = Worksheets("veri")
For i = 5 To 12
Worksheets("ozet").Range("B" & i & ":B12").Formula = Application.WorksheetFunction.CountIfs(v.Range("A:A"), _
"OK", v.Range("C:C"), "SES", v.Range("D:D"), Worksheets("ozet").Range("A" & i).Value)
Worksheets("ozet").Range("C" & i & ":C12").Formula = Application.WorksheetFunction.CountIfs(v.Range("A:A"), _
"OK", v.Range("C:C"), "SOT", v.Range("D:D"), Worksheets("ozet").Range("A" & i).Value)
Worksheets("ozet").Range("D" & i & ":D12").Formula = Application.WorksheetFunction.CountIfs(v.Range("A:A"), _
"NOK", v.Range("C:C"), "SES", v.Range("D:D"), Worksheets("ozet").Range("A" & i).Value)
Worksheets("ozet").Range("E" & i & ":E12").Formula = Application.WorksheetFunction.CountIfs(v.Range("A:A"), _
"NOK", v.Range("C:C"), "SOT", v.Range("D:D"), Worksheets("ozet").Range("A" & i).Value)
Next

 

[cedi007]

Merhaba,

Yanıtınız ve öneriniz için teşekkürler.
Eksik gördüğüm veya anlatamadığım yerleri tekrar ifade etmek isterim ki;

A5:A12 aralığındaki TEXT ifadelerinin, veri dosyasındaki karşılıklarının tabloya getirilmesi olacak.
E2'deki tarih için, veri dosyasındaki E 'sütununda karşılığı olan sayısal adet,
L2'deki tarih için, veri dosyasındaki E 'sütununda karşılığı olan sayısal adet,
B2'ye ait koşullar sağlandığında G sütununda kaç adet dolu değer var sayısal adet,

 

[cedi007]

Merhaba,

Üstadlar, yok mu yardımcı olabilecek hiç kimse ?

 

[Ziynettin]

Merhaba,

[A:G] aralığındaki tabloya göre nasıl sonuç olmalı siz olması gereken sonucu manuel olarak girin ne yapmak istediğiniz daha iyi anlaşılır.

 

[cedi007]

Merhaba,

Dosyada çokeğersay formülü ile örnek olması açısında TEXT1 'e karşılık gelen sayıları tabloya getirdim. Bu çözümü makroya yaptırmak amacındayım.
Umarım daha açıklayıcı olabilmişimdir.

 

[Ziynettin]

Çalışma dosyanız.