Hücre reklendirme kodu neden modülde çalışmıyor?

[ikikan]

Sub renk2()
Dim sh
On Error GoTo Son
Set sh = Sheets("re")
If Intersect(sh.Target, [A1:N30]) Is Nothing Then Exit Sub
If Trim(sh.Target.Value) = 1 Then
renk = 31
ElseIf Trim(sh.Target.Value) = 2 Then
renk = 32
ElseIf Trim(sh.Target.Value) = 3 Then
renk = 3
ElseIf Trim(sh.Target.Value) = 4 Then
renk = 4
ElseIf Trim(sh.Target.Value) = 5 Then
renk = 5
ElseIf Trim(sh.Target.Value) = 6 Then
renk = 6
ElseIf Trim(sh.Target.Value) = 7 Then
renk = 7
ElseIf Trim(sh.Target.Value) = 8 Then
renk = 8
ElseIf Trim(sh.Target.Value) = 9 Then
renk = 9
ElseIf Trim(Target.Value) = 10 Then
renk = 10
ElseIf Trim(sh.Target.Value) = 11 Then
renk = 11
ElseIf Trim(sh.Target.Value) = 12 Then
renk = 12
ElseIf Trim(sh.Target.Value) = 13 Then
renk = 13
ElseIf Trim(sh.Target.Value) = 14 Then
renk = 14
ElseIf Trim(sh.Target.Value) = 15 Then
renk = 15
ElseIf Trim(sh.Target.Value) = 16 Then
renk = 16
ElseIf Trim(sh.Target.Value) = 17 Then
renk = 17
ElseIf Trim(sh.Target.Value) = 18 Then
renk = 18
ElseIf Trim(sh.Target.Value) = 19 Then
renk = 19
ElseIf Trim(Target.Value) = 20 Then
renk = 20
ElseIf Trim(sh.Target.Value) = 21 Then
renk = 21
ElseIf Trim(sh.Target.Value) = 22 Then
renk = 22
ElseIf Trim(Target.Value) = 23 Then
renk = 23
ElseIf Trim(Target.Value) = 24 Then
renk = 24
ElseIf Trim(sh.Target.Value) = 25 Then
renk = 25
ElseIf Trim(sh.Target.Value) = 26 Then
renk = 26
ElseIf Trim(sh.Target.Value) = 27 Then
renk = 27
ElseIf Trim(sh.Target.Value) = 28 Then
renk = 28
ElseIf Trim(sh.Target.Value) = 29 Then
renk = 29
ElseIf Trim(sh.Target.Value) = 30 Then
renk = 30
Else
renk = xlNone
End If
sh.Cells(Target.Row, Target.Column).Interior.ColorIndex = renk
sh.Target.Interior.ColorIndex = renk
Son:
End Sub

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Call renk2

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call renk2
End Sub

Bu kodu modüle adapte edemitorum yanlış nerde acaba?

 

[Korhan Ayhan]

Merhaba,

Target ifadesi sayfaya ait bir ifadedir. En son işlem yapılan hücreyi temsil eder. Bu sebeple modülde istediğiniz tepkiyi vermez.

Modül içinde "Activecell" ifadesini kullanabilirsiniz.

 

[hayrettinoner]

Koşullu biçimlendirmede tim satırın renklendirilmesi

Sayın Üstadlar,

Ekteki tabloda E sütununda yaptığım koşullu metin biçimlendirmesinde tüm satırın aynı renkte olması için ne yapabilirim.

Saygılarımla

 

[ikikan]

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
If Trim(Target.Value) = 1 Then
renk = 15
ElseIf Trim(Target.Value) = 2 Then
renk = 19
ElseIf Trim(Target.Value) = 3 Then
renk = 34
ElseIf Trim(Target.Value) = 4 Then
renk = 37
ElseIf Trim(Target.Value) = 5 Then
renk = 40
ElseIf Trim(Target.Value) = 6 Then
renk = 3
Else
renk = 2
End If

Range("A" & Target.Row & ":E" & Target.Row).Interior.ColorIndex = renk
Son:
End Sub

Bu kod geliştirilirse işinini görebilir

 

[ikikan]

Örnek ektedir bir deneyin

 

[ikikan]

Merhaba,

Target ifadesi sayfaya ait bir ifadedir. En son işlem yapılan hücreyi temsil eder. Bu sebeple modülde istediğiniz tepkiyi vermez.

Modül içinde "Activecell" ifadesini kullanabilirsiniz.

Doğru teşekürler