PDF listele textbox arama yap listele

[netvolxxx]

merhaba daha önce form yapılmış olan bir uygulamada listbox ta olanlardan textbox2 alanına arama yapıp getiremedim.
örnek dosya ekte yükledim.

mevcut yapılanların hiç birinde textbox2 ya örnek yok verilmemiş.
listbox taki gelenleri textbox arama yap getir örneklerin hepsi çalışma sayfasında bi hücreye bağlı....



yardımlarınızı bekliyorum

 

[muhasebeciyiz]

Userform PDF Listeleme'de Textbox ile Arama

Sevgili arkadaşlar herkese hayırlı akşamlar dilerim. Elimde bir userform mevcut. Dosya yol'undaki pdf dosyalarını listbox'ta sıralayıp webbrowser'da gösteriyor. Ben bir kaç özellik düşündüm mümkünatı var mı bilmiyorum. 1-Listbox'taki isimleri harf sırasına göre sıralaması çünkü dosya...

www.excel.web.tr

Bu verilen linkteki dosya tek listboxta işlem yapmakta olup
dosya yol'undaki pdf dosyalarını listbox'ta sıralayıp web browser'da gösteriyor.

 

[netvolxxx]

Userform PDF Listeleme'de Textbox ile Arama

Sevgili arkadaşlar herkese hayırlı akşamlar dilerim. Elimde bir userform mevcut. Dosya yol'undaki pdf dosyalarını listbox'ta sıralayıp webbrowser'da gösteriyor. Ben bir kaç özellik düşündüm mümkünatı var mı bilmiyorum. 1-Listbox'taki isimleri harf sırasına göre sıralaması çünkü dosya...

www.excel.web.tr

Bu verilen linkteki dosya tek listboxta işlem yapmakta olup
dosya yol'undaki pdf dosyalarını listbox'ta sıralayıp web browser'da gösteriyor.

evet öyle işlem yapıyor listboxta 100 adet pdf var textbox2 ile arama yapıp listbox üzerinden süzdürme yapmak istiyorum

 

[netvolxxx]

Userform PDF Listeleme'de Textbox ile Arama

Sevgili arkadaşlar herkese hayırlı akşamlar dilerim. Elimde bir userform mevcut. Dosya yol'undaki pdf dosyalarını listbox'ta sıralayıp webbrowser'da gösteriyor. Ben bir kaç özellik düşündüm mümkünatı var mı bilmiyorum. 1-Listbox'taki isimleri harf sırasına göre sıralaması çünkü dosya...

www.excel.web.tr

Bu verilen linkteki dosya tek listboxta işlem yapmakta olup
dosya yol'undaki pdf dosyalarını listbox'ta sıralayıp web browser'da gösteriyor.

bu linkteki dosyada ve verilen kodlamada textbox arama yapmıyor konuyu dosyayı burdan aldım ben...

 

[muhasebeciyiz]

bu linkte verilen 2 nolu mesajdaki kodları uyarlamamışsın.Kodlar destek ekibizden askm'ye aittir
birinci arama kısmına c:\ yaz listele dendiğinde c:\dizini altındaki pdf'leri listeler.
Çıkan sonuçtaki pdf lere tıkladığında web browserde açılır.

C:\Users\Administrator\Desktop yazıp alt klasörleri seçince tüm pdf ler karşına gelmektedir.

 

[netvolxxx]

bu linkte verilen 2 nolu mesajdaki kodları uyarlamamışsın.Kodlar destek ekibizden askm'ye aittir
birinci arama kısmına c:\ yaz listele dendiğinde c:\dizini altındaki pdf'leri listeler.
Çıkan sonuçtaki pdf lere tıkladığında web browserde açılır.

C:\Users\Administrator\Desktop yazıp alt klasörleri seçince tüm pdf ler karşına gelmektedir.

2 nolu mesajdaki kodları uyarladım sonuç aynı olduğu için yazdım

verdiğiniz dosyayı da indirdim pdfler listenendi ok listenen pdf içinde adı geçen form8.pdf var diyelim textbox2 bunu yazdığımda hataya düşüyor arama yapmıyor ilk mesaj da bunu anlatmak istedim nerde hata yapıyrum anlamadım.....

 

[netvolxxx]

Private Sub TextBox2_Change()
Dim i As Long
Dim arrlist As Variant
Dim sonsat As Integer

ListBox1.Clear
Call ListeAl(TextBox1.Text, "*.pdf", CheckBox1.Value)

Exit Sub


burda kalıyor kodda Call ListeAl

 

[muhasebeciyiz]

zaten bu dosya tek textbox için geçerlidir. İşinizi görmektedir. İkincisi için ayrı kodlama gerekmektedir.

 

[netvolxxx]

zaten bu dosya tek textbox için geçerlidir. İşinizi görmektedir. İkincisi için ayrı kodlama gerekmektedir.

textbox1 de yol adı geliyor zaten sayfada textbox2 var buna kodlamayı yapamadım bir türlü üstad....

 

[muhasebeciyiz]

Private Sub CommandButton1_Click()
ListBox1.Clear
Call ListeAl(ListBox1, TextBox1.Text, "*.pdf", CheckBox1.Value)
End Sub

Private Sub CommandButton2_Click()
ListBox2.Clear
Call ListeAl(ListBox2, TextBox3.Text, "*.jpg", CheckBox2.Value)
End Sub

Sub ListeAl(Lst As MSForms.ListBox, Klasor As String, DTipi As String, Alt As Boolean)
Dim klasorler() As String
Dim i As Integer
Dim dosya As String
Dim yol As String
Dim attr As Integer
Dim ks As Integer
Static r As Integer

On Error Resume Next
If Right$(Klasor, 1) <> "\" Then Klasor = Klasor & "\"
If DTipi = "" Then DTipi = "*.*"
dosya = Dir(Klasor & DTipi, vbNormal)

Do While dosya <> ""
yol = Klasor & dosya
Lst.AddItem yol
r = r + 1
dosya = Dir()
Loop

If Not Alt Then Exit Sub

dosya = Dir(Klasor & "*.*", vbDirectory)

Do While dosya <> ""
attr = GetAttr(Klasor & dosya)
If dosya <> "." And dosya <> ".." And (attr And vbDirectory) <> 0 Then
ks = ks + 1
ReDim Preserve klasorler(1 To ks)
klasorler(ks) = dosya
End If
dosya = Dir()
Loop

For i = 1 To ks
Call ListeAl(Lst, Klasor & klasorler(i) & "\", DTipi, Alt)
Next i
End Sub

Private Sub ListBox1_Click()
If ListBox1.ListIndex <> -1 Then
WebBrowser1.Navigate ListBox1.List(ListBox1.ListIndex)
End If
End Sub

Private Sub ListBox2_Click()
If ListBox2.ListIndex <> -1 Then
WebBrowser2.Navigate ListBox2.List(ListBox2.ListIndex)
End If
End Sub

Bu kod ile textbox1 ve textbox2'ye dosya yolunu yazdığınızda pdf ler listelenmektedir
Farkeden nedirki ikisindede zaten aynı dosyaları bulmaktadır.

 

[netvolxxx]

Private Sub CommandButton1_Click()
ListBox1.Clear
Call ListeAl(ListBox1, TextBox1.Text, "*.pdf", CheckBox1.Value)
End Sub

Private Sub CommandButton2_Click()
ListBox2.Clear
Call ListeAl(ListBox2, TextBox3.Text, "*.jpg", CheckBox2.Value)
End Sub

Sub ListeAl(Lst As MSForms.ListBox, Klasor As String, DTipi As String, Alt As Boolean)
Dim klasorler() As String
Dim i As Integer
Dim dosya As String
Dim yol As String
Dim attr As Integer
Dim ks As Integer
Static r As Integer

On Error Resume Next
If Right$(Klasor, 1) <> "\" Then Klasor = Klasor & "\"
If DTipi = "" Then DTipi = "*.*"
dosya = Dir(Klasor & DTipi, vbNormal)

Do While dosya <> ""
yol = Klasor & dosya
Lst.AddItem yol
r = r + 1
dosya = Dir()
Loop

If Not Alt Then Exit Sub

dosya = Dir(Klasor & "*.*", vbDirectory)

Do While dosya <> ""
attr = GetAttr(Klasor & dosya)
If dosya <> "." And dosya <> ".." And (attr And vbDirectory) <> 0 Then
ks = ks + 1
ReDim Preserve klasorler(1 To ks)
klasorler(ks) = dosya
End If
dosya = Dir()
Loop

For i = 1 To ks
Call ListeAl(Lst, Klasor & klasorler(i) & "\", DTipi, Alt)
Next i
End Sub

Private Sub ListBox1_Click()
If ListBox1.ListIndex <> -1 Then
WebBrowser1.Navigate ListBox1.List(ListBox1.ListIndex)
End If
End Sub

Private Sub ListBox2_Click()
If ListBox2.ListIndex <> -1 Then
WebBrowser2.Navigate ListBox2.List(ListBox2.ListIndex)
End If
End Sub

Bu kod ile textbox1 ve textbox2'ye dosya yolunu yazdığınızda pdf ler listelenmektedir
Farkeden nedirki ikisindede zaten aynı dosyaları bulmaktadır.

teşekürr ederim yardım ve destekleriniz için ama ben yapmak istediğimi anlatamadım başka yolla çözdüm
sağolun yardımlarınız için.....