DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Value = "A" Or Target.Value = "a" Then
Target.Offset(0, 1).Select
End If
End Sub
Sayfa sekmesine sağ tuşla tıklayın ve Kod görüntüleyi tıklayın ve bu kodu çıkan sayfaya yapıştırınız.orion kardeş bir de bu kod nereye yazılıyo..