Belirli Aralığı Geçici Renklendirme

[ercan_bora]

Selamlar,

sipariş formu hazırlıyorum. İnsanların listede kolay seçmesi adına sipariş kolonuna tıklayınca geçici olarak belirli bir aralığı belirtilen renge boyamak istiyorum.
Başka hücreye geçince de o renk kalkacak hangi renk varsa eskiden o renk yine olacak.

Ekte nasıl istediğime dair bir dosya var. Umarım böyle bişey mümkün dür.

Referans.xlsx dosyasını indir - download

Referans.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırırsanız istediğinizi yapıyor ama biraz yavaş çalışıyor:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hucre As Range
If Intersect(Target, [R8:S26]) Is Nothing Then Exit Sub
If Target.Row Mod 2 = 1 Then Exit Sub
For Each hucre In [H8:Q26]
    If hucre.Row Mod 2 = 0 Then
        hucre.Interior.Color = 15132391
    End If
Next
[R8:S26].Interior.Color = xlNone
Range("H" & Target.Row & ":S" & Target.Row).Interior.Color = 13285804
End Sub

 

[ercan_bora]

evet biraz yavaş çalışıyor ama iş görür Allah razı olsun....