veri girişinde Benzerlerini listelesin

[arifyilmazer]

Arkadaşlar merhaba. Vergi dairesine vermek için her ay yüzlerce faturanın tarih no açıklama brim vs bilgilerini giriyorum. Enzor olanı fatura açıklamasını girmek. Örneğin; bir faturayı demir,profil,köşebent,sac olarak girdim.öteki faturada aynı ürünler var ama sırası farklı olduğu için profil,demir,saç,köşebent yazmak zorundayım. Aynı açıklamayı arayıp bulmak zor.O yüzden sayfanın birinde veri girişi yaparken başka sayfada ki daha önce girdiklerimin benzerlerini altta listeleyebilir mi? Örneğin int.explorer adres çubuğuna birşey yazarken veya arama motorlarına veya kullanıcı adına nasıl ki benzerlerini açıyorsa bunuda excelde yapabilirmiyiz? Verigirişinin yapıldığı sayfa "HIZLI GİRİŞ" hücre "B4" listenin alınacağı sayfa "KDV" sütun "J"

Şimdiden herkeze teşekkürler...

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
[b4] = TextBox1
End Sub
Private Sub TextBox1_Change()
Dim skdv As Worksheet
Dim sat, s As Integer
Set skdv = Sheets("KDV")
ListBox1.Clear
For sat = 1 To skdv.Cells(65536, "j").End(xlUp).Row
If skdv.Cells(sat, "j") Like "*" & TextBox1 & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = skdv.Cells(sat, "j")
s = s + 1
End If: Next
End Sub

 

[ozgretmen]

Aşağıdaki şekilde bir çalışma hazırladım.Bir inceleyin...

 

[arifyilmazer]

ozgretmen teşekkür ederim fakat girişlerim stok listesi şeklinde değil. Yani daha önce yazdıklarımın aynısını yazmıyorum genelde benzerleri oluyor.onlar üzerinde değişiklik yapmam daha düzgün olur. Üstelik yüzlerce kalemin içinden seçmek gerçekten uzun zaman alır.Yani totalde...Ya hani bilgisayarda ki tanınlama bilgileri oluyor ya. Google ye bile birşey yazarken hemen altta liste açılıyor ve benzerleri çıkıyor. yada msn de kullanıcı adını girerken benzerler çıkıyor. İşte bende öyle birşey istiyorum fakat bilgileri kdv sayfasının j sütunundan alsın..

İlgilenenlere teşekküler

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b4]) Is Nothing Then Exit Sub
Dim skdv As Worksheet
Dim sat As Integer
Set skdv = Sheets("KDV")
For sat = 1 To skdv.Cells(65536, "j").End(xlUp).Row
If skdv.Cells(sat, "j") Like "*" & Target & "*" Then
Range("b4" & s) = skdv.Cells(sat, "j")
s = s + 1
End If: Next
End Sub

 

[arifyilmazer]

teşekkür ederim ama bu da değil ama işime yarayabilir.Ama ..Bu arada Ben ne istediğimi anlatabildim değil mi?

 

[N.Ziya Hiçdurmaz]

Evet anlattınız küçük bir örnek dosya ekleseydiniz daha iyi olurdu

 

[arifyilmazer]

Dosya ekte..Fakat sizden ricam işimiz bitince içindeki şirket bilgilerini silmeniz. Bi sorun çıkmaz biliyorum ama yinede ne olur ne olmaz

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ComboBox1_Change()
On Error Resume Next
Dim skdv As Worksheet
Dim sat, s As Integer
Set skdv = Sheets("KDV")
Application.ScreenUpdating = False
For sat = 2 To skdv.Cells(65536, "j").End(xlUp).Row
If skdv.Cells(sat, "j") Like "*" & ComboBox1 & "*" Then
ComboBox1.AddItem
ComboBox1.List(s, 0) = skdv.Cells(sat, "j")
s = s + 1
End If: Next
Range("B4") = ComboBox1
Application.ScreenUpdating = True
End Sub

 

[arifyilmazer]

Yok arkadaşlar sanırım benim sorunuma çözüm yok .n.ziya bey pencereye veri girmem için mauseu kullanmak zorunda kalıyorum ayrıca ekteki verileri liste sırasıyla getiriyor tüm benzerleri değil ilk benzeri getiriyor.ayrıca pencereden çıkmak için yine mause yi kullanmak zorunda kalıyorum.benim amacım işlemleri hızlandırmak tı.çok teşekkür ederim ilgilendiğiniz için....