multipage de arama

[otokoc]

useform a 4 adet multipage oluşturdum.kodlarıda yapadildiğm kadarıyla
yazmaya calıştım.3. ve 4. multipage lerde aramada yapmıyor.
dosyam ektedir ve sorunu orada daha ayrıntılı yazdım.yardımlarınızı bekliyorum.

 

[Orion1]

Dosyanız ekte
Veri tabanınız bitince inşallah siteye eklersiniz artık.

 

[otokoc]

sevgili evren bey tesekkür ederim tam istediğim gibi olmuş.İnsaallah bitince
siteye ekleyeceğim.kolay gelsin

 

[Orion1]

sevgili evren bey tesekkür ederim tam istediğim gibi olmuş.İnsaallah bitince
siteye ekleyeceğim.kolay gelsin

Rica ederim.
İyi çalışmalar.

 

[otokoc]

Private Sub arama_Change()
Application.ScreenUpdating = False
On Error Resume Next
[l:s].ClearContents
[a1:b1].AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="=*" & arama & "*"
[a1].CurrentRegion.Copy
[l1].PasteSpecial
[a1:b1].AutoFilter
ListBox1.RowSource = "faturalar!" & "L2" & ":" & "S" & [l65536].End(3).Row
End Sub

syn evren bu kodu syn levent bey bir örnekte vermişti.cümle içinde kelime aratmak için sözlüğüme uyguladım ama olmadı.kelime ararken aynı zamanda
cümle içindeki herhangi kelimeye arama yapmak mümkünmüdür?

 

[Orion1]

Bu otomatik filtre bunu uygularsanız benim yazdığım kodlar çalışmayabilir.
Eğer arama yapılırken cümle içersinde bir parçaya eşit olası istenirse benim yazdığım kodlardada bir değişiklik yaparak bu mümkün olur.
Mesele sinema.
em yazdığınızda aramaya sinemayıda dahil edebiliriz.
Şimdi başlangıç harflerine göre arama yapıyor.

 

[otokoc]

Mesele sinema.
em yazdığınızda aramaya sinemayıda dahil edebiliriz.
Şimdi başlangıç harflerine göre arama yapıyor.

evet evren bey tam dediğiniz gibi bi kod olsaydı keşke. forumda birkaç örnek bulup dosyama uyguladım ama calıştıramadım.kolay gelsin.

 

[Orion1]

evet evren bey tam dediğiniz gibi bi kod olsaydı keşke. forumda birkaç örnek bulup dosyama uyguladım ama calıştıramadım.kolay gelsin.

Tabbiki olur.
Kodda küçük bir değişiklik yapmakla bu istediğiniz elde debilirsiniz.
Ben düzenledim kodları.
Dosya ekte.

Sub liste()
Dim k As Range, a As Long
Set k = syf.Range(alan).Find(deg, , xlValues, [B][COLOR="Red"]xlPart[/COLOR][/B])
ReDim myarr(1 To 2, 1 To 1)
If Not k Is Nothing Then
    ilk_adres = k.Address
    Do
        a = a + 1
        ReDim Preserve myarr(1 To 2, 1 To a)
        myarr(1, a) = syf.Cells(k.Row, sut1)
        myarr(2, a) = syf.Cells(k.Row, sut2)
        Set k = syf.Range(alan).FindNext(k)
    Loop While k.Address <> ilk_adres And Not k Is Nothing
End If
End Sub

 

[otokoc]

cok tesekkür ederim evren bey ilgi ve alakanız için.kodlarınızı yeni kendi dosyama yeni ekledim.bitince güzel bi program olacak sayenizde.
esen kalın.

 

[Orion1]

cok tesekkür ederim evren bey ilgi ve alakanız için.kodlarınızı yeni kendi dosyama yeni ekledim.bitince güzel bi program olacak sayenizde.
esen kalın.

Rica ederim.İyi çalışmalar.

 

[otokoc]

sözlükte her multipage combobox ekledim. ve C satırındaki gruplara göre süzüp listbox da gözüksün istiyorum ama kodu yazamadım.ilgilenen arkadaslara simdiden tesekkürler

 

[otokoc]

Private Sub UserForm_Initialize()
Dim X
ComboBox1.Clear
For X = 2 To [A65536].End(3).Row
If WorksheetFunction.CountIf(Range("A4:A" & X), Cells(X, 1)) = 1 Then
ComboBox1.AddItem Cells(X, 1)
End If
Next
End Sub
Private Sub ComboBox1_Change()
Dim S1, BUL, ADRES
Set S1 = Sheets("Veri")
If ComboBox1 <> "" Then
ListBox1.Clear
Set BUL = S1.[A:B].Find(ComboBox1, LookAT:=xlWhole)
If Not BUL Is Nothing Then
ADRES = BUL.Address
Do
ListBox1.AddItem Cells(BUL.Row, 4)
Set BUL = S1.[A:B].FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> ADRES
End If
Else
ListBox1.Clear
End If
Set S1 = Nothing
Set BUL = Nothing
End Sub


bu kodu forumda buldum dosyama uyarlad&#305;m comboboxda s&#252;z&#252;lecek sat&#305;rlar
g&#246;z&#252;k&#252;yor ama bu sefer listbox da listelemiyor.forumdaki bir cok &#246;rne&#287;i uygulad&#305;m ama ben yeni oldu&#287;um i&#231;in galiba yapamad&#305;m.