Buton Ve Textbox Ile Arama Yapma | Excel WEB TR Forum

Menü

• Ana sayfa
• Forumlar Yeni mesajlar Forumlarda ara
• Son Mesajlar Yeni mesajlar
• www.excel.web.tr Kalitesiyle EXCEL EĞİTİMLERİ

Giriş yap Kayıt ol Son Mesajlar Ara

Ara

Her yerde Konular Bu forum Bu konu Sadece başlıkları ara Kullanıcı: Ara Gelişmiş Arama...

• Yeni mesajlar
• Forumlarda ara

Menü Giriş yap Kayıt ol

• DİKKAT

  DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir! Altın Üyelik Hakkında Bilgi

• Ana sayfa
• Forumlar
• EXCEL-Soruları
• Makro-VBA Soruları

Buton ve textbox ile arama yapma

• Konbuyu başlatan kadir78
• Başlangıç tarihi 7 Eylül 2018

K

kadir78

Altın Üye Katılım 6 Nisan 2016 Mesajlar 227 Excel Vers. ve Dili office 2019 Altın Üyelik Bitiş Tarihi 30-12-2026 İyi günler. Excel çalışma kitabında buton ve textbox ile arama yaptıran kod arıyorum. Textbox içine girilen yazı veya rakam verisini, çalışma kitabında arama yapacak ve bulduğu ilk veri hücresine giden makro kod arıyorum. Biraz araştırma yaptım sonuç alamadım. Yardımcı olursanız sevinirim.

turist

Destek Ekibi

Destek Ekibi Katılım 18 Kasım 2009 Mesajlar 5,100 Excel Vers. ve Dili 2013 64Bit English Aşağıdaki kocu deneyin. Kod: Sub ilkhücreyibul() Dim ws As Worksheet Dim aranan As String Dim alan As Range Dim sayfa As String Dim i As Integer aranan = Sheets("Sayfa1").TextBox1.Text If aranan = "" Then Exit Sub For Each ws In Worksheets Set alan = ws.Cells.Find(What:=aranan) If Not alan Is Nothing Then i = i + 1 If i = 1 Then sayfa = alan.Worksheet.Name Sheets(sayfa).Select alan.Select End If End If Next ws If i = 0 Then: MsgBox "Aranan değer Sayfalarda YOK", vbInformation End Sub Not: aranan = Sheets("Sayfa1").TextBox1.Text satırındaki "Sayfa1" örnektir, kendi sayfa adınızı buraya yazabilirsiniz. Aynı şekilde; aynı satırdaki TextBox1 de kendi textbox'ınızla değiştirebilirsiniz. İyi çalışmalar. K

kadir78

Altın Üye Katılım 6 Nisan 2016 Mesajlar 227 Excel Vers. ve Dili office 2019 Altın Üyelik Bitiş Tarihi 30-12-2026 Sayın Hocam kodlar işime yaradı çalışıyor. Teşekkür ederim elinize emeğinize sağlık. İyi günler.

turist

Destek Ekibi

Destek Ekibi Katılım 18 Kasım 2009 Mesajlar 5,100 Excel Vers. ve Dili 2013 64Bit English Sağolun. F

furkyt

Katılım 8 Temmuz 2019 Mesajlar 1 Excel Vers. ve Dili 2021 Türkçe

turist' Alıntı: Aşağıdaki kocu deneyin. Kod: Sub ilkhücreyibul() Dim ws As Worksheet Dim aranan As String Dim alan As Range Dim sayfa As String Dim i As Integer aranan = Sheets("Sayfa1").TextBox1.Text If aranan = "" Then Exit Sub For Each ws In Worksheets Set alan = ws.Cells.Find(What:=aranan) If Not alan Is Nothing Then i = i + 1 If i = 1 Then sayfa = alan.Worksheet.Name Sheets(sayfa).Select alan.Select End If End If Next ws If i = 0 Then: MsgBox "Aranan değer Sayfalarda YOK", vbInformation End Sub Not: aranan = Sheets("Sayfa1").TextBox1.Text satırındaki "Sayfa1" örnektir, kendi sayfa adınızı buraya yazabilirsiniz. Aynı şekilde; aynı satırdaki TextBox1 de kendi textbox'ınızla değiştirebilirsiniz. İyi çalışmalar. Genişletmek için tıkla ...

Ben bu kodu çalıştıramadım bir türlü alan.Select bölümünde kalıyor Cevap yazmak için giriş yap yada kayıt ol. Paylaş: Facebook Twitter Reddit Pinterest Tumblr WhatsApp E-posta Link

• Ana sayfa
• Forumlar
• EXCEL-Soruları
• Makro-VBA Soruları

• Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır. Kabul Ediyorum Daha fazla bilgi edin....

Üst