DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Düğme1_Tıklat()
On Error Resume Next
[A1].Select
a = InputBox("Aramak istediğiniz şey nedir ?", " Selamlar...")
Columns(2).Find(a).Select
ActiveCell.EntireRow.Select
End Sub
=EĞER(EĞERSAY(A[B]2[/B]:A[B]1000[/B];B2)>0;"X";"")
Sub Düğme1_Tıklat()
On Error Resume Next
Columns(2).Find(Range("A1").Value).Select
ActiveCell.EntireRow.Select
End Sub
B sütununu komple seç koşullu biçimlendir de, yeni kural>yalnızca şunu içerem hücreleri biçimlendir> ordan eşiti seçeceksin> hedef hücrede boş bir hücre belirle orayı sec böylece o sectiğin hücreye aramak istediğin değeri girebileceksin> biçimlendirme ayarlarını yap nasıl belirlemek istersen. kolay gelsin
Benim bağlantı adresi verdiğim belgeyi denediniz mi acaba?
Hala bir örnek belge eklememekte ısrarlısınız anlaşılan.
Ben ve Sayın Şaban Bey, üşenmeyip sizin için örnek belge hazırlıyoruz ve ekliyoruz (maksat sizin ihtiyacınızın görülmesi elbette) ancak nedendir bilinmez siz bir örnek belge hazırlayıp ekleme zahmetine katlanmıyorsunuz.
Hakikaten ilginç bir durum.