textboxta aratip listboxta listelemek ...

[kskobi]

arkadaslar simdi exelde bi stok programi gibi birsey var

listboxta ürünler geliyor üzerlerine tiklandigi zaman textboxlara değerler düsüp degistirebiliyoruz..

fakat listboxta aramayi nasil yapicaz mesala.orneklere baktim texbox yaratip oraya kelimeyi giriyoruz süzüp bize listboxta vericek ama olmuyor yani programda listbox üzerinde bir sürü kod var onlarin altina ekleyince program hata veriyor

nasil yapabilirim ?

dosya ekte

 

[kskobi]

yardiminizia ihtiyacim var arkadaslar acil

 

[kskobi]

texboxtaki kodum ...

Private Sub TextBox37_Change()
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(2 To 3, 2 To 2)
If TextBox37.Text = "" Then
tasinir_list.RowSource = "Tasinir_Listesi!B8:J" & Sheets("Tasinir_Listesi").[B65536].End(xlUp).Row
Exit Sub
End If
With Worksheets("Tasinir_Listesi")
tasinir_list.RowSource = ""
'Show all records of Database on Sheet1
If .FilterMode Then .ShowAllData
Set k = .Range("c5:c65536").Find(TextBox37.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
ReDim Preserve myarr(2 To 3, 2 To b)
For c = 2 To 3
myarr(c, b) = .Cells(k.Row, c).Value
Next j
Set k = Range("c5:c65536").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
tasinir_list.Column = myarr
End If
End With
End Sub


------------------------------

command button kodum

Private Sub CommandButton4_Click()
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(2 To 3, 2 To 2)
With Worksheets("Tasinir_Listesi")
tasinir_list.RowSource = ""
'Show all records of Database on Sheet1
If .FilterMode Then .ShowAllData
Set k = .Range("b8:b65536").Find(TextBox37.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
ReDim Preserve myarr(2 To 3, 2 To b)
For c = 2 To 3
myarr(c, b) = .Cells(k.Row, c).Value
Next j
Set k = Range("c8:c65536").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
tasinir_list.Column = myarr
End If
End With
End Sub

-----------

bunu bir ornekten aldim listboxtaki veriler duruyor ama textboxa yazip yazilinca süzüp koymasini istedim fakat

Loop While Not k Is Nothing And k.Address <> adrs


bu satir hata veriyor neden olabilir ?

 

[kskobi]

arkadaslar 30 kisi bakmis 1 kiside yardim etmicek mi ?

 

[kskobi]

arkadaslar dosya ekte yeni mal kaydi dedigimizde beyaz bir text box var bi el atarmisiniz lütfen

 

[kskobi]

yokmu yardim edebilecek biri arkadaslar ?

 

[kskobi]

hic mi bi yetkili gormuyor yada siz arkadslar biliyorsaniz yardim edin lütfen.

 

[Mustafa MUTLU]

hic mi bi yetkili gormuyor yada siz arkadslar biliyorsaniz yardim edin lütfen.

Burası bir işyeri değil.
Tabiki 30 kişi baktı ise belkide bakanlarında aynı sorunu vardır.
Onlarda cevap bekliyordur.
Belkide şu an dosyanı düzenlemeye çalışan arkadaşlarda vardır.

Biraz sabrederseniz cevap alabilirsiniz.

Birde dosyalarınızı rar yada zip olarak yüklerseniz
indirecek arkadaşların kota sını işgal etmemiş olursunuz.
Ben 99 kb den fazla olan dosyaları indirmiyorum.
Benim gibi düşünenler vardır eminim..

 

[kskobi]

kardesim cevabin icin tesekkürler rar olarak attim zaten exelin suan ici dolu oldugu icin yarina kadar vermem gerekiyor o yüzden acele ediyorm

arkadaslar yapan arkadasla istedigi bir download sitesinden 1 aylik premium hesap alabilirim yada ücreti ne ise havale veya misli bilyoner hesaplarina atabilirim bu iş gerçekten ciddi benim için

 

[Mustafa MUTLU]

Tamam bir bakayım dosyana.

 

[Mustafa MUTLU]

Dosyan çok karışık.
...............

 

[kskobi]

bu textbox 7 e kadar olan ne dir peki ? o kismi anlayamadim ...

siz yapabilirmisiniz ücreti ne ise takdim edeyim yada bi hediye olarak istediginiz herhangi bir yerden 1 aylik permium üyelik sistemi alayim.

 

[Mustafa MUTLU]

Süzme işlemini hangi sütunda yapmak istiyorsunuz.

 

[kskobi]

süzme işlemi C sütununda olucak 8. satirdan sonra başlaması lazım.

 

[Mustafa MUTLU]

Manuel senet oluştur bölümünde listede kayıtlar görünecek.
siz süzdüreceksiniz.
Tıkladığınızda bilgiler yerlerine gelecek doğru mu anladım.

 

[kskobi]

taşınır mal kayit sisteminde suan ekranda görünen resimde bir textbox oluşturup listbox da süzdürcez listbox in adi

tasinir_list

sayfanin adi ise : Tasinir_Listesi olucak ti

 

[mustafakoker]

sayın kskobı il jandarmaya ait envanter bilgilerini yayınlaman senın için iyi olmıyabılır
tavsiyem örnek dosyalarını sallama isimler adetler vererek kullanmanı tavsiye ederim
tabi bu benim fikrim

 

[kskobi]

evet doğru soyluyorsunuz oradaki bilgilerin sağini soluna ekledim ben birşley fakat yinede porblem cözlünce hemen kaldiriyorum

 

[kskobi]

kaldirdim dosyayi teşekkürler.

 

[Mustafa MUTLU]

kaldirdim dosyayi teşekkürler.

Sorun çözüldü.
Konuyu kapatalım.