Sayfalarda veri aratma

[eda82]

Merhaba ,
Ekteki dosyada "sonuç" sayfasında belirttiğim konuda bana yardımcı olmanız mümkün mü?Bunu kodla çözmeniz mümkün mü?
Teşekkürler

 

[İhsan Tank]

Merhaba ,
Ekteki dosyada "sonuç" sayfasında belirttiğim konuda bana yardımcı olmanız mümkün mü?Bunu kodla çözmeniz mümkün mü?
Teşekkürler

merhaba
formül işinizi görür mü_?
görür ise sonuç sayfasının b1 hücresine

=EĞER(EHATALIYSA(EĞER(ARA(A1;KARTNO!$A$1:$K$97);"Var";"Yok"));"Yok";EĞER(ARA(A1;KARTNO!$A$1:$K$97);"Var";"Yok"))

bu formülü yazıp aşağıya doğru çekiniz

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak formülle yapmak isterseniz aşağıdaki formülüde kullanabilirsiniz.

=EĞER(EĞERSAY(KARTNO!A:L;SONUÇ!A1)>0;"VAR";"YOK")

Formülü alt hücrelerede sürükleyin.

Makro ile çözüm isterseniz aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub ARA()
    Dim X As Long
    
    Sheets("SONUÇ").Select
    Columns(2).ClearContents
    
    For X = 1 To Range("A65536").End(3).Row
        If WorksheetFunction.CountIf(Sheets("KARTNO").Range("A:L"), Cells(X, "A")) > 0 Then
            Cells(X, "B") = "VAR"
        Else
            Cells(X, "B") = "YOK"
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[eda82]

çok teşekkürler.