Sütun Boşsa Diğerindeki Verileri Say

[bluefalcon]

Arkadaşlar merhaba,

Aşağıda belirtmiş olduğum kodu 623 personelin sicil bilgilerini içeren excel sayfasından alarak userform üzerindeki label'lere kadın erkek ayrımı yaparak araçlı personel sayısını yazan bir program üzerinde çalışıyorum.

Excel sayfası fiili çalışan ve ayrılmış olan kişileri de kapsadığından ayrılma tarihini içeren 9. sütun yani "I" sütununda veri var ise dikkate alınmadan sayılması gerekiyor. Program hesaplamayı yapıyor ancak ayrılanları da dahil ettiğinden dolayı hali hazırdaki rakamları göstermiyor. Do While kullanmanın mantıklı olacağını düşünmüştüm ama çalıştıramadımı kodu nasıl revize etmeliyim, yardımcı olur musunuz?

Private Sub CommandButton1_Click()
Dim wsSourceData As Worksheet

On Error Resume Next

Set wsSourceData = Worksheets("Personel")

i = 2

Do While wsSourceData.Cells(i, 9) = ""

'Ar-Ge
lbArArgeKad.Caption = Excel.WorksheetFunction.CountIfs(wsSourceData.[K:K], "AR-GE", wsSourceData.[D:D], "ARACLI", wsSourceData.[j:j], "K")
lbArArgeEr.Caption = Excel.WorksheetFunction.CountIfs(wsSourceData.[K:K], "AR-GE", wsSourceData.[D:D], "ARACLI", wsSourceData.[j:j], "E")
lbAracArGe = Val(lbArArgeKad) + Val(lbArArgeEr)

i=i+1
loop
end sub

 

[turist]

lbArArgeKad.Caption = Excel.WorksheetFunction.CountIfs(wsSourceData.[K:K], "AR-GE", wsSourceData.[D:D], "ARACLI", wsSourceData.[j:j], "K")
lbArArgeEr.Caption = Excel.WorksheetFunction.CountIfs(wsSourceData.[K:K], "AR-GE", wsSourceData.[D:D], "ARACLI", wsSourceData.[j:j], "E")

satırlarını,

lbArArgeKad.Caption = Excel.WorksheetFunction.CountIfs([B][COLOR="Red"]wsSourceData.[I:I], "", [/COLOR][/B]wsSourceData.[K:K], "AR-GE", wsSourceData.[D:D], "ARACLI", wsSourceData.[j:j], "K")
lbArArgeEr.Caption = Excel.WorksheetFunction.CountIfs([B][COLOR="red"]wsSourceData.[I:I], "", [/COLOR][/B]wsSourceData.[K:K], "AR-GE", wsSourceData.[D:D], "ARACLI", wsSourceData.[j:j], "E")

şeklinde uygulayıp, deneyin.

 

[bluefalcon]

lbArArgeKad.Caption = Excel.WorksheetFunction.CountIfs(wsSourceData.[K:K], "AR-GE", wsSourceData.[D:D], "ARACLI", wsSourceData.[j:j], "K")
lbArArgeEr.Caption = Excel.WorksheetFunction.CountIfs(wsSourceData.[K:K], "AR-GE", wsSourceData.[D:D], "ARACLI", wsSourceData.[j:j], "E")

satırlarını,

lbArArgeKad.Caption = Excel.WorksheetFunction.CountIfs([B][COLOR="Red"]wsSourceData.[I:I], "", [/COLOR][/B]wsSourceData.[K:K], "AR-GE", wsSourceData.[D:D], "ARACLI", wsSourceData.[j:j], "K")
lbArArgeEr.Caption = Excel.WorksheetFunction.CountIfs([B][COLOR="red"]wsSourceData.[I:I], "", [/COLOR][/B]wsSourceData.[K:K], "AR-GE", wsSourceData.[D:D], "ARACLI", wsSourceData.[j:j], "E")

şeklinde uygulayıp, deneyin.

Çok teşekkür ederim. Tam istediğim gibi.