Listbox sorunu

[djoguzz]

Arkadaşlar ekteki dosyada "frmCariKartEkle" isimli bir form bu formdada "ListCariKartEkle" isimli bir listboxum var bu listbox ile excel e veri kaydı yapabiliyorum, excelden veride çekebiliyorum ama değiştir butonu için bir kod gerekli. Seçili olan satırda değişiklik yapamadım bir türlü.

 

[djoguzz]

yardımcı olabilecek yok mudur ?

 

[hımmmmmmmm]

listbox kutusunun value değeri sana satır nosu verebilir...

satır=listbox1.value değerini textboxa yazdır...
bilginin bulunduğu sayfadaki satıra bak
ikisi denkleşmiyorsa listbox1.value değerini +1 veya -1 iave veya eksiltip sayfa nodaki bilginin bulunduğu satıra denkleştir.

textbox değeri güncellenecek satır olsun... güncelle butonu ile bu satır bilgisi üzerinden güncellemeyi gerçekleştir...
'--------------------------------------------------
not: kaydederken
listbox1.rowsource="" olsun
kayıt işlemi gerçekleştirdikten sonra
listbox1.rowsource 'un gerçek değerini ver..

bir dene... yapamazsan bakarız...

 

[hımmmmmmmm]

slm

ayrıca eşitliklerin tersini yap... yani eşitliğin solu cells olsun... sağına textleri yazdır..
değişiklik butonu ile sen tekrar sayfadaki bilgileri textlere yüklüyosun...

yapılmış eki yolluyorum...

 

[djoguzz]

ayrıca eşitliklerin tersini yap... yani eşitliğin solu cells olsun... sağına textleri yazdır..
değişiklik butonu ile sen tekrar sayfadaki bilgileri textlere yüklüyosun...

yapılmış eki yolluyorum...

hocam çok teşekkürler yardımınız için şu an gayet güzel çalışıyor kodlar.
peki hocam bir textbox ile listboxta arama yaptırmak mümkünmüdür ? yani müşteri ismine göre arama yapabalir miyim textboxa girdiğim herharfe göre (google ın ki gibi) arama yapsa

 

[hımmmmmmmm]

SLM

aramadan aramaya fark var..
tek isimden arama, kelime içinde arama, süzerek arama... vs...


textboxa girilen değer a sütununda bulunarak hangi satırda olduğu bulunur...

public sub isimbul()
ADI = Trim(TextBox1)                                           'texboxdaki değer al
On Error Resume Next                                           'error olursa devam et
X = Sheets("SAYFA1").Range("A:A").Find(ADI).Row   'a sütununda ara satır bul
If X = 0 Then                                                    
   MsgBox ("Bulunamadı...")                                    'x =0 sa bulunamadı yaz
   Exit Sub                                                          'çık
End If                                                                    
MsgBox ("ARANAN KAYIT SATIRI.." + Trim(X))            'bulundu ise satır yaz
End Sub

'bit


textboxa girilen bilgiyi içeren benzer isimler elenerek listboxa dökülür...

Private Sub TextBox1_Change()
ListBox1.Clear
For I = 2 To WorksheetFunction.CountA(Sheets("SAYFA1").Range("A:A"))
 If UCase(Mid(Sheets("SAYFA1").Cells(I, 1), 1, Len(TextBox1))) = UCase(TextBox1) Then ListBox1.AddItem Sheets("SAYFA1").Cells(I, 1)
Next I
End Sub

 

[djoguzz]

aramadan aramaya fark var..
tek isimden arama, kelime içinde arama, süzerek arama... vs...


textboxa girilen değer a sütununda bulunarak hangi satırda olduğu bulunur...

public sub isimbul()
ADI = Trim(TextBox1)                                           'texboxdaki değer al
On Error Resume Next                                           'error olursa devam et
X = Sheets("SAYFA1").Range("A:A").Find(ADI).Row   'a sütununda ara satır bul
If X = 0 Then                                                    
   MsgBox ("Bulunamadı...")                                    'x =0 sa bulunamadı yaz
   Exit Sub                                                          'çık
End If                                                                    
MsgBox ("ARANAN KAYIT SATIRI.." + Trim(X))            'bulundu ise satır yaz
End Sub

'bit


textboxa girilen bilgiyi içeren benzer isimler elenerek listboxa dökülür...

Private Sub TextBox1_Change()
ListBox1.Clear
For I = 2 To WorksheetFunction.CountA(Sheets("SAYFA1").Range("A:A"))
 If UCase(Mid(Sheets("SAYFA1").Cells(I, 1), 1, Len(TextBox1))) = UCase(TextBox1) Then ListBox1.AddItem Sheets("SAYFA1").Cells(I, 1)
Next I
End Sub

hocam teşekkürler ama ben bir türlü beceremedim bunu ekte hazırladığım dosyam mevcut "frmCariKartEkle" isimli formda alt bölümde arama bölümü var oraya bu arama kodlarını uyarlayabilir misiniz ? optionbutonlardan seçilen kritere göre arama yaptırabilirmiyiz? Ada göre dediğimizde listbox a stununda soyada göre dediğimizde listbox b stununda genel ara dediğimizde tüm listboxda arama yapması gerekli.

 

[djoguzz]

arkadaşlar aradım ama bulamıyorum bi türlü nasıl yapacam bu arama işini acaba??