Soru Zaman (Tarih ve Saat) ve Numara Filtreleme

[yusuf1284]

Arkadaşlar elimde Ek'te gönderdiğim gibi veriler mevcut belirlediğim 2 numarayı aynı Baglanti da bulunan ve aralarında belirlediğim zaman(5 dk) farkı kadar olabilir bu verileri yeni bir sayfaya sonuç olarak aktarmak istiyorum

örnek eşleşme

SIRA NO	NUMARA	TARİH	Baglanti
9​	1111111111​	25.01.2024 19:39​	'64191995122

2​

2222222222​

25.01.2024 19:41​

'64191995122

Sub ortakGPRSAra()






    Dim kisi1 As Variant, kisi2 As Variant

    ' Kullanıcıdan saat farkını giriş alın
    Hour_Difference_Input = Application.InputBox("Raporlamak istediğiniz saat farkını hh:mm:ss biçiminde giriniz...", "SAAT FARKI GİRİŞİ", "00:05:00")

    ' Eğer saat farkı girişi iptal edilirse işlemi sonlandırın
    If Hour_Difference_Input = False Then
        MsgBox "İşleminiz iptal edilmiştir!", vbCritical
        Exit Sub
    End If

    ' Eğer saat farkı girişi boşsa işlemi sonlandırın
    If Hour_Difference_Input = "" Then
        MsgBox "Saat farkı değerini girmediğiniz için işleminiz iptal edilmiştir!", vbCritical
        Exit Sub
    End If

    ' ADO Bağlantısını oluştur
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"


    numara1_Input = Application.InputBox("Raporlamak istediğiniz 1. numarayı giriniz...", "BİRİNCİ NUMARA GİRİŞİ", "1111111111")
    numara2_Input = Application.InputBox("Raporlamak istediğiniz 2. numarayı giriniz...", "İKİNCİ NUMARA GİRİŞİ", "2222222222")

    ' SQL sorgusu
    aralik = sh_gprs.Name & "$" & "A1:J"

    Sql = "SELECT * FROM [" & aralik & "]WHERE NUMARA IN (" & numara1_Input & ")"
    ' Veritabanı nesnesi oluştur
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open Sql, conn, 1, 3

    ' Recordset'teki veriler diziye aktarılıyor
    kisi1 = rs.GetRows()

    rs.Close ' Recordset kapatılıyor
    Sql = "SELECT * FROM [" & aralik & "]WHERE NUMARA IN (" & numara2_Input & ")"
    ' Veritabanı nesnesi oluştur
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open Sql, conn, 1, 3

    ' Recordset'teki veriler diziye aktarılıyor
    kisi2 = rs.GetRows()

    rs.Close ' Recordset kapatılıyor

End Sub

Yardımcı olabilecek var mı

 

[yusuf1284]

Nasıl bir yol izleyeceğime dair önerisi olan var mı?