- Katılım
- 8 Mart 2006
- Mesajlar
- 317
- Excel Vers. ve Dili
- EXCEL-2013
- Altın Üyelik Bitiş Tarihi
- 18-05-2024
Diğer sayfadaki hücrelerde Textbox ta ki ismi aratıp ilgili hücreye gitmek
Ekli dosyalar
-
35.8 KB Görüntüleme: 5
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub TextBox1_Change()
Dim Bul As Range
Set Bul = Sheets("detay").Cells.Find(TextBox1, , , xlWhole)
If Not Bul Is Nothing Then
Bul.Parent.Select
Bul.Select
End If
End Sub
Sub Firma_Bul()
Dim Bul As Range
Set Bul = Sheets("detay").Cells.Find(TextBox1, , , xlWhole)
If Not Bul Is Nothing Then
Bul.Parent.Select
Bul.Select
End If
End Sub