Case Değeri ile ilgili

[SAGULNET]

Merhaba üstadlar;

Benim Sorunum aşağıdaki kodda Case IS değeri ile ilgili;
Bu kodlar ile 12. sütuna girilen veriyi 137. sütuna yazıyor. Benim istediğim;

13. sütuna yazılanı 138 e
14. sütuna yazılanı 139 a
yazmasıdır. Case Is 12 or 13 or 14 ve and kodları yazdım ama olmadı. Nasıl bir çözüm önerirsiniz ?
Şimdiden teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
On Local Error GoTo cikis
Dim syf As Worksheet
Set syf = Worksheets("SYS")
Select Case Target.Column
[SIZE="4"][COLOR="Lime"]Case Is = 12[/COLOR][/SIZE]
  Select Case Target.Value
    Case Is <> Empty
      Target.Offset(0, 125).Value = _
        WorksheetFunction.VLookup(Target, syf.Range("a1:ff" & syf.Range("a65536").End(3).Row), 1, 0)
        
    Case Else
      Target.Offset(0, 125).Value2 = ""

  End Select
Case Else
cikis:
    Exit Sub
End Select



Set syf = Nothing
End Sub

 

[mancubus]

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("L1:N65000")) Is Nothing Then
    Target.Offset(0, 125).Value = Target.Value
End If

End Sub