İki Farklı Değişken Koşula Bağlı Veri Çekme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Excel VBA ile İki Farklı Değişken Koşula Bağlı Veri Çekme
- conn ve rs nesneleri, veritabanı bağlantısı ve sorgu sonuçları için kullanılır.
- connectionString, veritabanına bağlanmak için kullanılan bağlantı dizesidir.
- kosul1 ve kosul2, sorgunun filtreleme koşullarını belirler.
- sorgu değişkeni, SQL 'SELECT' sorgusunu içerir ve iki koşulu (kosul1 ve kosul2) kullanır.
- rs.Open metodu, SQL sorgusunu çalıştırır ve sonuçları rs nesnesine yükler.
- Do While döngüsü, sorgu sonuçları üzerinde dolaşır ve her bir kaydı işler.
- Son olarak, rs ve conn nesneleri kapatılarak kaynaklar serbest bırakılır.
Hazır Kod
VBA:
Sub KosulluVeriCekme()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sorgu As String
Dim connectionString As String
Dim kosul1 As String
Dim kosul2 As Integer
' Veritabanı bağlantı dizesi (Örnek olarak Access veritabanı kullanılmıştır)
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:yolveritabani.accdb;"
' Bağlantı nesnesini oluştur
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open connectionString
' Koşulları ayarla
kosul1 = "ÖrnekMetin"
kosul2 = 100
' SQL sorgusu
sorgu = "SELECT * FROM TabloAdi WHERE Sutun1 = '" & kosul1 & "' AND Sutun2 > " & kosul2
' Sorguyu çalıştır ve sonuçları al
rs.Open sorgu, conn
' Sonuçları işle (Örnek olarak sonuçları hemen mesaj kutusunda gösteriyoruz)
Do While Not rs.EOF
MsgBox "Sutun1: " & rs.Fields("Sutun1").Value & ", Sutun2: " & rs.Fields("Sutun2").Value
rs.MoveNext
Loop
' Bağlantıyı kapat
rs.Close
conn.Close
End Subİçerikte dosya yoktur, kodları kendi çalışmalarınıza uyarlayabilirsiniz.
Faydalanılması temennisiyle
Sütundaki İlk Boş Hücreye Gitme
2025-03-15
Otomatik Sayfa Silme
2025-03-15
