eksik sayıyı bul ve yaz

[alper64]

arkadaşlar merhaba,

ben eksik sayıyı bulan ve yazan bir formül arıyorum.

sutundaki eksik olan sayıyı bulup yazan formül, forumda var.

ama ben satırlardaki hücrelerde yazılı olan sayılar arasında, eksik olan sayının bulunmasını istiyorum.

örnek dosya yükledim. yardımcı olabilirseniz sevinirim.

teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Sizin için kullanıcı tanımlı fonksiyon hazırladım. Ekteki örnek dosyayı inceleyiniz. Düzeltilmesi gereken bir bölüm olursa bildirin yeniden revize edelim.

Kullanılan fonksiyon;

Function EKSİK_BUL(Alan As Range) As String
    Dim Minimum As Double, Maksimum As Double, X As Long
    
    If WorksheetFunction.CountA(Alan) = 0 Then Exit Function
    
    Minimum = WorksheetFunction.Min(Alan)
    Maksimum = WorksheetFunction.Max(Alan)
    For X = Minimum To Maksimum
        If WorksheetFunction.CountIf(Alan, X) = 0 Then
            EKSİK_BUL = IIf(EKSİK_BUL = "", X, EKSİK_BUL & "-" & X)
        End If
    Next
End Function

 

[alper64]

satır eksik sayı bul ve yaz

korhan bey merhaba,

şimdiye kadar hiç makro kullanmadım.

ben yanlış bir şey yapmış olabilirim, bilmiyorum ama burada ki tek sorun 12 sayısının gösterilmiyor olması olabilir. 12 eksikliğide gösterilirse benim işimi büyük ölçüde güren bir proğram olmuş.

emeğinize sağlık.

üzerinde çalıştığım dosyayı tekrar yüklüyorum. bakabilirseniz sevinirim.

teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki fonksiyonu deneyiniz.

Function EKSİK_BUL(Alan As Range, Minimum As Double, Maksimum As Double) As String
    Dim X As Long
    
    If WorksheetFunction.CountA(Alan) = 0 Then Exit Function
    
    For X = Minimum To Maksimum
        If WorksheetFunction.CountIf(Alan, X) = 0 Then
            EKSİK_BUL = IIf(EKSİK_BUL = "", X, EKSİK_BUL & "-" & X)
        End If
    Next
End Function

Örnek kullanım;

=EKSİK_BUL(B2:O2;[COLOR="Red"]1;12[/COLOR])

Kırmızı renkli bölümler kontrol edilecek alandaki minimum ve maksimum değeri ifade eder. Dilediğiniz değerleri yazıp deneyebilirsiniz.

 

[alper64]

teşekkürler...

Korhan Bey, çok teşekkürler,


İlk makro çalışmamı yaptım sayenizde... ve galiba becerdim de

Her zaman aklımda olacaksınız.

Emeğinize sağlık.

Sağlıcakla kalın. İyi çalışmalar.