rehber' e arama butonu ekleme

[İhsan Tank]

selam arkadaşlar ben userform yardımıyla kendime rehber yaparken takıldığım bir nokta oldu gönderdiğim çalışmada iki çalışma sayfası var 1. giriş 2. ise rehber
benim bu çalışmada istediğim 1. sayfadan ( giriş ) yaptığım girişleri rehbere kayıt yapıyor. 2. sayfaya ( rehber ) ise arma butonu ekleyerek aradığım bilgileri satırındaki tüm bilgilerini bulsun ( bunu userform ile örnekledim )
bir diğer istediğim ise web-mail adreslerini ben büyük girsemde o küçük yazsın yardımlarınızı bekliyorum

 

[Korhan Ayhan]

Selamlar,

Web-Mail adreslerini küçük yazabilmek için aşağıdaki kodu kullanabilirsiniz.

Private Sub TextBox11_Change()
    TextBox11 = Evaluate("=LOWER(""" & TextBox11 & """)")
End Sub

 

[İhsan Tank]

Hocam teşekkür ederim diğer sorumun bir çözümü var mı acaba

 

[İhsan Tank]

arkadaşlar ara butonuna bastığımda çıkan userform'a bir isim girdiğimde altındaki listede o kişinin bütün bilgileri görünsün yardımcı olursanız sevinirim

 

[Korhan Ayhan]

Selamlar,

Arama işlemi içinde aşağıdaki kodu kullanabilirsiniz.

Private Sub TextBox1_Change()
    Dim BUL As Range, ADRES As String, Satır As Long, X As Byte
    
    If TextBox1 = Empty Then
        ListBox1.Clear
        Exit Sub
    End If
    
    ListBox1.Clear
    
    With Sheets("REHBER")
        Set BUL = .Range("A:A").Find(TextBox1)
        ReDim VERİ(1 To 12, 1 To 1)
        If Not BUL Is Nothing Then
        If BUL.Row > 1 Then
        ADRES = BUL.Address
        Do
            Satır = Satır + 1
            ReDim Preserve VERİ(1 To 12, 1 To Satır)
                For X = 1 To 12
                    VERİ(X, Satır) = .Cells(BUL.Row, X).Value
                Next
        Set BUL = .Range("A:A").FindNext(BUL)
        Loop While Not BUL Is Nothing And BUL.Row > 1 And BUL.Address <> ADRES
        End If
        End If
        Set BUL = Nothing
    End With
    
    If Satır > 0 Then
        With ListBox1
            .ColumnCount = 12
            .ColumnHeads = False
            .Column = VERİ
            .ListIndex = 0
        End With
    Else
        ListBox1.Clear
    End If
End Sub

 

[İhsan Tank]

hocam yardımların için teşekkür ederim yalnız benim bunda istediğim bunları yanyana değil tüm bilgileri alt alta yazması yardımlarını bekliyorum şimdiden tekrar teşekkür ederim

 

[İhsan Tank]

arkadaşlar benim istediğim bilgileri yanyana değilde hepsini altalt ve hangi kısımdan aldı ise onu yazması örneğin
1 firma ismi : ..........
2 telefon 1 : ..........
3 telefon 2 : ..........
gibi istiyorum yardımcı olursanız sevinirim

 

[İhsan Tank]

Yardım edecek kimse yok mu_?

 

[İhsan Tank]

arkadaşlar yardım edecek kimse yok mu_?

 

[İhsan Tank]

Yardıııııııııım