Arama butonu
Bu konudaki kullanıcılar: 1 misafir
1
Cevap
455
Tıklama
0
Öne Çıkarma
Excelde CTRL+F yerine sorgulama makrosu yapılabilir mi?
S
geçen yıl
Yüzbaşı
Konu Sahibi

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)

< Resime gitmek için tıklayın >





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

M
geçen yıl
Yüzbaşı

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 >

DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.