Düğmeye basınca dolu hücrelerin kırmızı renkli dolgu ile yanıp sönmesi mümkün müdür.

[adokskel]

Merhaba,

"a" harfı olan hücrelerin bir düğmeye basınca dolgu rengi kırmızı olarak ranıp sönmesi,diğer düğmeye basınca kırmızı renklerin sönüp "b" harfi olanların başka bir renk ile yanıp sönmesi mümkünmüdür? (Bu "a" ve "b" harfleri rastgele olabilir. Yani belli bir kuralı yok).

 

[halit3]

Merhaba,

"a" harfı olan hücrelerin bir düğmeye basınca dolgu rengi kırmızı olarak ranıp sönmesi,diğer düğmeye basınca kırmızı renklerin sönüp "b" harfi olanların başka bir renk ile yanıp sönmesi mümkünmüdür? (Bu "a" ve "b" harfleri rastgele olabilir. Yani belli bir kuralı yok).

ekli dosyaya bir bakarmısınız.

dosya aşağıdaki mesajda

 

[izcik]

Değerli Halit3 harika bir dosya yapmışsınız. Fakat 19. satırdan sonrasında iş görmüyor. 65536 satır olarak ayarlar mısınız ?

 

[izcik]

Başka veriler kaydedip denedim Q sütununa kadar kapsıyor galiba..

 

[izcik]

Tekrar tekrar denedim. 1. satırı kapsamıyor ve 258. satırdan sonrasını kapsamıyor. Sütun olarak da P sütununa kadar kapsıyor. Yani Q sütunu dahil IV sütununa kadar olan kısmı kapsamıyor.

Dosya benim çok hoşuma gitti. Değerli Halit tüm sütun ve satırları kapsayacak şekilde düzenlerseniz herkesin kullanabileceği çok kullanışlı bir dosya olacak.

 

[halit3]

Tekrar tekrar denedim. 1. satırı kapsamıyor ve 258. satırdan sonrasını kapsamıyor. Sütun olarak da P sütununa kadar kapsıyor. Yani Q sütunu dahil IV sütununa kadar olan kısmı kapsamıyor.

Dosya benim çok hoşuma gitti. Değerli Halit tüm sütun ve satırları kapsayacak şekilde düzenlerseniz herkesin kullanabileceği çok kullanışlı bir dosya olacak.

dosyayı yeniden derledim kontrol ediniz.
dosya aşağıdaki mesajda

 

[adokskel]

Selam arkadaşlar

İzcik arkadaşıma katılıyorum. Kapsamı genişletebilirsen süper olur. Ellerine sağlık halit dostum. lakin hücreleri silip kendi ihtiyacıma göre sayfayı düzenlediğimde "ara" düğmesi çalışmıyor.

 

[halit3]

İzcik arkadaşıma katılıyorum. Kapsamı genişletebilirsen süper olur. Ellerine sağlık halit dostum. lakin hücreleri silip kendi ihtiyacıma göre sayfayı düzenlediğimde "ara" düğmesi çalışmıyor.

ne hatası alıyorsunuz

 

[halit3]

dosyayı yeniden düzelttim

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Not : Kod sayfadaki tüm renkleri temizlediğinden renklendirilmiş çalışmalarınızda kullanırken dikkatli olunuz.

Option Explicit
 
Sub BUL_RENKLENDİR()
    Dim ARANAN_VERİ As Variant, RENK_KODU As Variant
    Dim BUL As Range, ADRES As String, SAY As Long
 
    Cells.Interior.ColorIndex = xlNone
 
    ARANAN_VERİ = Application.InputBox("Lütfen aradığınız veriyi giriniz...")
 
    If ARANAN_VERİ = False Then Exit Sub
 
    If ARANAN_VERİ = Empty Then
    MsgBox "Lütfen aradığınız veriyi giriniz !", vbExclamation
    Exit Sub
    End If
 
    RENK_KODU = Application.InputBox("Lütfen renk kodu giriniz...")
 
    If RENK_KODU = False And RENK_KODU <> 0 Then Exit Sub
 
    If RENK_KODU = Empty Then
    MsgBox "Lütfen renk kodu giriniz !", vbExclamation
    Exit Sub
    End If
 
    If RENK_KODU > 56 Then
    MsgBox "Renk kodu için en fazla 56 değerini girebilirsiniz !", vbExclamation
    Exit Sub
    End If
 
    Set BUL = Cells.Find(ARANAN_VERİ)
    If Not BUL Is Nothing Then
    ADRES = BUL.Address
    Do
    SAY = SAY + 1
    Range(BUL.Address).Interior.ColorIndex = RENK_KODU
    Set BUL = Cells.FindNext(BUL)
    Loop While Not BUL Is Nothing And BUL.Address <> ADRES
    End If
    MsgBox "Arama işlemi tamamlanmıştır." & vbCrLf & vbCrLf & _
    "Aradığınız veri ; " & ARANAN_VERİ & vbCrLf & vbCrLf & _
    SAY & " Adet kayıt bulunmuştur.", vbInformation
End Sub

 

[izcik]

Değerli Necdet Yeşertener uzmanım dosyanızı ilk fırsatta deneyeceğim.

Değerli Halit , birinci dosyanız bence daha iyiydi. Çünkü ikinci dosyada sadece 1. satır için arama yapıyor. Diğerlerini aramıyor. Bir de arama düğmesine bastığımızda ; "IV1" hücresine gidiyor nedense ...

Birinci dosyadaki arama özelliği bütün satır ve sütunları kapsarsa problem çözülmüş demektir. Zaten bir özellik, bir excel çalışma sayfasının tamamını kapsamaz ise o zaman hem insan yaptığı işten emin olmaz, hem de hatalar kaçınılmaz olur.

Saygılar

 

[halit3]

Değerli Necdet Yeşertener uzmanım dosyanızı ilk fırsatta deneyeceğim.

Değerli Halit , birinci dosyanız bence daha iyiydi. Çünkü ikinci dosyada sadece 1. satır için arama yapıyor. Diğerlerini aramıyor. Bir de arama düğmesine bastığımızda ; "IV1" hücresine gidiyor nedense ...

Birinci dosyadaki arama özelliği bütün satır ve sütunları kapsarsa problem çözülmüş demektir. Zaten bir özellik, bir excel çalışma sayfasının tamamını kapsamaz ise o zaman hem insan yaptığı işten emin olmaz, hem de hatalar kaçınılmaz olur.

Saygılar

bende bütün hüsrelerde çalışıyor herhalde yenisini denemediniz alternatif olarak korhan ayhan bey de kod yazmış

 

[izcik]

Değerli Necdet Yeşertener uzmanım. Dosyayı denedim. Elinize sağlık.

Halit arkadaşımızın oluşturduğu dosyalar üzerinde denemeler yaparken bütün hücrelere (65536 X 256) "ahmet" ismini kopyaladım ve aramayı bu şekilde yaptım. (tam emin olmak için) excel'de kilitlenme olmadı. (Belki de zaten bütün hücreleri kapsamasığı içindir.) (Kapsasa belki bu da kilitlenecekti)

Sizin dosyanız bu sebepten kilitlenmiş olabilir.
Onun dışında hoş olmuş. Yalnız renk kodu yerine renk adı girilebilir mi veya olmuyorsa böyle de kusursuz bir dosya. Ben beğendim. Tekrar elinize sağlık uzmanım.

 

[halit3]

birde bu kodu denermisiniz

Sub bul1()
Cells.Interior.ColorIndex = xlNone
ad = InputBox("aranacak değeri yazınız.", "DEĞER", "")
If ad = "" Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If
Set d = Cells.Find(ad, LookIn:=xlValues)
If Not d Is Nothing Then
firstAddress = d.Address
Do
d.Interior.ColorIndex = 3 'buradaki sayı renkleri göstermektedir.
sut = sut + 1
Set d = Cells.FindNext(d)
Loop While Not d Is Nothing And d.Address <> firstAddress
End If
MsgBox sut & " adet bulundu"
End Sub

 

[izcik]

bende bütün hüsrelerde çalışıyor herhalde yenisini denemediniz alternatif olarak korhan ayhan bey de kod yazmış

Değerli halit yenisini denemiştim. Şimdi tekrar baktım. Örnek 65536 satırda herhangi bir hücreye ANAMUR kelimesini yazın bakalım bulacakmı.?

 

[halit3]

dosyada yeniden düzenleme yaptım

dosya aşağıdaki mesajda

 

[adokskel]

süpper

Son hali harika. ellerinize sağlık. Çok önemli değil ama o kırmızı renklerin yanıp yanıp sönmesini sağlamak uğraştırmayacaksa sizi halledebilir misiniz.

 

[adokskel]

süpper

ellerinize sağlık harika olmuş. Lakin Bu kırmızı renklerin yanıp yanıp sönmesini ayarlamak zahmetli değil ise vaktinizi almayacaksa çok ayarlayabilmeniz mümkün mü?

 

[halit3]

ellerinize sağlık harika olmuş. Lakin Bu kırmızı renklerin yanıp yanıp sönmesini ayarlamak zahmetli değil ise vaktinizi almayacaksa çok ayarlayabilmeniz mümkün mü?

ara3 düğmesi kırmızı renkleri yanıp yanıp söndürüyor

tabi bunun birde durması lazım durdur düğmeside bu döngüyü durduruyor

dosya aşağıdaki mesajda

 

[eedtr]

ellerinize ve aklınıza sağlık