Şimdi Ara

Excelde CTRL+F yerine sorgulama makrosu yapılabilir mi?

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
3
Cevap
0
Favori
221
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • Excele bir liste yapıştırdığımda ctrl+f ile tek tek aratmak istemiyorum.


    sol tarafta sevk no yer alıyor ben excel üzerinde bir yere okuttuğumda var otomatik bulup sarıya boyasın yoksa "yok" yazsın. ama her defasında okuttuğum yeri de silsin.

    böyle bir makro yapılabilir mi? sorgulama ekranı paketi okuttuktan sonra paket no silinsin yeni sorguya hazır olsun.


    Kısaca soldaki listede veri var. sağ tarafta paketleri okutucam o paket no varsa sarıya boyasın (yada karşısına 1 yazsın) yoksa herhangi bir tepki vermesin (ya da karşısına 0 yada yok yazsın)


    Excelde CTRL+F yerine sorgulama makrosu yapılabilir mi?



    < Bu mesaj bu kişi tarafından değiştirildi snl_ -- 9 Ekim 2023; 11:14:4 >







  • sizin için basit birşey

    makro kodu butonlu şekilde

    Excel "Geliştirici" menüsü-"Ekle"-"Komut Düğmesi (AktiveX Denetimi) aracını seçip bir buton koyun

    Sonra butona sağ tıklayıp "Kod Görüntüle" diyin.Açılan pencereye aşağıdaki makro kodunu yapıştırın.

    Private Sub CommandButton1_Click()


     Dim ArananVeri As String

     Dim HedefAralik As Range

     Dim Hücre As Range


     ' Aranacak veriyi A1 hücresinden al

     ArananVeri = Sheets("Sayfa1").Range("A1").Value


     ' Arama yapılacak hedef aralığı belirleyin (örneğin, A1:A1000)


     Set HedefAralik = Sheets("Sayfa1").Range("A2:A1000")

      

     ' Verinin hedef aralığı


     For Each Hücre In HedefAralik


      If Hücre.Value = ArananVeri Then


       ' Eşleşme bulunduğunda sarı dolgu rengi uygulayın


       Hücre.Interior.Color = RGB(255, 255, 0) ' Sarı renk


      End If


     Next Hücre


    End Sub


    A1 hücresine yazılan veriyi A2 ile a1000 arasında arama yapar ve sarı renge boyar.isteğinize göre değiştirebilirsiniz.




    < Bu mesaj bu kişi tarafından değiştirildi madenipara11 -- 14 Ekim 2023; 21:57:39 >




  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.