Koddaki sütünu değiştirmek.

[sensizsoldum]

Merhaba,
Arkadaşlar aşağıdaki koddaki sütunların yerini değiştirmem gerekiyor. Ben sütunların nerde yazıldığını çözemedim.
Kod D3: D göre uyarlayabilir miyiz. Kod E3:E göre çalışıyor.
İlgileriniz için şimdiden çok teşekkür ederim.
Mutlu akşamlar dilerim.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column <> 5 Then Exit Sub
    
    Dim B_son  As Long
    Dim x As Variant, var As Variant
    
    B_son = Cells(Rows.Count, "B").End(xlUp).Row
    
    If Len(Trim(Target.Value)) > 0 Then
        Target.Interior.Color = vbGreen
        For i = 3 To B_son
            x = Split(Cells(i, 2), "-")
            var = Application.VLookup(Target.Value, Application.Transpose(x), 1, 0)
            If Not IsError(var) Then
                Target.Interior.Color = vbRed
            End If
        Next
    Else
        Target.Interior.Color = xlNone
    End If

End Sub

 

[halit3]

Birkere cevap veriyorum.

If Target.Column <> [COLOR=red]4[/COLOR] Then Exit Sub

kırmızı renkli sayı değeri D sutünunu belirtiyor.

not:

A=1
B=2
C=3
D=4
E=5

Bunun gibi

 

[sensizsoldum]

Merhaba Halit bey,
Gösterdiğiniz yeri 4 olarak değiştirdim lakin değişiklik olmadı.

 

[sensizsoldum]

Merhaba,
Halit bey, Kodda başka nereyi daha değiştirmem gerekiyor.

İyi çalışmalar dilerim.

 

[halit3]

Merhaba,
Halit bey, Kodda başka nereyi daha değiştirmem gerekiyor.

İyi çalışmalar dilerim.

Şimdi bilmiyorum desem olmuyacak kodda ilk bakışta

If Target.Column <> 5 Then Exit Sub

yukarıdaki yerle ilgili imleç beşinci sütün yani E sütünu ile ilgili herhengibir yerde değilse kod çalışmaz anlamı var.

başkada aklıma bir şey gelmiyor.

Sorularınızı sorarken örnek dosyanız ile neden (eklemiyorsunuz)desteklemiyorsunuz.

 

[sensizsoldum]

Tamamdır Halit Bey,
Siz haklısınız, Başka değişmesi gerekn yer yokmuş. Sayfada farklı kodlardan engel oluyor o bakımdan böyle oluyormuş.
Çok teşekkür ederim.

İyi çalışmalar dilerim.