Metin içeriğine göre değer arama

[umit1907]

Merhabalar,

Ekteki dosyada bir veri sayfası var birde rapor sayfası yapmak istediğim veri sayfasının içerisindeki satırların içeriğine göre rapor sayfasına veri almak.

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Sub bull()

Set con = VBA.CreateObject("adodb.Connection")
Set rs = VBA.CreateObject("adodb.Recordset")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""

Worksheets("rapor").Select

son = Cells(Rows.Count, 1).End(3).Row
Range("B2:O" & son).ClearContents

For i = 2 To son

sorgu = "select f1 from[veri$] where f1 like '%" & Cells(i, 1) & "%'"
rs.Open sorgu, con, 1, 3

Range("B" & i).Resize(, rs.RecordCount) = rs.getrows

rs.Close
Next i

End Sub

 

[umit1907]

Çok teşekkürler elinize sağlık.