iki sütunu kıyaslayarak sonuç elde etme

[gizenya]

merhabalar,
exelde yeniyim ve bu siteye de yeni üye oldum. o kadar çok konu başlığı var ki iş yoğunluğumdan dolayı her birini inceleyip bana hangisi uyar bakamıyorum.
sorum aslında çok basit olabilir.

iki sütunum varsayalım. birinde 1ler ve 2 ler olsun diğer sütunda da tarih girişleri var. ben birinci sütundaki 1 leri alarak diğer sutundaki tarih girişi olan yani doluları saysın istiyorum. aynı şekilde 2 leri alarak da doluları saydırayım istiyorum.

yardımcı olursanız sevinirim.

 

[tahsinanarat]

Örnek dosya eklerseniz, daha anlaşılır olur kanısındayım

 

[Orion1]

Ekli dosyayı inceleyiniz.
İstediğiniz böyle bir şeymi?

Sub gun()
Dim i As Long
Application.ScreenUpdating = False
Range("C1:C65536").ClearContents
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "A").Value = Day(Cells(i, "B").Value) Then
        Cells(i, "C").Value = Cells(i, "B").Value
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İŞLEM TAMAM"
End Sub

 

[gizenya]

merhaba,
ilginiz için çok teşşekkür ediyorum. Sanırım istediğim sonuç bu değil.
Daha rahat görebilmeniz için deneme dosyası ekliyorum.

 

[Ali]

F11 hücrenize

=TOPLA.ÇARPIM((A2:A18=E11)*(C2:C18>0))

F12 hücrenize

=TOPLA.ÇARPIM((A2:A18=E12)*(C2:C18>0))

yazınız.

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[gizenya]

Çok çok teşekkür ediyorum, çok işime yarayacak bu

Kolay gelsin