arkadaşlar gönderdiğim formüller en erken çıkacak en üste yer alacak şekilde ondan sonra çıkacaklar erkenden uzağa doğru çıkış tarihine göre otamatik sıralansın istiyorum ama formüll otamatik sıralama yaptırmıyor eksiğini yardımlarınızla çözebilirmiyiz . çıkış tarihi baz alınacak en erken çıkacak ilk sırada ikincisi onun altında 3. su onun altında diye devam edecek....
Private Sub Textbox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
' TEXTBOX İÇİNDE ARAMA YAPAR
If KeyCode <> 13 Then Exit Sub
If Trim(TextBox2.Value) = "" Then: ListeGuncelle: Exit Sub
Set sh = Sheets("Veri")
Ara = TextBox2.Value
'Sayfa5.Range("A:A").Find AAA
Set bulunacak = sh.Range("B:B").Find(Ara) 'VERİ HANGİ SÜTUNDA ARANACAK
If Not bulunacak Is Nothing Then
Adres = bulunacak.Address
ListView1.ListItems.Clear
Do
sat = bulunacak.Row
With ListView1
.ListItems.Add , , sh.Cells(sat, 1)
X = X + 1
With .ListItems(X).ListSubItems
' LISTVIEW İÇİNDE SAHA FAZLA İSE İLAVE EDİN
.Add , , sh.Cells(sat, 2)
.Add , , sh.Cells(sat, 3)
.Add , , sh.Cells(sat, 4)
.Add , , sh.Cells(sat, 5)
.Add , , sh.Cells(sat, 6)
.Add , , sh.Cells(sat, 7)
.Add , , sh.Cells(sat, 8)
.Add , , sh.Cells(sat, 9)
.Add , , sh.Cells(sat, 10)
.Add , , sh.Cells(sat, 11)
.Add , , sh.Cells(sat, 12)
.Add , , sh.Cells(sat, 13)
.Add , , sh.Cells(sat, 14)
.Add , , sat
End With
End With
Set bulunacak = sh.Range("B:B").FindNext(bulunacak)
Loop While Not bulunacak Is Nothing And bulunacak.Address <> Adres
Else
MsgBox "Aradığınız kritere uygun veri bulunamadı", vbCritical, "ARAMA SONUCUNDA HATA"
TextBox2.Value = ""
ListeGuncelle
End If
'Set bulunacak = Nothing
'Set sh = Nothing
End Sub
Private Sub Textbox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
' TEXTBOX İÇİNDE ARAMA YAPAR
If KeyCode <> 13 Then Exit Sub
If Trim(TextBox2.Value) = "" Then: ListeGuncelle: Exit Sub
Set sh = Sheets("Veri")
Ara = TextBox2.Value
'Sayfa5.Range("A:A").Find AAA
Set bulunacak = sh.Range("B:B").Find(Ara) 'VERİ HANGİ SÜTUNDA ARANACAK
If Not bulunacak Is Nothing Then
Adres = bulunacak.Address
ListView1.ListItems.Clear
Do
sat = bulunacak.Row
With ListView1
.ListItems.Add , , sh.Cells(sat, 1)
X = X + 1
With .ListItems(X).ListSubItems
' LISTVIEW İÇİNDE SAHA FAZLA İSE İLAVE EDİN
.Add , , sh.Cells(sat, 2)
.Add , , sh.Cells(sat, 3)
.Add , , sh.Cells(sat, 4)
.Add , , sh.Cells(sat, 5)
.Add , , sh.Cells(sat, 6)
.Add , , sh.Cells(sat, 7)
.Add , , sh.Cells(sat, 8)
.Add , , sh.Cells(sat, 9)
.Add , , sh.Cells(sat, 10)
.Add , , sh.Cells(sat, 11)
.Add , , sh.Cells(sat, 12)
.Add , , sh.Cells(sat, 13)
.Add , , sh.Cells(sat, 14)
.Add , , sat
End With
End With
Set bulunacak = sh.Range("B:B").FindNext(bulunacak)
Loop While Not bulunacak Is Nothing And bulunacak.Address <> Adres
Else
MsgBox "Aradığınız kritere uygun veri bulunamadı", vbCritical, "ARAMA SONUCUNDA HATA"
TextBox2.Value = ""
ListeGuncelle
End If
'Set bulunacak = Nothing
'Set sh = Nothing
End Sub
