Boş Hücre Sayma

[srdrkzltg]

Arkadaşlar Merhaba,

Bir sorum olacak,

Ekte göreceğiniz dosya üzerinde şuna ihtiyacım var,

Hücrelerde 1 değeri ve boş hücreler var, bu hücrelerin her biri gün olarak önümde,

İki tane 1 değeri içeren hücre arasındaki hücre sayısını bulmam gerekiyor,

Bunu nasıl yapabilirim.

Örnek

Pazartesi 1

Çarşamba 1

Burada Salı boş ve arada 2 gün var , karşısına 2 getirmem lazım.

 

[YUSUF44]

Aşağıdaki kodları deneyiniz:

Sub boşgünler()
    son = Cells(Rows.Count, "A").End(3).Row
    
    For i = 4 To son
        boş = 1
        sonsüt = Cells(i, Columns.Count).End(xlToLeft).Column
        For j = 4 To sonsüt
            If Cells(i, j) = 1 And Cells(i, j + 1) = "" Then
                For k = j + 1 To sonsüt
                    If Cells(i, k) = "" Then
                        boş = boş + 1
                    ElseIf Cells(i, k) = 1 Then
                        yeni = WorksheetFunction.Max(16, Cells(i, Columns.Count).End(xlToLeft).Column + 1)
                        Cells(i, yeni) = boş
                        j = k + 1
                        boş = 1
                    End If
                Next
           
            End If
        Next
    Next
                
End Sub

 

[YUSUF44]

Yalnız profilinizde mac kullandığınız yazıyor. Bu kodlar macte çalışmayabilir. Mümkünse Windows’ta deneyin.