Istenilen kişiye göre toplama

[kan-nas]

Ekteki açıklamaya göre yardıma ihtiyacım var.

 

[Ayhan Ercan]

Merhaba

Ek dosyayı inceleyiniz...

Private Sub CommandButton1_Click()
Dim hcr As Range
For Each hcr In Range("L4:L" & [L65536].End(3).Row)
    Select Case hcr.Value
        Case Is = "ALİ"
            If hcr.Offset(0, -8) < 0 Then
                x = x + hcr.Offset(0, -8).Value
            End If
        Case Is = "SÜLO"
            If hcr.Offset(0, -8) < 0 Then
                y = y + hcr.Offset(0, -8).Value
            End If
        Case Is = "NURİ"
            If hcr.Offset(0, -8) < 0 Then
                z = z + hcr.Offset(0, -8).Value
            End If
        Case Is = "VELİ"
            If hcr.Offset(0, -8) < 0 Then
                w = w + hcr.Offset(0, -8).Value
            End If
    End Select
Next
TextBox1.Value = x
TextBox2.Value = y
TextBox3.Value = z
TextBox4.Value = w
End Sub
Private Sub CommandButton2_Click()
Dim hcr As Range
For Each hcr In Range("L4:L" & [L65536].End(3).Row)
    Select Case hcr.Value
        Case Is = "ALİ"
            If hcr.Offset(0, -8) > 0 Then
                x = x + hcr.Offset(0, -8).Value
            End If
        Case Is = "SÜLO"
            If hcr.Offset(0, -8) > 0 Then
                y = y + hcr.Offset(0, -8).Value
            End If
        Case Is = "NURİ"
            If hcr.Offset(0, -8) > 0 Then
                z = z + hcr.Offset(0, -8).Value
            End If
        Case Is = "VELİ"
            If hcr.Offset(0, -8) > 0 Then
                w = w + hcr.Offset(0, -8).Value
            End If
    End Select
Next
TextBox5.Value = x
TextBox6.Value = y
TextBox7.Value = z
TextBox8.Value = w
End Sub

 

[kan-nas]

çok teşekkürler..

 

[Ayhan Ercan]

çok teşekkürler..

Rica ederim.
İyi yıllar... k::

 

[kacik]

merhaba,

benim şöyle bir sorum olucak. Case ile değer sorguladığımız yerde ALİ, SÜLO, NURİ, VELİ dışında daha fazla veri olduğunu varsayarsak(ahmet, mehmet, hasan, hüseyin...), bu verileri için tek bir yönlendirmeyi nasıl yapabiliriz. Mesela ALi, SÜLO, NURİ, VELİ dışında veri varsa
nasıl bir kod yazmalıyız?
Case ??????
If hcr.Offset(0, -8) > 0 Then
q = q + hcr.Offset(0, -8).Value

 

[Ayhan Ercan]

merhaba,

benim şöyle bir sorum olucak. Case ile değer sorguladığımız yerde ALİ, SÜLO, NURİ, VELİ dışında daha fazla veri olduğunu varsayarsak(ahmet, mehmet, hasan, hüseyin...), bu verileri için tek bir yönlendirmeyi nasıl yapabiliriz. Mesela ALi, SÜLO, NURİ, VELİ dışında veri varsa
nasıl bir kod yazmalıyız?
Case ??????
If hcr.Offset(0, -8) > 0 Then
q = q + hcr.Offset(0, -8).Value

Merhaba

Case Else

 

[kacik]

Teşekkürler