Koşullara Göre Sayma İşlemi

[turanb]

Merhaba,

Aşağıdaki kod bloğunda bazı koşullar var ve sayma işlemini bu koşullar dahilinde yapmasını istiyorum. Ancak Hiç bir koşulu dikkate almadan bütün satırların sayısını veriyor.

Yanlışlık nerede acaba yardımcı olur musunuz.

Private Sub CommandButton3_Click()
 Set v = ThisWorkbook.Worksheets("Veri")
    Set d = ThisWorkbook.Worksheets("Dağılım_Raporu")

 For sutun = 3 To 8
        For sıra = 2 To v.[A65536].End(3).Row
        
        If v.Cells(sıra, "B") >= d.Cells(2, 8) And v.Cells(sıra, "B") <= d.Cells(2, 9) Then 'tarih aralığı
        
                
             If Cells(5, sutun) = v.Cells(sıra, "C") And v.Cells(sıra, "F") <> " " Then
                
                d.Cells(13, sutun) = v.Cells(Rows.Count, "C").End(xlUp).Row
                
             End If
             
           End If
           
         Next sıra
        
    Next sutun
    
End Sub

 

[askm]

Örnek dosyanızı eklerseniz. Yardımcı olmaya çalışalım.

 

[turanb]

Örnek dosyanızı eklerseniz. Yardımcı olmaya çalışalım.

Dosya linki aşağıdadır.

Bu arada dosya içinden özel olan kısımları sildiğim için koşullardan birinde F sütunu boş değilse ibresi vardı onu devre dışı bırakabilirsiniz.

http://s5.dosya.tc/server4/llhv72/ornek_dosya.rar.html

 

[askm]

http://www.dosyaupload.com/ dosyanızı bu linke yükleyebilirseniz, belirttiğiniz linkden dosya indiremiyorum.

 

[turanb]

http://www.dosyaupload.com/ dosyanızı bu linke yükleyebilirseniz, belirttiğiniz linkden dosya indiremiyorum.

link aşağıdadır.

http://www.dosyaupload.com/d5Wu

 

[askm]

If Cells(5, sutun) = v.Cells(sıra, "C") And v.Cells(sıra, "F") <> " " Then

d.Cells(13, sutun) = v.Cells(Rows.Count, "C").End(xlUp).Row

End If
bu ifadede ne yapmak istiyorsunuz.

 

[askm]

C deki en son dolu satır numarası getir diyorsunuz. Bu da 1244.

 

[turanb]

If Cells(5, sutun) = v.Cells(sıra, "C") And v.Cells(sıra, "F") <> " " Then

d.Cells(13, sutun) = v.Cells(Rows.Count, "C").End(xlUp).Row

End If
bu ifadede ne yapmak istiyorsunuz.

Üstad Dağılım raporundaki tarih aralığındaki ve yine aynı rapordaki il sütunlarına göre 13. satıra il sayılarını getirmek. Dolayısıyla illere göre araç sayılarını bulacaz.

 

[turanb]

C deki en son dolu satır numarası getir diyorsunuz. Bu da 1244.

Kodun tam olarak neyi getirdiğini bilemiyorum. İnternetten buldum. Satır sayıyor diye biliyorum.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton3_Click()
    Set v = ThisWorkbook.Worksheets("Veri")
    Set d = ThisWorkbook.Worksheets("Dağılım_Raporu")
    
    d.Range("C13:I13").ClearContents
    
    For sutun = 3 To 8
        For sıra = 98 To v.[A65536].End(3).Row
            If v.Cells(sıra, "B") >= d.Cells(2, 8) And v.Cells(sıra, "B") <= d.Cells(2, 9) Then 'tarih aralığı
                If d.Cells(5, sutun) = v.Cells(sıra, "C") Then 'And v.Cells(sıra, "F") <> "" Then
                    d.Cells(13, sutun) = d.Cells(13, sutun) + 1
                End If
            End If
        Next sıra
    Next sutun
    
    d.Range("I13") = WorksheetFunction.Sum(d.Range("C13:H13"))
End Sub

 

[turanb]

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton3_Click()
    Set v = ThisWorkbook.Worksheets("Veri")
    Set d = ThisWorkbook.Worksheets("Dağılım_Raporu")
    
    For sutun = 3 To 8
        For sıra = 2 To v.[A65536].End(3).Row
            If v.Cells(sıra, "B") >= d.Cells(2, 8) And v.Cells(sıra, "B") <= d.Cells(2, 9) Then 'tarih aralığı
                If d.Cells(5, sutun) = v.Cells(sıra, "C") And v.Cells(sıra, "F") <> " " Then
                    d.Cells(13, sutun) = d.Cells(13, sutun) + 1
                End If
            End If
        Next sıra
    Next sutun
End Sub

Korhan bey şimdi oldu. Teşekkür ediyorum...

 

[Korhan Ayhan]

Koda küçük bir ekleme yaptım. Üstteki mesajımda ki son halini deneyiniz.