Select Case ile ilgili bir soru

[Mx@Raid]

Arkadaşlar aşağıdaki kodla aynı satır aralığındaki iki farklı sütuna ait değerleri çalıştırmasını istedim ancak başaramadım. Yardımcı olursanız sevinirim.

    For i = 24 To 31

        Select Case Range("J" & i) & Range("Z" & i).Value
            Case "AA"
                Range ("L" & i) & Range("AB" & i) = 4

            Case "BA"
                Range ("L" & i) & Range("AB" & i) = 3.5

            Case "BB"
                Range ("L" & i) & Range("AB" & i) = 3

            Case "CB"
                Range ("L" & i) & Range("AB" & i) = 2.5

            Case "CC"
                Range ("L" & i) & Range("AB" & i) = 2

            Case "DC"
                Range ("L" & i) & Range("AB" & i) = 1.5

            Case "DD"
                Range ("L" & i) & Range("AB" & i) = 1
                
            Case "G"
                Range ("L" & i) & Range("AB" & i) = 0
        End Select
    Next

 

[Necdet]

Merhaba,

Sorunuzdan ne yapmak istediğiniz tam olarak anlaşılmıyor.
Lütfen örnek dosya gönderin ve olması gereken değeri belirtiniz.

 

[Mx@Raid]

Örnek dosya ekledim. Arkadaşlar kodu eklememiştim oyüzden dosyayı değiştirdim.

 

[Orion1]

KOdlar çalışma sayfasının kod bölümünde.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim hcr As Range
If Intersect(Target, Range("G:G,S:S")) Is Nothing Then Exit Sub
On Error Resume Next
Set hcr = Target.Offset(0, 2)
hcr.Value = ""
Select Case UCase(Target.Value)
    Case "DC": hcr.Value = 1.5
    Case "DD": hcr.Value = 1
    Case "CC": hcr.Value = 2
    Case "BB": hcr.Value = 3
    Case "G": hcr.Value = 0
End Select
    
End Sub

 

[Mx@Raid]

Teşekkürler Evren bey.

 

[Orion1]

Teşekkürler Evren bey.

Rica ederim.
İyi çalışmalar.