Koşula bağlı Olarak Hücrede Açılır Liste Oluşturma ( Veri Doğrulama - Liste )

[KarıncaZ]

Merhaba.

Hücrede yazmaya başladığımda, yazdığım kelimeyi içeren verileri ; Veri doğrulamada ki liste olarak hücreye eklemesini istiyorum.

" Giderler " Sayfasında masraf türleri yazılı. A Sütununda Masraf Kodu | B Sütununda Masraf Çeşidi var.
" Evraklar " Sayfasında Gider Çeşitleri Sütununda yani A Sütununda yazmaya başladığımda. Aktif olan hücrede Açılır kutu oluşturacak ve ne yazmışsam onu içeren Masraf Çeşidini " Giderler " Sayfasından sorgulayarak ekleyecek.

Gider kodunu yazdığımda ise o kod ile başlayanları aynı şekilde hücredeki açılır listeye ekleyecek.( Bu kısmı olsa iyi olur ama olmasa da olur )

Araştırmalar yaptım ancak ComboBox için örnekler var. Bulduğum makrolar da hücreye liste olarak eklemiyor. Tüm koşulları tek bir seçenek olarak ekliyor.

Yardımlarınız için şimdiden teşekkürler.

 

[Ömer BARAN]

Merhaba.

Sanırım istediğinize yakın bir uygulama oldu.
Begeyi açtığınızda MAKROLARI ETKİNLEŞTİRin,
A1 hücresini seçin, bir/birkaç harf yazın ve sonucu gözlemleyin.

Hazırladığım belgeye buradan da ulaşabilirsiniz.
.

 

[kneehot]

Merhaba.

Sanırım istediğinize yakın bir uygulama oldu.
Begeyi açtığınızda MAKROLARI ETKİNLEŞTİRin,
A1 hücresini seçin, bir/birkaç harf yazın ve sonucu gözlemleyin.
.

Merhaba bu A1 hucresınde calısan makroyu A1 den A100 e kadar her satırda etkın yapma sansımız varmıdır.

 

[Ömer BARAN]

Merhaba bu A1 hucresınde calısan makroyu A1 den A100 e kadar her satırda etkın yapma sansımız varmıdır.

Merhaba yeni belge ekte.
İşlem tüm A sütununda kullanılabilir.
.

 

[kneehot]

cok tesekkurler

 

[Ömer BARAN]

cok tesekkurler

Otomatik tamamlama / içerir filtresi / veri doğrulama (liste) özelliklerinin karışımı gibi birşey oldu sanırım.
Kolay gelsin.
.

 

[huseyinvurkan]

Merhabalar. Kendi yaptığım bir çalışmada benzer bir makroya ihtiyacım var. Benim çalışmamda gelir sayfasında C5 ten itibaren isimleri yazacağım ama tamamlama verileri okul sayfasından D sütunundan gelecek. Ben makroyu uyarlayamadım.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cells(1, 1) = ListBox1.Column(0)
TextBox1.Visible = False: TextBox1 = ""
ListBox1.Visible = False: ListBox1.Clear: [A2].Activate
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If ActiveCell.Address(0, 0) = "A1" Then
TextBox1.Visible = True: TextBox1.Activate: Cells(1, 1) = ""
Else
TextBox1.Visible = False: ListBox1.Visible = False
End If
End Sub
Private Sub TextBox1_Change()
With TextBox1
.Top = [A1].Top: .Left = [A1].Left: .Width = [A1].Width: .Height = [A1].Height
End With
If TextBox1 = "" Then
ListBox1.Clear: ListBox1.Height = 0: Exit Sub
End If
ListBox1.Visible = True: ListBox1.Clear: ListBox1.Height = 0
For brn = 1 To 12
If Cells(brn, "e") Like "*" & TextBox1 & "*" Then
ListBox1.AddItem Cells(brn, "E")
End If
ListBox1.Height = 13 * (ListBox1.ListCount) + 8: ListBox1.Width = [A1].Width
Next
End Sub

Acaba bu makronun neresini değiştirmeliyiz.

http://s6.dosya.tc/server8/d6l0i9/GELiR_GiDER_DEFTERi_V1.xls.html

 

[livaneli0835]

Merhaba yeni belge ekte.
İşlem tüm A sütununda kullanılabilir.
.

Merhaba konu çok eski ama bu komut bana çok lazım oldu link sanırım çalışmıyor yardımcı olabilirmisiniz

 

[Ömer BARAN]

Merhaba.

Konu sayfasına daha evvel eklediğim belgelere, fareyle buraya tıklayarak erişebilirsiniz.
.

 

[livaneli0835]

Merhaba.

Konu sayfasına daha evvel eklediğim belgelere, fareyle buraya tıklayarak erişebilirsiniz.
.

hızlı cevabınız için çok teşekkür ederim . Çok sağolun.

 

[livaneli0835]

Merhaba.

Konu sayfasına daha evvel eklediğim belgelere, fareyle buraya tıklayarak erişebilirsiniz.
.

Müsaitseniz son bir şey daha sormak istiyorum. Ben bu komutu cari listede arama yapmak için kullandım. Cari listemde yaklaşık 2600 firma var. Komut iyi çalışıyor yazdığım zaman benzer firmaları listeliyor fakat arama yaparken bilgisayar kilitlenecek düzeyde yavaşlıyor ve bulması uzunca bir zaman alıyor. bu sorunu aşabilir miyiz acaba ?

 

[Ömer BARAN]

Gerçek belgenizin, özel bilgi içermeyen bir kopyasını foruma eklerseniz
uygun olduğumda bakarım.
Bir de belgeye, belgeyi (arama dediniz) kullanma tarzınıza dair kısa net açıklama eklersiniz iyi olur.
.

 

[livaneli0835]

Gerçek belgenizin, özel bilgi içermeyen bir kopyasını foruma eklerseniz
uygun olduğumda bakarım.
Bir de belgeye, belgeyi (arama dediniz) kullanma tarzınıza dair kısa net açıklama eklersiniz iyi olur.
.

aqşağıda verdiğim excel kodu manuel olarak işimi görüyor ama çok zaman kaybı oluyor. yapmak istediğim filitreleme değilde liste sonuna kadar her satırda yazarken arama yapması ve benzer olanları listelemesi. ben listeden doğru olanı seçtiğimde hücreye yazması. bu şekilde b2 hücresindeki arama değerine ait muhasebe kodunu kendi firmama kayıt edebilirim.İlginiz ve yardımınız için şimdiden çok teşekkür ederim.

http://s7.dosya.tc/server11/qgu4f9/ornek.rar.html

 

[Ömer BARAN]

Merhaba.

Veri yığını büyüdüğünde filtre en iyi yöntem bence de.
Benim anlamadığım şey; beklediğiniz işleyiş yapısı. Şöyle ki;
-- Textbox'a yazmaya başladınız,
-- Siz yazdıkça filtreleme gerçekleşti.
-- Siz A, B veya C sütunundaki bir hücreye fareyle çift tıklayarak ilgili CARİ KODU'nu başka bir alana (sanırım belli bir hücre) yazdırmak istiyorsunuz.

Netleştirmeniz gereken hususlar:
-- Bu işleyiş ve isteğiniz doğru mudur?
-- Textbox ile veri yığınının aynı yerde olması şart mıdır?
-- Sonucun yazılacağı hedef hücre neresidir (başka bir sayfaya mı yazdırmayı düşünüyorsunuz) ?
-- Bu hedef hücre sabit bir hücre midir yoksa hedef hücre adresi değişken midir?

Bu sorulara verilen cevaplarınıza göre farklı çözüm önerileri olabilir elbette.
Son bir şey daha sorayım, bu işlem için neden küçük bir userform düşünmüyorsunuz?
Basit bir adet TEXTBOX, bir adet LİSTBOX (belki bir adet de COMMANDBUTTON olabilir) içeren müçüm bir userform ile de çözüm kolaylaşır.
Yeterki yukarıda belirttiğim hususları netleştirin.