Düşey Arama ile ilgili

[sonsuzkalp]

Arkadaşlar hepinizi kolay gelsin benim bi veritabanı çalışmam var orda arama yeni oluşturmak istiyorum

örneğin

İngilizce - Türkçe
I go to school - Ben okula giderim

burda 2.sayfada school yazdığımda hem a sütünü hem b sütününü getirebilirim
Yardımlarınızı bekliyorum

 

[jinken]

=eğer(a5="";"";düşeyara(a5;a:b;2;0))

 

[sonsuzkalp]

makro ile yapılabilir mi

 

[jinken]

=EĞER(A1="";"";DÜŞEYARA(A1;data!A:B;2;0))

ikinci sayfada b1 sütununa kopyala ve a1 sütununa yazarsan yeterli olacaktır.

 

[sonsuzkalp]

olmadı makro olarak yapmak istemiştim

 

[Ömer]

olmadı makro olarak yapmak istemiştim

Merhaba,

Bu şekilde deneyiniz.

Sub AraYaz()
 
    Dim c As Range, sat As Long, ilkadres As Variant
    Dim Sd As Worksheet
    
    Set Sd = Sheets("data")
    
    Sheets("arama").Select
    Range("A5:B" & Rows.Count).ClearContents
    
    sat = 5
    With Sd.Range("A:A")
        Set c = .Find([A1], LookIn:=xlValues)
        If Not c Is Nothing Then
            ilkadres = c.Address
            Do
                Cells(sat, "A") = Sd.Cells(c.Row, "A")
                Cells(sat, "B") = Sd.Cells(c.Row, "B")
                sat = sat + 1
                
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> ilkadres
        End If
    End With
    
End Sub

.

 

[sonsuzkalp]

ömer hocam sana zahmet örnek dosya üzerinden hazırlayabilirsin yeni olduğum için tam bilmiyorum
Teşekkürler

 

[Ömer]

ömer hocam sana zahmet örnek dosya üzerinden hazırlayabilirsin yeni olduğum için tam bilmiyorum
Teşekkürler

Dosyanız ektedir.

.

 

[sonsuzkalp]

çok teşekkür ederim iyi çalışmalar