Eksik sayıyı bul ve yaz formül geliştirme

[alper64]

Arkadaşlar merhaba,

Formülün eksik sayıyı bul ve yaz kısmı tamam.

Fakat formülü ne şekilde kullanmak istediğimi, eklediğim dosyada anlatmaya çalıştım.

İncelerseniz sevinirim.

Şimdiden teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı inceleyin.

Kullanılan fonksiyon;

Function EKSİK_BUL(Alan As Range, Minimum As Double, Maksimum As Double) As String
    Dim Yeni_Alan As Range, X As Long, Veri As Range, Kontrol As Boolean
    
    If WorksheetFunction.CountA(Alan) = 0 Then Exit Function
    
    For X = (Alan.Column + Alan.Columns.Count - 1) To Alan.Column Step -1
        If Cells(Alan.Row, X) <> "" And Cells(Alan.Row, X) <> 0 And Cells(Alan.Row, X) <> "-" Then
            If Yeni_Alan Is Nothing Then
                Set Yeni_Alan = Cells(Alan.Row, X)
            Else
                Set Yeni_Alan = Union(Yeni_Alan, Cells(Alan.Row, X))
            End If
        End If
        If Not Yeni_Alan Is Nothing Then
            If Yeni_Alan.Count = Maksimum Then Exit For
        End If
    Next
    
    If Not Yeni_Alan Is Nothing Then
        For X = Minimum To Maksimum
            For Each Veri In Yeni_Alan
                If Veri.Value = X Then
                    Kontrol = True
                End If
            Next
            If Kontrol = False Then EKSİK_BUL = IIf(EKSİK_BUL = "", X, EKSİK_BUL & "-" & X)
            Kontrol = False
        Next
    End If
End Function

 

[alper64]

Teşekkürler,

Korhan Bey,

Bana yeni ufuklar açtınız teşekkürler. Excel de yapılamayacak şey yok gibi. Bunu gördüm.

Emeğinize, elinize sağlık.