• DİKKAT

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

Veri doğrulama listesi uzunsa

S

samet_can

Katılım
10 Haziran 2013
Mesajlar
322
Excel Vers. ve Dili
2010 & 2007 & 2013
S.A.

Veri doğrulama listem uzun olduğun da veri doğrulama yerine iş veren altarnatif istiyor yazıları rahat okuyamıyor. hücreye tıklandığında user form gibi bir form sayfası açılması liste öğeleri buton olarak görüntülenmesi ve tıklandığında hücreye otomatik yazılması mümkünmüdür.
 
Bir kaç gündür bu konu hakkın da uğraşıyorum geçmiş konuları da elimden geldikçe inceledim kendimi çıkmaz sokakta deli gömleği giymiş gibi buldum yardımlarınız lütven !!!
 
eğer veri doğrulama listesi uzunsa

S.A.

Veri doğrulama listem uzun olduğun da veri doğrulama yerine iş veren altarnatif istiyor yazıları rahat okuyamıyor. hücreye tıklandığında user form gibi bir form sayfası açılması liste öğeleri buton olarak görüntülenmesi ve tıklandığında hücreye otomatik yazılması mümkünmüdür.

Bir kaç gündür bu konu hakkın da uğraşıyorum geçmiş konuları da elimden geldikçe inceledim kendimi çıkmaz sokakta deli gömleği giymiş gibi buldum yardımlarınız lütven !!!
 
eğer veri doğrulama listesi uzunsa

S.A.

Veri doğrulama listem uzun olduğun da veri doğrulama yerine iş veren altarnatif istiyor yazıları rahat okuyamıyor. hücreye tıklandığında user form gibi bir form sayfası açılması liste öğeleri buton olarak görüntülenmesi ve tıklandığında hücreye otomatik yazılması mümkünmüdür.

Bir kaç gündür bu konu hakkın da uğraşıyorum geçmiş konuları da elimden geldikçe inceledim kendimi çıkmaz sokakta deli gömleği giymiş gibi buldum yardımlarınız lütven !!!
 
evet bazen konu kaybolabiliyor düşüncesiyle bir kaç kez sordum :(
 
Yeni açmayın, konunuza bir cevap yazın, üstte yer alır. (Yadım,acil,kimse yokmu, bir el atın vb.' de itici oluyor)

--
 
Merhaba,
İçerisindeki Kodları kendinize göre değiştirirsiniz.
D4 hücresine tıklayıp (D sütunu alt hücrelerde olabilir) V sütunundaki isimlerden bir tanesinin baş harfini yazıp karşınıza çıkacak pencereden isimleri seçip herhangi bir yere tıklayınız. (sayfa üzerinde)
Kod: 
Option Explicit
Option Compare Text
Dim bu As Boolean, cl As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
Select Case Target.Column
    Case 4
        If Target.Row > 3 Then
            bu = True
            With Me.TextBox1
                .Top = Target.Top: .Left = Target.Left: .Text = Target.Value: .Activate
            End With

            With Me.ListBox1
                .Top = Target.Top - 20: .Left = Target.Left + 143: .Clear
            End With
            cl = IIf(Target.Column = 4, 22, 25): bu = False
            Me.TextBox1.Visible = True: Me.ListBox1.Visible = True
        End If
    Case Else
        Me.TextBox1.Visible = False: Me.ListBox1.Visible = False
End Select
End Sub

Private Sub TextBox1_Change()
Dim x, i As Long, txt As String, lt As Long, s As String
If Len(TextBox1.Text) = 0 Or bu Then Exit Sub

txt = TextBox1.Text: lt = Len(TextBox1.Text)
x = Columns(cl).SpecialCells(2).Value

For i = 1 To UBound(x, 1)   
    If txt = Mid(x(i, 1), 1, lt) Then s = s & x(i, 1) & "~"
Next i
ListBox1.List = Split(s, "~")
End Sub

Private Sub ListBox1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
bu = True
ActiveCell.Value = ListBox1.Value
Me.TextBox1.Text = ListBox1.Value
bu = False
End Sub

İlgili dosya: BURADAN
 
Son düzenleme:
üstadım ilgili dosya: BURADAN a tıkladığımda erişim izine ihtiyaç var diyor dosya gözükmüyor ne yapmam gerekiyor
 
Dosyayı paylaşıma açmayı unutmuşum.
Şimdi indirebilirsiniz.
 
çok çok teşekkürler çok güzel bir çalışma ben excel de yeni başlayan birisi sayılırım bu makroları kendi çalışma sayfama eklediğimde hata verdi acaba çalışma sayfamı paylassam yardımcı olurmusunuz
 
Alternatif olarak linkteki çözümde işinize yarayabilir. İnceleyiniz.

Hücrede otomatik anımasama


paylaşımda ki dosyada banyo wc adlı sayfada d 37 hücresine uygulama yapmak istedim ilgili veriyide fiyat şablonu adlı sayfamda d542 ve d559 hücrede ki verilerin gelmesini istiyorum yapmış olduğum hata nedir çunku başka çalışma sayfamda da uygulmaya yapmak istiyorum saygılar
 

Ekli dosyalar

Merhaba,

Siz formunuza Combobox eklemişsiniz. Aslında ListBox eklemeniz gerekiyor.
 
Uygulamalı örnek dosyanız ektedir.
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst