...sonsatir As Variant
sonsatir = Sheets("Sayfa1").Range("A100000").End(xlUp).Row
yol = ThisWorkbook.Path & "\dosya2.xlsm"
Dim baglanti As New ADODB.Connection
Dim rsK As New ADODB.Recordset
baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended...
...olanı seçtim.
Sorunun kaynağı ne olabilir acaba, yanlış uyarlama mı yaptım anlayamadım.
Sub VeriGuncelle()
Dim baglanti As New ADODB.Connection
Dim rsK As New ADODB.Recordset
yol = ThisWorkbook.Path & "\dosya2.xlsm"
baglanti.Open...
Hocam cevap için teşekkür ederim.
Adodb konusunda gerçekten hiç anlamadım.
İstediğim ise
Kapalı dosya bir cari dosyası. F sütunu vadeleri gösteren sütun.
Benim istediğim ise Açık B1 hücresinde yazan tarih ve öncesinde ne kadar dolan tutar var onu bulmak.
Aynı işlemi C1 için de yapacağım...
...imageUrl, False
.send
End With
If xhr.Status = 200 Then
Dim stream As Object
Set stream = CreateObject("ADODB.Stream")
With stream
.Type = 1 'Binary
.Open
.Write xhr.responseBody
.SaveToFile...
...CBIL.BoundColumn = 2: CBILCE.BoundColumn = 2: CBSEMT.BoundColumn = 2: CBMAHALLE.BoundColumn = 2
Set adoCon = CreateObject("ADODB.Connection")
strSQL = "SELECT IL_ADI, PLAKA FROM [İL$] WHERE NOT PLAKA IS NULL"
If adoCon.State = 0 Then
adoCon.Open...
Adodb kullanarak birkaç veriyi çekip tek hücrede birleştiriyorum fakat bu birleştirme sonrasında hücre içerisindeki bazı kelimeleri kalın yapmak istiyorum yazdığım kodun örneğini paylaştım burada hata var mı? Teşekkürler
For Each hucre In analiste.Range("C1:C" & sonsatirc)
If Not...
...Sub SorguAdet_hy_6_1()
Dim Con As Object
Dim Sorgu As String
Dim yol As String
Application.ScreenUpdating = False
Set Con = VBA.CreateObject("adodb.Connection")
yol = ThisWorkbook.FullName
Sayfa2.Activate
Sayfa2.Cells.Clear
'___________________________________________________________...
...9
Sub SorguAdet_hy_6()
Dim Con As Object
Dim Sorgu As String
Dim yol As String
Application.ScreenUpdating = False
Set Con = VBA.CreateObject("adodb.Connection")
yol = ThisWorkbook.FullName
Sayfa2.Activate
Sayfa2.Cells.Clear
'___________________________________________________________...
Çok teşekkür ederim Halil Hocam iyiki varsınız!
şimdi benim bu alagoritmayı iyice bir içselleştirdikten sonra biraz geliştirmek istiyorum.
Örnek: şimdiye kadar 2. alanı (x1, x2) kontrol ediyorduk, şimdi bana düşen aynı şekilde 3. alanı da (x3) buraya entegre etmek olacak
Selamlar, Saygılar.
...Sub SorguAdet_hy_5_2()
Dim Con As Object
Dim Sorgu As String
Dim yol As String
Application.ScreenUpdating = False
Set Con = VBA.CreateObject("adodb.Connection")
yol = ThisWorkbook.FullName
Sayfa2.Activate
Sayfa2.Cells.ClearContents...
...)Sub SorguAdet_hy_5()
Dim Con As Object
Dim Sorgu As String
Dim yol As String
Application.ScreenUpdating = False
Set Con = VBA.CreateObject("adodb.Connection")
yol = ThisWorkbook.FullName
Sayfa2.Activate
Sayfa2.Cells.ClearContents...
...Sub SorguAdet_hy3_1()
Dim Con As Object
Dim Sorgu As String
Dim yol As String
Application.ScreenUpdating = False
Set Con = VBA.CreateObject("adodb.Connection")
yol = ThisWorkbook.FullName
Sayfa2.Activate
Sayfa2.Cells.ClearContents
Con.Open "provider=microsoft.ace.oledb.12.0;data source="...
...bu kurala uygun sorgu nasıl düzenlebilir?
Sub sorguu()
Dim Con As Object
Dim Sorgu As String
Dim yol As String
Set Con = VBA.CreateObject("adodb.Connection")
yol = ThisWorkbook.FullName
Sayfa2.Activate
Sayfa2.Cells.ClearContents
Con.Open "provider=microsoft.ace.oledb.12.0;data source="...
...Dim searchKeyword As String
Dim rs As Object
Dim baglan As Object
' Bağlantıyı açmak için
Set baglan = CreateObject("ADODB.connection")
baglan.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\Datalar.accdb"
' Text kutusundaki...
MERHABA BEN office365 kullanıyorum sanırım bu kodlar benim excel e uymuyor hocam uyarladım çalışmıyor zaten teşekkürler. bunun office365 e uyumlu olanı olsaydı denerdim.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.