Aktİf Satirin Aa HÜhresİnde X Varsa Uyarsin

[ildizim]

MERHABA EXCELDE;

Private Sub TextBox21_Change()
On Error Resume Next
METİN1 = TextBox21.Value
Set FC1 = Range("A3:A65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC1.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=TextBox21.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=1
End If

End Sub

KODLARI İLE A SUTUNUNDA ARAMA YAPTIRIYORUM. BURDA SORUN YOK İSTEDİĞİM ŞU: BULDUGUM VERİNİN AA HÜCRESİNDE X YAZIYORSA BİR MSG BOX İLE DİKKAT DİYE UYARMASI

TEŞEKKÜRLER

 

[Korhan Ayhan]

Selamlar,

Kullanmış olduğunuz kodun End If bloğunun altına aşağıdaki satırı ekleyip denermisiniz.

If UCase(Cells(FC1.Row, "AA")) = "X" Then MsgBox "DİKKAT !"

 

[ildizim]

yok çalışmadı kod; hemen hemen yer yere kopyaladım hata bile vermiyor ama çalışmıyorda.

 

[Korhan Ayhan]

Selamlar,

Kodu boş bir excel sayfasında farklı bir yöntemle denemiştim ve çalışmıştı. Örnek dosya eklerseniz uyarlamaya çalışırız.

 

[kulomer46]

aşağıdaki kodun işinizi görmesi lazım
Private Sub TextBox21_Change()
On Error Resume Next
METİN1 = TextBox21.Value
Set FC1 = Range("A3:A65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC1.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=TextBox21.Value & "*"

' ....
If Range("AA" & ActiveCell.Row).Value = "x" Then MsgBox "Dikkat"
'....
If METİN1 = "" Then
Selection.AutoFilter Field:=1
End If

End Sub

 

[ildizim]

dosyayı ekliyorum teşekkürler

 

[Korhan Ayhan]

Selamlar,

Sn. kulomer46 'nın önerdiği şekilde kullanın. Benim önerdiğim kod bazı boş satırlarda mesaj vermeye devam ediyor.

Private Sub TextBox21_Change()
    On Error Resume Next
    METİN1 = TextBox21.Value
    Set FC1 = Range("A3:A65000").Find(What:=METİN1)
    Application.Goto Reference:=Range(FC1.Address), _
       Scroll:=False
    Selection.AutoFilter Field:=1, Criteria1:=TextBox21.Value & "*"
    If METİN1 = "" Then
    Selection.AutoFilter Field:=1
    End If
    If UCase(Cells([COLOR=red][B]ActiveCell.Row[/B][/COLOR], "AA")) = "X" Then MsgBox "DİKKAT !"
End Sub

 

[ildizim]

Çok Saolun Oldu

 

[kulomer46]

Kodun işe yaramasına çok sevindim, teşekkür ediyorum