Accesden excele süzme

27/12/2015, 12:03

hlojan

Bir konuda gördüm bir türlü accesse uyarlayamadım

Kod:
Option Explicit

Sub Sil()
   Range("B9:I3000").ClearContents
End Sub


Private Sub TextBox1_Change()
Dim sonsat As Long, Deg As String, hcr As Range, Aln As Range, Code As Boolean
Dim vsyf As Worksheet, renk

   Sheets("ARAMA").Activate
       
       If Range("E3") <> "" Then
           Deg = Range("E3").Value
           
       Else
           MsgBox "BİR ARAMA KRİTERİ GİRİN..."
           Exit Sub
       End If
       
   Application.ScreenUpdating = False
   Application.EnableEvents = False
   
   Set vsyf = Sheets("VERİ")
   Range("A9:I3000").ClearContents


   sonsat = vsyf.Range("A" & Rows.Count).End(xlUp).Row
   vsyf.Range("B2").AutoFilter
   
   vsyf.Range("B2").AutoFilter Field:=3, Criteria1:="=*" & Deg & "*"
   
   vsyf.Range("B2:I" & sonsat).SpecialCells(xlCellTypeVisible).Copy Range("B9")
   vsyf.Range("B2").AutoFilter


   sonsat = Range("B" & Rows.Count).End(xlUp).Row
         Set Aln = Range("C9:C" & sonsat)
       
   For Each hcr In Aln
       renk = InStr(renk + 1, hcr.Text, Deg)
       Do
           If renk > 0 Then
               hcr.Characters(Start:=renk, Length:=Len(Deg)).Font.ColorIndex = 7
           End If
           renk = InStr(renk + 1, hcr.Text, Deg)
       Loop While renk > 0
   Next hcr

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

Bu kodla aynı çalışma kitabındaki farklı sayfadaki listeyi süzme işlemi yapıyor. Database nasıl uygularım

Örnek dosya ekte. Yardımlarınızı bekliyorum
29/12/2015, 11:54

atoz112

sayın hlojan,

bahsettiğiniz talebinize yönelik olarak;
arama textbox denetimi üzerinden listbox denetimindeki verileri süzmek için,aşağıda bağlantısı yer alan konuyu incelemeniz faydalı olacaktır.

Form Üzerinden Veri Arama

kendi uygulamanıza uyarlama için yapacağınız denemeleriniz neticesinde olası sorunlara veya hatalara maruz kaldığınız takdirde;gerek bu hataları veya sorunları tam tanımlaması ile veya ekran görüntüsü ile ve gerekse de içeriğinde farazi gerçek dışı veriler ve birkaç kayıt içerecek şekilde deneme örnek uygulamanızı konunuza dahil ediniz.

katılımcılar tarafından uygun görülebilecek bilgilendirme veya paylaşımların yapılması muhtemeldir.

bilginize...iyi çalışmalar,saygılar.