• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

aktif hücreye farklı harf girilmesin

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,904
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
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
 
Sayın muhasebeciyiz,
ilginize çok teşekkür ederim. Hemen deneyeceğim.
Saygılarımla
 
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
 
Sadece 1 adet harf girilecek, o da "D" veya "Y" mi olacak ?


.
 
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
 
Son düzenleme:
Ekteki dosyayı deneyiniz.

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

Ekli dosyalar

Sayın Korhan Ayhan Hocam,
İlginize çok teşekkür ederim, tam düşündüğüm gibi.
Saygılarımla
 
Sayın Korhan Ayhan Hocam,
Tekrar teşekkür ederim.
Bu çalışmaya, lütfen, sizin 02.05.2016 tarihli aktif hücre ortada
Kod:
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
 

Ekli dosyalar

  • TK_deneme.xlsm
    TK_deneme.xlsm
    20 KB · Görüntüleme: 1
  • TK_deneme1.jpg
    TK_deneme1.jpg
    21.3 KB · Görüntüleme: 2
Son düzenleme:
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?
 
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
 

Ekli dosyalar

  • TK_deneme2.jpg
    TK_deneme2.jpg
    16.8 KB · Görüntüleme: 0
  • TK_deneme3.jpg
    TK_deneme3.jpg
    5.6 KB · Görüntüleme: 0
Sayın Korhan Ayhan Hocam,
Hemen uygulayıp deneyeceğim. En kısa zamanda bilgilendireceğim.
Saygılarımla
 
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
 
Geri
Üst