aktif hücreye farklı harf girilmesin

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Aktif hücreye girilen harfleri kısıtlamanın bir yolunu arıyorum. Bildiğiniz yerde bir örnek var mıdır?
Saygılarımla

 

[muhasebeciyiz]

http://www.excel.web.tr/f157/hucrede-karakter-synyrlama-resimli-anlatym-t83831.html

konuyu takip ediniz

 

[Tevfik_Kursun]

Sayın muhasebeciyiz,
ilginize çok teşekkür ederim. Hemen deneyeceğim.
Saygılarımla

 

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Sayın İhsan Tank arkadaşımın çalışması çok güzel, fakat sadece uzunluk kısıtlaması yapıyor.
Ben hücreye girilen harfin "D" ya da "Y" olmaması halinde bir alt satıra geçse bile geri dönüp hücredekini silip beklemesini ve boş hücreye izin vermemesini istiyorum.
1. mesajımda tam açıklama yapmadığım için de özür diliyorum.
Saygılarımla

 

[Haluk]

Sadece 1 adet harf girilecek, o da "D" veya "Y" mi olacak ?


.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
İlginize teşekkür ederim. Evet 1 adet harf girilecek, "A" ya da "B" de olabilir.
(bazı durumlarda sadece "A" gibi tek çeşit olabilir ve her zaman 1 uzunluklu)
Saygılarımla

 

[Korhan Ayhan]

Ekteki dosyayı deneyiniz.

"A" sütunu için çalışır.

 

[Tevfik_Kursun]

Sayın Korhan Ayhan Hocam,
İlginize çok teşekkür ederim, tam düşündüğüm gibi.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Korhan Ayhan Hocam,
Tekrar teşekkür ederim.
Bu çalışmaya, lütfen, sizin 02.05.2016 tarihli aktif hücre ortada

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ÜST_SATIR As Long, AKTİF_SATIR As Long, SATIR_SAY As Long
    ÜST_SATIR = ActiveWindow.ActivePane.ScrollRow
    AKTİF_SATIR = Target.Row
    SATIR_SAY = Windows(1).VisibleRange.Rows.Count
    If ÜST_SATIR <= AKTİF_SATIR Then
         ActiveWindow.SmallScroll Down:=AKTİF_SATIR - ÜST_SATIR - (SATIR_SAY / 2)
    End If
End Sub

isimli çalışmanızı adapte eder misiniz? Kontrol değişkeni israrla engelledi.
Zahmetleriniz için çok teşekkür ederim.
Saygılarımla
sürekli Kontrol değişkeni için "variable not defined" uyarısı geliyor

 

[Korhan Ayhan]

Merhaba,

İstediğiniz ekleme için uygulama alanınızın geniş olması gerekiyor. Bu kadar hücre için aktif hücre ekranın ortasında seçeneği ne işinize yarayacak?

 

[Tevfik_Kursun]

Sayın Korhan Ayhan Hocam,
Bu sadece örnekti.
Çalışmanın birinde aralık "L11:M514" ve resim de ekte TK_deneme2.png
Bir başkası "G10:G459" ve resim de ekte TK_deneme3.png
Bir başkasında hepsini doldurmak zorunlu değil ... gibi, gibi ...
Saygılarımla

 

[Korhan Ayhan]

Dosyanız ektedir.

 

[Tevfik_Kursun]

Sayın Korhan Ayhan Hocam,
Hemen uygulayıp deneyeceğim. En kısa zamanda bilgilendireceğim.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Korhan Ayhan Hocam,
Bilgi vermek için yazıyorum. Ancak fırsat bulabildim.
Yapılan çalışma, tek sütunda aralıklı da olsa çok temiz çalışıyor.
Tekrar teşekkür ederim.
Saygılarımla