26/12/2015, 10:48
![[Resim: Ekran_Al_nt_s.png]](http://s18.postimg.org/hv5kheyex/Ekran_Al_nt_s.png)
İsteğim şu :
BBB için boş sıra numarası istediğim zaman 1,3,4 gibi olduğunda 2 boş numarayı vermesi
AAA içinde mesela 1,2, ya siradaki numara 3 ü vermesi
Kod:
Dim con As Object, rs As Object
yol = ThisWorkbook.Path & "\DATA.accdb"
Set con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & yol & ""
rs.Open "select * from [deneme] where field1='" & Worksheets("Veri").Range("c1").Text & "';", con, 1, 1
If rs.RecordCount > 0 Then
On Error Resume Next
Worksheets("Veri").Range("c4").Value = ""
Worksheets("Veri").Range("c4").Value = UCase(Replace(Replace(rs("sirano"), "i", "İ"), "ı", "I"))
Else
MsgBox " FİRMA BULUNAMADI"
End If
rs.Close
con.Close
Set rs = Nothing: Set con = NothingEkli dosyada örnek hazırladım yardımlarınızı bekliyorum
şimdilik çalışıo.