Sorgu için arama sonuçları: sorgu tarih

  1. ÖmerFaruk

    Belirtilen kriterlere göre veri getirme

    Sorular 1. Örnek TABLO dediğiniz Sorgu sayfasının A:H aralığı mıdır? 2. Son 3 saat dediğiniz, şimdiki zamandan 3 saat önceki mi? 3. 200-300 ve 301-450 dediğiniz aralıklardaki alt alta mı yerleştireceksiniz? 4. Karışık mı yerleştirilecek? 5. Tarih-Saat sırasına göre mi? 6. Yakıt miktarına göre mi?
  2. Z

    Tarih aralığına göre birim fiyat getirme

    Arkadaşlar iyi günler. Ekli rapor sayfasında belirttiğim dosyanın sorgu 2 sayfasında H sutununda olduğu gibi G sutununa gelmesini istiyorum ,fakat benim uyguladığım formülde bazılarını getirmiyor. Yardımcı olabilirseniz sevinirim.
  3. C

    makro kopyalama esnasında tarihler sayılara dönüyor hatası

    KAYITLI OLAN MAKRO BU ARKADAŞLAR AMA L VE M SUTUNLARI TARİH KOPYALAMASI GEREKİRKEN 44208 GİBİ KOPYALIYOR. HÜCRE BİÇİMİ TARİH YAPTIĞIMDA DÜZELİYOR HER KOPYALAMADA TEKRAR ESKİ HATALI HALİNE DÖNÜYOR Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Baglanti As Object...
  4. Korhan Ayhan

    Excelden VBA ile SQL Sorgusu Değişken Sorunu

    Linkte benzer bir konu var. https://www.excel.web.tr/threads/sql-sorgu-satirinda-tarih-formati.191735/ Ayrıca sorgunuzda birden fazla TARIH ifadesi geçiyor. Order by ve group by bölümlerini de aynı şekilde formatlamayı deneyiniz.
  5. mustafakoker

    Excelden VBA ile SQL Sorgusu Değişken Sorunu

    Hocam aynı sorun bende de mevcut sorgu sonucunda sayfaya (2021/01/01) şeklinde geliyor ben 01/01/2021 şeklinde gelmesini istiyorum. Sorgum daki TARİH'i nasıl düzenlemeliyim ki 01/01/2021 formatında excel sayfasına gelsin? Sub ADOExcelSQLServer() ' SQL Sunucu Bağlantısı Dim Cn As...
  6. Korhan Ayhan

    Kapalı Dosyadan Veri Alma

    Deneyiniz. Option Explicit Sub Tarihleri_Aktar() Dim Dosya1 As String, Dosya2 As String, Zaman As Double Dim Baglanti As Object, Kayit_Seti As Object, Sorgu As String Zaman = Timer Set Baglanti = CreateObject("AdoDb.Connection") Dosya1 = ThisWorkbook.FullName...
  7. Cengizhantr06

    seçilen sayfayı yazdır ve pdf olarak kaydet

    bu kod ile yazdırıyorum ama aynı anda yazdırılan sayfayı pdf olarakta kaydetmek istiyorum If Sheets("SORGU").Range("A2").Value = "" Then MsgBox "YAZIRMA ALANI SEÇİLMEDİ ÖNCE TARİH GİREREK ARAMA YAPIP YAZDIRA BASIN", vbCritical, "pos takip": Exit Sub End If Dim sor As Byte sor = MsgBox("Seçilen...
  8. ÖmerFaruk

    Belirli bir tarihten süresi belirlenen günden az kalanlar

    Düşeyara fonksiyonuyla tarih aldığınız tüm hücrelere başvuru yapan formülleriniz için kullanabilirsiniz. Düşeyara yaparken "" ifadesiyle olmayan değerler için tarih olması gereken hücreye boşluk koyunca F5<Bugün() sorgunuzda F5 tarih olarak algılanamadığı için sorgu hata veriyor.
  9. T

    [ÇÖZÜLDÜ] Ado ile Kapalı Dosyadan Sayfa Kopyalama

    Option Explicit Sub Verileri_Aktar() Dim Yol As String, Dosya As Variant, S1 As Worksheet, Zaman As Double Dim Baglanti As Object, Sorgu As String, Kayit_Seti As Object ' On Error Resume Next Zaman = Timer Application.ScreenUpdating = False Set Baglanti =...
  10. Mdemir63

    Sorgu içinde TextBox nasıl kullanılır

    Selamlar @Zeki Gürsoy hocam @Korhan Ayhan hocam ilktarih =TextBox1.Value ve sontarih=TextBox2.Value adında değişkenleri tanımladıktan sonra sorguyu aşağıdaki gibi yaptım oldu. Sizlere çok teşekkür ederim. Saygılar Sorgu = "select * from[Veri$] where Tarih >=CDate('" & ilktarih & "') and...
  11. Mdemir63

    Sorgu içinde TextBox nasıl kullanılır

    Selamlar @Zeki Gürsoy hocam @Korhan Ayhan hocam Öncelikle ilginiz için çok teşekkür ederim. aşağıdaki gibi denedim yine olmadı. Saygılar Sorgu = "select * from[Veri$] where Tarih >= " & CLng(CDate(TextBox1.Text))& " and Tarih <= " & CLng(CDate(TextBox2.Text))& " "
  12. Mdemir63

    Sorgu içinde TextBox nasıl kullanılır

    Selamlar Sorguda Textbox kullanmak istiyorum. Aşağıdaki sorguda hücre değeri yerlerine Textbox koyarak denedim ama olmadı. Nasıl yapmalıyım? Saygılar Sorgu = "select * from[Veri$] where Tarih >= " & CLng(Range("K1")) & " and Tarih <= " & CLng(Range("M1")) & " "
  13. N

    Soru sql sorgu satırında tarih formatı

    Merhaba, Ben çat pat Oracle kullandığım için zamanında daha select kısmında istenen tarihin biçimini vermek gerekiyordu, hatırladığım kadarıyle Select TO_CHAR(Tarih, "MMMM yyyy") from .... gibi. Diğer dillerde ise bunu çevirecek yapıyı bilmeniz gerek. Bilmiyorsanız işi VBA ya...
  14. S

    Soru sql sorgu satırında tarih formatı

    Merhaba arkadaşlar. Aşağıdaki kod ile veri tabanından aldığım verileri excel sayfasına aktarıyorum. Call BAGLANTI Set rs = CreateObject("ADODB.Recordset") If ComboBox5.Value = "ELEKTRIK" Then prog = ComboBox5.Value strSQL = "SELECT...
  15. S

    Soru sql sorgusu ile boş kayıtları listeleme

    Hocam teşekkür ederim. Ancak sistemin kurgusunda eksik yönlerin çok olduğunu düşünüyorum. Kendimce şöyle bir algoritma düşündüm. Combobox8'in change olayına bir fonksiyon yazılarak; abone_listesi isimli tabloda bulunan IlAdi, IlceAdi, birim_adi, abone_no alanlarına bakacak, durumu alanında...
  16. H

    Makro ve Ado bağlantısı hk.

    Ali bey çok teşekkür ederim, sorunum bu şekilde çözdüm.
  17. aliozturk55

    Makro ve Ado bağlantısı hk.

    Sorgu = "Select Tarih, [Tali Bayi], Banka, [Kredi Kartı], [Taksit Sayısı], Tutar, İptal From [Sheet1$]" sorguyu Sorgu = "Select Tarih, [Tali Bayi], Banka, [Kredi Kartı], [Taksit Sayısı], Tutar, İptal From [Sheet1$] where Tarih is not null or Tarih <>'' " şeklinde olması gerekiyor. dener misiniz...
  18. H

    Makro ve Ado bağlantısı hk.

    Merhaba Arkadaşlar, Kapalı dosya dan aşağıdaki bağlantı ve sorguyla bilgilerimi sorunsuz bir şekilde alabiliyorum. Şöyle bir sorunum var sadece. Bilgileri aldığım dosyadaki değerlerin son satırındaki bilgileri, Excel in boş satırları ile birlikte getiriyor. Verilerin dışın da bu satırların...
  19. H

    otomatik veri aktarımı

    Merhaba Erdem bey, Emeklerinize sağlık, hazırlamış olduğunuz kodlar çok işime yaradı. Saygılarımla,
  20. Erdem Akdemir

    otomatik veri aktarımı

    Merhaba, Dosyanız ektedir. ADO ve klasik vba birlikte kullanılmıştır. Sub denemem() Sayfa5.Select son = Cells(Rows.Count, 1).End(3).Row Range("A2:G" & son).ClearContents Set con = VBA.CreateObject("adodb.Connection") con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _...
Üst