Makro İle Arama Yaptırmak..!

[ileri]

Öncelikle Selma. Arkadaşlar
Excell'de Sayfa 2 Den [adı,soyadı, vb ] Sayfa 1 e Arama yaparak gelebilirmi ben tam olarak açıklayamadım ama bir örnekte göstermek istedim..
Örnek Ektedir..

Herkesin Kurban Bayramı Kutlarım..!

 

[serdarsari]

???

bi bakalım

 

[ileri]

Yardımcı Olursanız Çok Memnun Olurum

 

[Korhan Ayhan]

Selamlar,

Aslında bu işlem için makro kullanmanıza gerek yok. Formüllede istediğiniz veriler rahatlıkla aktarılabilir. Ama siz makro ile çözüm istemişsiniz. Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    Dim BUL As Range
    
    If Sheets("Sayfa1").Range("C46") = Empty Then
        MsgBox "Lütfen TC NO giriniz !", vbCritical
        Range("C46").Select
        Exit Sub
    End If
    
    Sheets("Sayfa1").Range("C49:C53").ClearContents
    
    Set BUL = Sheets("Sayfa2").Range("C:C").Find(Sheets("Sayfa1").Range("C46"), LookAt:=xlWhole)
    If Not BUL Is Nothing Then
        Sheets("Sayfa1").Range("C49") = BUL.Offset(0, -2)
        Sheets("Sayfa1").Range("C50") = BUL.Offset(0, -1)
        Sheets("Sayfa1").Range("C51") = BUL.Value
        Sheets("Sayfa1").Range("C52") = BUL.Offset(0, 1)
        Sheets("Sayfa1").Range("C53") = BUL.Offset(0, 2)
        Set BUL = Nothing
    Else
        MsgBox "Aradığınız TC NO bulunamadı !", vbCritical
    End If
End Sub

 

[serdarsari]

ekte

Korhan Ayhan beyin kodlarıyla dosya ektedir.
bende formüllü yapmıştım ancak dosya çok şişti...