ara bul getir

[sevensuleyman]

merhaba; daha önnce sql bağlantılı olarka bu arama kodlu kullanılmıstı. şimdi sayfa2 de veriler arama sayfa 1 deki arama kısmına yazdımızda stok adı geçenler getirmesini istiyorum. kodu uyarlayamadım maalaesef. üstadlardan yardımınız bekliyorum şimdiden teşekkürler örnek excell yüklenmiştir.

xString = Sayfa8.Range("D3")
xAyrac = " "
xAlan = "STOK_ADI"
If Len(xString & "") > 0 Then
    xString = xAyrac & xString
    xKriter = " AND " & Mid(Replace(xString, xAyrac, "%') and " & xAlan & " like DBO.TR2UNC(N'%") & "%' ) ", 8)
End If

 

[tugkan]

Excel yüklenmemiş

 

[muhasebeciyiz]

SQL bağlantılı bir arama kodunu güncellemek ve Sayfa2'deki verileri Sayfa1'deki arama alanına göre filtrelemek için örnek bir kod sunuyorum.

Sub AramaYap()
Dim xString As String
Dim xAyrac As String
Dim xAlan As String
Dim xKriter As String

xString = Sayfa1.Range("D3").Value
xAyrac = " "
xAlan = "STOK_ADI"

If Len(xString) > 0 Then
xString = xAyrac & xString
xKriter = " AND " & Mid(Replace(xString, xAyrac, "%') and " & xAlan & " like DBO.TR2UNC(N'%") & "%' ) ", 8)

Call FilterData(xKriter)
End If
End Sub

Sub FilterData(kriter As String)
Dim ws As Worksheet
Set ws = Sayfa2

With ws
.AutoFilterMode = False
.Range("A1").AutoFilter Field:=1, Criteria1:=kriter
End With
End Sub

Deneyebilirmisiniz

 

[sevensuleyman]

excell dosyası eklenmiştir desteiğniizi rica ederim.

 

[sevensuleyman]

üstatlardan destek bekliyorum