kodda sorun

[uguristanbul]

Private Sub ComboBox22_Change()
ListBox8.ColumnCount = 26
ListBox8.ColumnWidths = "0;40;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0"
ListBox8.RowSource = "cari!CA1:CA" & [CA65536].End(3).Row
Dim k As Range, sat As Long, i As Long, adr As String, X As Long
sat = Sheets("cari").Cells(65536, "CA").End(xlUp).Row
ListBox8.RowSource = ""
Set k = Sheets("cari").Range("CA1:CA" & sat).Find(ComboBox22.Text, , xlValues, xlPart)
If Not k Is Nothing Then
adr = k.Address
Do
ListBox8.AddItem
ListBox8.List(X, 0) = k.Value
ListBox8.List(X, 1) = k.Offset(0, 1).Value
ListBox8.List(X, 2) = k.Offset(0, 2).Value
ListBox8.List(X, 3) = k.Offset(0, 3).Value
ListBox8.List(X, 4) = k.Offset(0, 4).Value
ListBox8.List(X, 5) = k.Offset(0, 5).Value
ListBox8.List(X, 6) = k.Offset(0, 6).Value
ListBox8.List(X, 7) = k.Offset(0, 7).Value
ListBox8.List(X, 8) = k.Offset(0, 8).Value
ListBox8.List(X, 9) = k.Offset(0, 9).Value

X = X + 1
Set k = Sheets("cari").Range("CA1:CA" & sat).FindNext(k)
Loop While Not k Is Nothing And k.Address <> adr
End If
End Sub
yukardaki kod sorunsuz çalışırken
ListBox8.List(X, 9) = k.Offset(0, 9).Value
satırının altına
ListBox8.List(X, 10) = k.Offset(0, 10).Value
...
...
gibi kod yazınca
hata veriyor
listenin 26 kolununuda nasıl yazabilirim
saygılar

 

[parsley2]

k.offset(0,10) değeri yok.

ayrıca, Set k = Sheets("cari").Range("CA1:CA" & sat).Find(ComboBox22.Text, , xlValues, xlPart)
bu formülde combobox22 nin değeri 11, yada 22 olduğunda 11 imi buluyor yoksa 1 i mi buluyor?

 

[uguristanbul]

hocam
ne 11 ne 22 nede vs baska bir sey buluyor
comboda ne yazıyor ise sayfada karslıastırıp süzüp listede onları gosteriyor
k 10 yazamıyorum zaten sorun burda yazabilsem bu soruyada gerek kalmayacak

 

[Orion1]

add item metodu ile en fazla 10 sütun alabilirsiniz listboxa.
Dizi yöntemi kullanrak istediğiniz kadar sütun alabilirisiniz.
veya verilerinizi başka bir sayfaya atın (süzdüklrinizi),oradan süzülenleri rowsource yöntem ile listboxa alın.
Veya listviewe verileri alın.

hocam
ne 11 ne 22 nede vs baska bir sey buluyor
comboda ne yazıyor ise sayfada karslıastırıp süzüp listede onları gosteriyor
k 10 yazamıyorum zaten sorun burda yazabilsem bu soruyada gerek kalmayacak

 

[uguristanbul]

hocam
bir ornekle bunu acıklayabilirseniz sevinirim
kendi dosyamı gondericem ama oldukc karısık
aklınızı iyice karıstırmak istemem
basit bir doya ile acıklayabilirseniz cok sevinirim
saygılar

 

[Orion1]

hocam
bir ornekle bunu acıklayabilirseniz sevinirim
kendi dosyamı gondericem ama oldukc karısık
aklınızı iyice karıstırmak istemem
basit bir doya ile acıklayabilirseniz cok sevinirim
saygılar

Öyle olmaz.
Dosyayı siz yollamlısınız.
Yollayın ama karışık değil.
siizinkine benzer bir dosya olmalı.
ben yapıyorum.
sonra ben uyarlayamadım diyorlar.
Sizinkine benzer olsun.
Çok fazla sayfaya gerek yok. bir userform ekleyin.Listbox ekleyin.
verinin alınacağı sayfayı koyun
üzerine 20-30 satır veri girin.
Veri girin ama istediğinizi karşılayacak şekilde olsun.
Ona yakın olsun
Resmi kayıt girmeyin
uyduruk adlar olsun.
Yani biz artık soruyu nasıl cevaplndıracağımızı bıraktık,soruyu soran kişilerin nasıl soracağını anlatmaya başladık.
Enteresan bir durum doğrusu.
Hayır anlayamıyorum ,bunu bile biz açıklıyorsak siz nasıl kod yazıpta program yapmaya cesaret ediyorsunuz anlayamıyorum doğrusu.Yarın öbür gün yaptığınız işte yanlış sonuçlar alma ihtimali oldukça yüksek.
Program yazmaya başlamadan önce ,bence bu konuyu iyice içinize sindirmelisiniz.
Nerde ne oluyor ne bitiyor, bilmelisiniz yani.
Konuya hakim olmalısınız.
O zaman takıldığınızda ne istediğinizi ne soracağınızı ve nasıl soracağınızı büyük bir ihtimalle bileceksiniz sanırım.
Ciddi bir iş için toplama kodlarla iş yaparsanız başınız ağrır.
ondan 5 satır bundan 15 satır alıpta yapmaya kalkarsanız olmaz.Birinin yaptığını öteki bilemez.Bilirde ona bakmaz .Kendi yaptığına bakar.
Yanlış anlamayın.Ben yine yapıcam soracağınızı.dediğim gibi dosyayı hazırlayın yollayın.
ben sadece genelde bu şekilde hareketler oluyor.onu vurgulamak istedim.
Kolay gelsin.

 

[uguristanbul]

ok hocam tamam
gercek dosyayı ekliyorum
cari sayfası c sutuna çift tıklarsanız form açılacak
açılan formun ürün bilgileri frameinde liste 5 ve 6 sının
süzmesini değiştirmek ve 26 kolon süzdürmek istiyorum
saygılar

 

[Orion1]

1-Combobox11 hangi aralığındaki verileri alcak
2-diğer combo hangi aralığı alacak
her 2 combo içinde sorgulanacak sütunlar hangileri olacak.

 

[uguristanbul]

ikiside cari sayfası ca1 i gosteriyor liste 1 e cift tıklarsanız combolara veri geliyor
liste birde şirketler kayıtlı combolarda sirketlere kayıtlı stokları süzerek gosteriyorlar
liste 5 ile 6 da aynı isi yapacaklar sadece goruntu icin 2 tane liste kullandım
listeler ca1cz arasında row source olacak
liste 5 veya 6 ya cift tıklandıgında henuz dosyada olmayan textboxlar dolacak
saygılar
biraz karısık oldu ama