if ve countif i birlikte kullanma

[09efe72]

Pardon hocam. G322 hücresinde "ö" harfinin toplamı, h322 hanesinde de "a" harfinin toplamı alınacak.

 

[İhsan Tank]

Pardon hocam. G322 hücresinde "ö" harfinin toplamı, h322 hanesinde de "a" harfinin toplamı alınacak.

Peki tarihi hangi hücreye yazacaksınız_?

 

[09efe72]

B6 IR293 aralığına bakılacak;

G322 hücresinde "ö" harfinin toplamı, h322 hanesinde de "a" harfinin toplamı yazacak.

tarihi g320 hanesine yazacağız.

 

[İhsan Tank]

B6 IR293 aralığına bakılacak;

G322 hücresinde "ö" harfinin toplamı, h322 hanesinde de "a" harfinin toplamı yazacak.

tarihi g320 hanesine yazacağız.

Merhaba

Option Explicit
Sub tarihli_sayım_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim asi, kral
trabzonspor = MsgBox(Format(Range("G320"), "dd.mm.yyyy") & vbLf _
& "Tarihli Sayıma Başlıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
trabzonspor = 0: kaplan = 0
For ts = 6 To Cells(Rows.Count, "A").End(xlUp).Row
For asi = 2 To 252
If CDate(Cells(ts, asi)) = CDate(Range("G320")) And _
Cells(ts + 1, asi) = Range("G321") Then
kaplan = kaplan + 1
Range("G322") = kaplan
ElseIf CDate(Cells(ts, asi)) = CDate(Range("G320")) And _
Cells(ts + 1, asi) = Range("H321") Then
trabzonspor = trabzonspor + 1
Range("H322") = trabzonspor
End If
Next
ts = ts + 1
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & " Sürede" & vbLf _
& Format(Range("H1"), "dd.mm.yyyy") & " Sayımı" & vbLf _
& "Gerçekleştirdim", , "Bitiş"
MsgBox Format(Range("G320"), "dd.mm.yyyy") & " Tarihinde" & vbLf _
& "Ö " & kaplan & " Adet var" & vbLf _
& "A " & trabzonspor & " Adet var", vbInformation, "Bilgi"
End Sub

Bunu dener misiniz_?