Satır rengi

[nadirornek]

Ekli dosyada kodlarım kod sayfasındadır.
Benim yapmak isteğidiğim ise I sutununa veri girdiğim zaman girmiş olduğum veri satırını I,J,K,L ye kadar renklendirmesi
Yani örnek I2 ye 420 yazdığım zaman I2:L2 hücre aralığını boyaması yardımlarınız için teşekkürler.

 

[askm]

Sayfa kod kısmına aşağıdaki kodları ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat, sut As Long
sat = Target.Row
sut = Target.Column
If sat > 2 And sut = 9 Then
    Range(Cells(sat, sut), Cells(sat, sut + 3)).Interior.ColorIndex = 3 'rengi değiştirebilirsiniz.
End If
End Sub

 

[turist]

Dosyanız eklidir.

 

[Tevfik_Kursun]

Teşekkürler Sayın Askm ve Sayın Turist.
Bu arada bir soru da ben sormuş olayım. Burada I sütununda rakam yazdığınızda renkleniyor. O satırda düzenleme yapılacaksa I sütununda kursor gelip istenen satıra oturduğunda o satır nasıl boyanır? (değer olan çok sayıda sütun varsa)
Saygılarımla

 

[nadirornek]

Kod güzel olmuş elinize sağlık.Teşekkürler.
Sayfamı biraz daha geliştirmek için I ve K sutunlarına formüller eklediğim zaman renkler çıkmıyor.I,J,K sutunlarına formül yazıp formülü aşağıya doğru çektiğim zaman satırlarında renklenmesini istiyorum yapabilirmiyiz.

 

[turist]

Kod güzel olmuş elinize sağlık.Teşekkürler.
Sayfamı biraz daha geliştirmek için I ve K sutunlarına formüller eklediğim zaman renkler çıkmıyor.I,J,K sutunlarına formül yazıp formülü aşağıya doğru çektiğim zaman satırlarında renklenmesini istiyorum yapabilirmiyiz.

Verilen cevaplarda 1 Kod ve 1 Ekli dosya var.
Hangisinden bahsediyorsunuz?

 

[nadirornek]

Yazdığınız formülde biraz değişiklik yapabilirmisiniz.I sütununa formül girdiğim zaman satır renklensin.

 

[nadirornek]

Sizin yazdığınız kod üzerinden

 

[askm]

Sayın Tevfik_Kursun sorunuzu tam olarak anlamadım. Örnek dosya ile destekleyebilir misiniz.

 

[turist]

Dosyadaki Kod, I sütununda satırlara girilen 555,430,450,451.........314 gibi sayılarla sayıların belirlenmiş renklerine göre o satırın I,J ve K sütunlarını renklendiriyor.
I...K sütunlarına nasıl bir formül girilince aynı mantıkla renklendirme olması gerekir?

 

[nadirornek]

I sütununa parçaal formülü girince formülü yazıp aşağıya doğru çekince satırlar renklensin.formüller eklediğim dosya sütunlarında var.

 

[turist]

Ekli dosyaya bakınız.
Formül girişleri yaptığınızda "Renklendir" Butonuna basarak sonucu görebilirsiniz.
Formül dışında hücreye direk numara yazdığınızda da Renklendirme yapacaktır.

 

[Tevfik_Kursun]

Sayın Askm,
Örnek ektedir.
Saygılarımla

 

[askm]

I Sutununda herhangi bir satır seçilince çalışacak bir kod mu istiyorsunuz? Yani I3 e gelince 3. satır renklensin. I5 e gelince 5. satır renklensin gibi.
Aşağıdaki gibi mi?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [I2:I65500]) Is Nothing Then Exit Sub
Cells.Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Interior.ColorIndex = 8
End Sub

 

[Tevfik_Kursun]

Sayın Askm,
Günaydın. Şahsınızda gönüllü çalışan tüm arkadaşlara teşekkür ederim. Yazdığınız makroyu henüz denemedim, ama sorduğum soruyu ben çözdüm ve dosyayı ekledim. Hemen makroyu deneyeceğim.
İlginize ve tüm ekibe çok teşekkür ederim.
Saygılarımla

 

[nadirornek]

Merhaba turist
Formül girişleri yaptığınızda "Renklendir" Butonuna basarak sonucu görebilirsiniz.

Bu işlemi ben yapmıştım.Bu çalışma kitabının kod sayfasında kodlar mevcut zaten.
Yapmak istediğimiz I sütununa formül yazıp aşağıya doğru çektiğim zaman I,J,K satırlarının renklenmesi yani renklendir butonona basmadan yapacak bu işlemi.Hücrede formül yoksada renklendirme silinecek. Bu şekilde yapabilirmiyiz.Teşekkürler.

 

[turist]

Maalesef ben yapamam.

 

[Korhan Ayhan]

Ekli dosyayı deneyiniz.

 

[nadirornek]

Korhan bey,kod tam istediğim gibi olmuş emeğinize sağlık

 

[nadirornek]

Korhan bey,
Yeni sayfa açtığım zaman kodlar çalışmıyor.Sayfa1 ismini sayfa ismine göre renkleri_sil,ve Renklendir kodunda sayfa ismini değiştirmem gerekiyor.Kodlar her açtığım sayfada da çalışabilirmi?