* fonksiyonunu kaldırma..

[postmix]

Arkadaşlar adisyon numara kontrolu için kullandığım bi excelim mevcut. Fakat numara yazma kısmına mesela 40190 yazacağım zaman rakamları girerken 401* olsun yani yanlışıkla * a bastığım zaman ya 401 ile başlayan tüm rakamları boyuyor yada rengini beyaz yapıyor. İçerideki kodda * ı nasıl etkisiz hale getiririz.. Teşekkürler şimdiden..

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub TextBox1_Change()
    Dim Bul As Range, Adres As String, Aranan As Long
    
    If TextBox1 = "" Then Exit Sub
    
    Aranan = Replace(TextBox1, "*", "")
    
    Set Bul = Range("A:K").Find(Aranan, , xlValues, xlWhole)
    If Not Bul Is Nothing Then
    Adres = Bul.Address
        Do
            If MsgBox("Bulunan veri renklendirilsin mi?", vbYesNo) = vbYes Then
                Bul.Interior.ColorIndex = 3
            Else
                Bul.Interior.ColorIndex = xlNone
            End If
            Set Bul = Range("A:K").FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
        TextBox1 = ""
    End If
End Sub

 

[postmix]

Allah razı olsun...