Soru Düzenli Hücre sayısı

[batumania]

Merhaba elimdeki Excelde firmaların aylık alışları mevcut ben ürünleri düzenli alan müşterileri çıkarmaya çalışıyorum. Aşağıda örnek olarak verdiğim tablodaki gibi bunu nasıl yapabilirim.

 

[Ömer]

Merhaba,

Düzenli için, ortadan da başlarsa aralık ayına kadar gidilmeli mi? Yoksa örneğin mayıs ile başlayıp temmuz da biterse ve öncesi yada sonrası olmazsa oda düzenli oluyor mu?

 

[batumania]

Merhaba,

Düzenli için, ortadan da başlarsa aralık ayına kadar gidilmeli mi? Yoksa örneğin mayıs ile başlayıp temmuz da biterse ve öncesi yada sonrası olmazsa oda düzenli oluyor mu?

Aralık ayına kadar gelmeli. aralıktan önce bittiyse düzensiz oluyor.

 

[Ömer]

Deneyiniz.

Sub test()
    Dim i As Long, j As Integer, s As Integer
    Range("M2:M" & Rows.Count).ClearContents
    For i = 2 To [A:L].Find("*", , , , xlByRows, xlPrevious).Row
        s = WorksheetFunction.CountA(Cells(i, "A").Resize(1, 12))
        If s = 12 Then
            Cells(i, "M") = "Düzenli"
        ElseIf s = 0 Then
            Cells(i, "M") = "Düzensiz"
        Else
            For j = 1 To 12
                If Cells(i, j) <> "" Then
                    Exit For
                End If
            Next j
            s = WorksheetFunction.CountA(Cells(i, j).Resize(1, 12 - j + 1))
            If s = 12 - j + 1 Then
                Cells(i, "M") = "Düzenli"
            Else
                Cells(i, "M") = "Düzensiz"
            End If
        End If
    Next i
End Sub

 

[batumania]

Çok teşekkür ederim. kod çalışıyor ama sadece 12 ay doluysa düzenli yazıyor son 6 ay doluysa düzensiz yazıyor maalesef

 

[Ömer]

Kodu denedim. Son altı ay da düzenli ifadesi yazıyor. Çalıştığınız başlangıç sütunu A bitiş L olarak yazmıştım. Sizde bu şekilde değil mi?
Bu tür sonuç alamadığınız durumlarda küçük bir örnek dosya ekleyerek olmayan değerlerin nereden geldiğini yazmanızı rica ederim.