iki sütundaki verileri koşullu sayma

[omeryılmaz]

Arkadaşlar C sütununda kayıtlı adlara göre, F sütunundaki sıfır değerde olanlar ve sıfırdan büyük olanlar olarakta, kayıtlı makroya ek olarak işlem yürütmem gerekmektedir.

Yardımlarınız için şükranlarımı sunuyorum..

 

[dEdE]

Merhaba,
Kodlarınızın arasına aşağıdaki mavi satırları eklerseniz istediğiniz olur.

Aslında mevcut kodlarınızın arasına yapılacak birkaç ilave ile de kısa yoldan çözüleceğini sanıyorum ama kullandığınız kodun yazarı Sayın Recep İpek üstadımızın veya diğer üsdadların el atması lazım.

Ben bu kadarını yapabildim. Şimdilik işinizi görür.

[B]s1.Range(Cells(2, "M"), Cells(sat, "N")).ClearContents
s1.[M2].Resize(n, 2).Value = veri
''*******************************************
[COLOR="Blue"]For m = 2 To [M65536].End(3).Row
say = 0
    For c = 2 To [C65536].End(3).Row
    If Cells(m, 13).Value = Cells(c, 3).Value Then
    If Cells(c, 6).Value = 0 Then say = say + 1
    End If
    Next
Cells(m, 15).Value = say
Cells(m, 16).Value = Cells(m, 14).Value - say
Next[/COLOR]
'------------------------------------
MsgBox "Bitti"
Set s1 = Nothing
End Sub[/B]

 

[omeryılmaz]

Eline ve emeğine sağlık Şükranlarımı sunuyorum. Sağol....