MÜŞterİ SeÇme

[acebeci]

çok değerli arkadaşlar umarım fazla olmuyorumdur.Yine bir sorum olacak soruyu ekdeki dasyada gösterdim.inanın cevabı formda çok aradım mutlaka vardır ama ben konu başlıgını birtürlü doğru açamadım herhalde ondan bulamadım.şimdiden hepinize bana göstermiş olduğunuz sabırdan dolayı teşekkür ederim

 

[acebeci]

arkadaşlar dün bir cevap alamadım eğer bugün müsait olurda ekdeki dosyayı inceleme fırsatı bulursanız çok sevinirim.Şimdiden teşekkür ederim

 

[acebeci]

çok değerli arkadaşlar herhalde ekdeki dosya açılamadığından cevap alamadım şimdi tekrar ekliyorum.sorum şu şekilde listbox da isimler gid gide çoğalıyor ve bunların arasından istediğim müşteri yi seçip o sayfaya gitmem bir hayli zorlaşıyor benim istediğim.müşteri seç butonuna bastığım da karşımıza çıkan UserForm daki üst kısma eklediğim textbox a müşteri ismini yazarken aşagıdaki listbox kutusunda o müşteriye ulaşabileyim.yada müşteri sayfalarını kolayca seçebilecegim başka bir yol varsa sizin tavsiye edeceğiniz bir metod varsa onada razıyım şimdiden çok teşekkür ederim(Aslında bu çalışma üzerinde soracagım birkaç soru daha var ama inanın artık sizden utanır oldum).ben forma hiç cevap gönderemeden soru gönderiyorum kusuruma bakmayın ama inanın üzerinde çalışıyorum umarım ilerleyen günlerde bende en azından basit sorulara cevap gönderebilir seviyeye gelirim

 

[ogungor]

sayın acebeci dosyanızı inceledim inanın bende aynı konudan muzdarip im eğer cevap alabilirsen lütfen banada haber ver

 

[silkap]

http://www.excel.web.tr/showthread.php?t=37870
sayfasında COST CONTROL hocamın bir cevabı işinizi görebilir.
umarum faydalı olur
Saygılar

 

[acebeci]

Sayın silkap gerçekten çok teşekkur ederim.yanlız çok çalışmama rağmen bir türlü ordaki kodu kendi formuma uygulayamadım.kodların dilini çözememem bunda en büyük etken.ama yinede göstermiş olduğunuz ilgiye teşekkür ederim.eger o kodları benim ekdeki dosya özerinde yazabilicek arkadaşlar varsa inanın çok memnun olurum şimdiden teşekkür ederim

 

[acebeci]

ben inanıyorum ki bugün bu sorunumu çözecek arkadaşlar çıkacaktır

 

[Ferhat Pazarçevirdi]

Merhabalar,

Aşağıdaki kodu, Userform1'in kod sayfasına kopyalayınız. Textbox'a ne yazarsanız, ona uygun kayıtlar listelenecektir.

Private Sub TextBox1_Change()
Dim arrVeri()
Dim y As Long, i As Long, son As Long
y = 0
Set sh = Sheets("liste")
On Error Resume Next
If TextBox1 <> Empty Then
   For i = 0 To ListBox1.ListCount - 1
       If InStr(1, ListBox1.List(i), UCase(TextBox1)) > 0 Then
          ReDim Preserve arrVeri(y)
          arrVeri(y) = ListBox1.List(i)
          y = y + 1
       End If
   Next i
   ListBox1.Clear
   ListBox1.List = arrVeri
Else
   ListBox1.Clear
   son = sh.Cells(65536, 1).End(xlUp).Row
   For i = 2 To son
       ListBox1.AddItem sh.Cells(i, 1)
   Next i
End If
Set sh=Nothing
End Sub

 

[acebeci]

sayın fpc bu calışma tamamen sizin eseriniz oldu size nasıl teşekkür edeceğim bilmiyorum.tüm çalışmalarınızda başarılar dilerim.umarım bu sıkca sorduğum sorular yüzünden sizleri sıkmıyorumdur

 

[Ferhat Pazarçevirdi]

Estağfurullah, sorularınız zamanı ile benim zamanım denk geldiği için böyle oluyor sanıyorum. Yoksa diğer üyelerimiz de cevaplayabilirdi.

Biz hep burdayız Soru sormaktan çekinmeyiniz lütfen...

Sağlıcakla