belli sutun arasında arama yapma

[murat028]

bir ugraşım var yeni başladım ve gercekten bu siteden bircok bilgi edindim sagolun hocalar fakat bir yerde tıkandım kodların az bucuk neye yaradıkları dahmin edebilir oldum faka kod bilgisinden fazla algoritmasını iyi yapmak lazım şimdi sorunumu acıklim diyelim bir numara örnegin 262640 numaralı kaydı hızlı aramanın altına yazdıgımda ikitane listeden aynı numara cıkacak bunların birisi verim birisi hasar ama iki numarayı tıkladımdamı nedense hep hasar geliyor sonrakinin bilgilerini göstermiyor bu konuda acil yardım ederseniz sevinirim

yaptıgım calışma aslında tamamen benim degil burdaki hocalarımdan alıntıdır az ben az sizlerin sayesinde bir kac birikim diye bilirim

tek sorunum aynı poliçe numarasında hasar verim ayrışımı yapamıyorum örnek poliçe numarası 262640 bilgilerde her ikisindede hasar diyor fakat biri verim olmalı

 

[cem yılmaz]

Arkadaşım kimse sana bu şekilde yardımcı olmaz.yok rapidshare sitesine gir.ordan indir,aç,bak uzun iş dosyanı rar veya zip uzantılı ekle istersen?

 

[murat028]

cem bey yardımın cok işi olmaz

 

[murat028]

seni kırmim ve ekliyorum buyrun

 

[Korhan Ayhan]

Selamlar,

ComboBox2_Change olayındaki kodunuzu tamamen silip yerine aşağıdaki kodu uygulayın.

Private Sub ComboBox2_Change()
    Dim ADET As Long
    Dim BUL, ADRES
    Dim Satır As Long
    ADET = WorksheetFunction.CountIf(Sheets("veri").Range("B:B"), ComboBox2)
    If ADET > 0 Then
    ListBox1.Clear
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "0,50"
    Set BUL = Sheets("veri").Columns(2).Find(ComboBox2)
    If Not BUL Is Nothing Then
    ADRES = BUL.Address
    Do
    ListBox1.AddItem
    ListBox1.List(Satır, 0) = BUL.Row
    ListBox1.List(Satır, 1) = ComboBox2
    Satır = Satır + 1
    Set BUL = Sheets("veri").Columns(2).FindNext(BUL)
    Loop While Not BUL Is Nothing And BUL.Address <> ADRES
    End If
    End If
End Sub

ListBox1_Click olayındaki kodunuzu tamamen silip yerine aşağıdaki kodu uygulayın.

Private Sub ListBox1_Click()
    ComboBox1.Value = ListBox1.List(ListBox1.ListIndex, 1)
    TextBox1.Value = Cells(ListBox1.List(ListBox1.ListIndex, 0), 1)
    ComboBox3.Value = Cells(ListBox1.List(ListBox1.ListIndex, 0), 3)
    TextBox2.Value = Cells(ListBox1.List(ListBox1.ListIndex, 0), 4)
    ComboBox4.Value = Cells(ListBox1.List(ListBox1.ListIndex, 0), 5)
    CommandButton5.Enabled = True
    ComboBox2.SetFocus
End Sub

 

[murat028]

Ayhan hocam yardım ve ugraşların için nasıl teşekkür etsem bilemiyorum ama sorun var bilgiler TextBox ve ComboBox lara bilgi akışı olmuyor sizin verdiginiz kodlarda bi sıkıntı var yardımlarınız için şimdiden teşekkürler
not : hocam birde listbox da sizin verdiginiz kodda rakam ın karşılıgı varsa cıkıyor fakat benim aradıgım özellik hem aynı rakamların bilgilerini aktaragilsin texbox ve combobox lara hemde listbox da 2 ye bastıgımda 2 ile başlıyanları cıkarım süze süze enson rakamı karşımıza cıkarsın yani 2 ye bastıgımda ilk hanesi 2 ile başlıyanlar sonra 4 bastıgımda ilk iki hanesi 24 ile başlıyanlar şekilde cıksın yardım ederseniz sevinirim uygulama sayfanın başında vardır acil olmasa inanın sizleri bukadar bunaltmam yeni başladım başta belirtigim gibi

 

[Korhan Ayhan]

Selamlar,

Bu durumda kulandığınız kodları aşağıdaki şekilde değiştirip denermisiniz.

Private Sub ComboBox2_Change()
    On Error Resume Next
    Dim Satır As Long
    Dim MyRange As Range
    Dim noA As Integer
    ListBox1.Clear
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "0,50"
    noA = WorksheetFunction.CountA(Sheets("veri").Range("B:B"))
    For Each MyRange In Sheets("veri").Range("B2:B" & noA)
    If Left(LCase(MyRange), Len(ComboBox2)) = LCase(ComboBox2) Then
    ListBox1.AddItem
    ListBox1.List(Satır, 0) = MyRange.Row
    ListBox1.List(Satır, 1) = MyRange
    Satır = Satır + 1
    End If
    Next
End Sub

Private Sub ListBox1_Click()
    On Error Resume Next
    Sheets("veri").Select
    Cells(ListBox1.Value, 2).Select
    ComboBox1 = ActiveCell.Value
    TextBox1.Value = ActiveCell.Offset(0, -1).Value
    ComboBox3.Value = ActiveCell.Offset(0, 1).Value
    TextBox2.Value = ActiveCell.Offset(0, 2).Value
    ComboBox4.Value = ActiveCell.Offset(0, 3).Value
    CommandButton5.Enabled = True
    ComboBox2.SetFocus
End Sub

 

[murat028]

Ayhan Hoca Ellerin dert görmesin aklına zeval gelmesin daha nedim sana beni bir dertten kurtardın sagol varol