Veri doğrulama listesi uzunsa

[samet_can]

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.

 

[samet_can]

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 !!!

 

[samet_can]

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 !!!

 

[samet_can]

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 !!!

 

[Mahir64]

Merhaba,

Aynı konu mu?

http://www.excel.web.tr/f50/eoer-veri-doorulama-listesi-uzunsa-t141305.html#post767542

 

[samet_can]

evet bazen konu kaybolabiliyor düşüncesiyle bir kaç kez sordum

 

[Mahir64]

Çok konu açınca çok/hızlı mı cevap gelecek.

http://www.excel.web.tr/f48/eoer-veri-doorulama-listesi-uzunsa-t141306.html#post767544
http://www.excel.web.tr/f14/veri-doorulama-listesi-uzunsa-t141304.html#post767546

 

[Mahir64]

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)

--

 

[samet_can]

Bir Ümit başka ne denilebilir ki.

 

[samet_can]

tamam k.b.

 

[bzace]

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)

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

 

[samet_can]

çok çok teşekkür ederim paylaşım için saygılar,

 

[samet_can]

üstadım ilgili dosya: BURADAN a tıkladığımda erişim izine ihtiyaç var diyor dosya gözükmüyor ne yapmam gerekiyor

 

[Korhan Ayhan]

Alternatif olarak linkteki çözümde işinize yarayabilir. İnceleyiniz.

Hücrede otomatik anımasama

 

[bzace]

Dosyayı paylaşıma açmayı unutmuşum.
Şimdi indirebilirsiniz.

 

[samet_can]

ç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

 

[samet_can]

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

 

[Korhan Ayhan]

Merhaba,

Siz formunuza Combobox eklemişsiniz. Aslında ListBox eklemeniz gerekiyor.

 

[samet_can]

Düzeltmeyi yaptım hata yine olmadı : (

 

[Korhan Ayhan]

Uygulamalı örnek dosyanız ektedir.