Hücre seçme kodunda ikinci seçenek olurmu

[hakpin]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AD$16" Then [AI16].Select
End sub
DEĞERLİ ÜSTADLAR;
BU KODDA İKİ SEÇENEK KULLANABİLMEMİZ MÜMKÜNMÜ? ŞU ŞEKİLDE;
EĞER($AN$14="BİLETLİ";AD16 DAN $AI$16 YA GEÇMELİ
EĞER ($AN$14="BİLETSİZ";AD16 DAN $L$18 'E GEÇMELİ.
YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜR EDERİM.

 

[Korhan Ayhan]

Selamlar,

Lütfen sorunuzu sorarken yazım kurallarına uymaya azami dikkat göstermeye gayret edin. Büyük harf kullanmanız BAĞIRMAK anlamına gelmektedir.

Aşağıdaki kodu denermisiniz. (Büyük-küçük harf duyarlıdır.)

Private Sub Worksheet_Change(ByVal Target As Range)
    If [AN14] = "BİLETLİ" And Target.Address = "$AD$16" Then [AI16].Select
    If [AN14] = "BİLETSİZ" And Target.Address = "$AD$16" Then [L18].Select
End Sub

 

[Necdet]

Private Sub Worksheet_Change(ByVal Target As Range)
        If Intersect(Target, [AD16]) Is Nothing Then Exit Sub
        If [AN14] = "BİLETLİ" Then [AI16].Select
        If [AN14] = "BİLETSİZ" Then [L18].Select
End Sub

Geç kalmışım, ama yinede farklı yazım şeklinin de olabileceği açısından önemli

 

[Orion1]

Merhaba.
Aşağıdaki kodları deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [AD16]) Is Nothing Then Exit Sub
On Error GoTo hata
If Range("AN14").Value = "BİLETLİ" Then Range("AI16").Select
If Range("AN14").Value = "BİLETSİZ" Then Range("L18").Select
hata:
End Sub

 

[hakpin]

İlgilenen tüm forum arkadaşlarıma teşekkür ederim.İşleriniz kolay gelsin.