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

Aşağıdaki örnek ile yapabilirsiniz. If ComboBox1.Value = "" Then sk = "ŞK is not null " Else sk = "ŞK = '" & ComboBox1.Value & "'" End If If TextBox1.Value = "" Then trh1 = " and tarih is not null " Else trh1 = " and tarih >= " & " " & CLng(CDate(TextBox1.Value)) & "" End If sorgu = "select *...

Arkadaşlar Merhaba, Aşağıdaki kod ile LOG sayfasında verileri çekiyorum, [Ortalama Vade] verilerini alırken tarih formatında getirmiyor, makro kaydet ile F:F sutunu seçip metni sutunlara dönüştür Tarih formatında yapıyorum. oluyor, ancak kodun sonuna makroyu kopyaladığımda yine vadeyi tarih...

Onu ben yapamam, ama mantığı öyle olmalı önce İD sorgulayacak excel sayfasına alacak ondan sonra o İD ile sorgu yapıp textlere verileri alacak..

Necdet Bey, Yazdığınız kodu ayrı bir dosyada çalıştırdığımda sorunsuz çalışıyor, var olan çalışma kitabımdaki Private Sub Worksheet_Change(ByVal Target As Range) modülünün altına kopyaladığımda yine çalışıyor ancak aşağıda olan kodlarım çalışmıyor, en alta yapıştırdığımda bu sefer benim...

Dosyanızda biraz geliştirme yaptım. Ancak son aşamada raporlama işlemini maalesef yapamadım. Hazırladığım sorgu nedense çalışmıyor, bağlantı kesildi hatası veriyor. @Korhan Ayhan, @Necdet, @halit3 ya da @Haluk üstadlarım bir bakarsa sevinirim. Acaba veritabanında sütun sınırı var da sütun...

Nerdeyse benimle aynı süre üyeliğiniz var. Bunca zaman örnek dosyayla asıl dosyanın aynı yapıda olmasının ne kadar önemli olduğunu anlamış olmanız gerekirdi. Aşağıdaki gibi deneyin: Sub odenen() Set s1 = Sheets("ANASAYFA") Set s2 = Sheets("KAYIT") Set s3 = Sheets("LİSTE") son =...

Ben if sorgusundan önce eklemenizi istemiştim ama siz if sorgusunun içine eklemişsiniz. Son açıklamanızda eğer yanlış anlatmadıysanız, Ödenen makrosunun, kalan ödeme sütunu dolu olanları aktarması gerekiyor. Doğru mu? Doğruysa bu saçma olmaz mı? Aynı şekilde tam tersi yani ödenmeyen...

Aşağıdaki makroları deneyiniz: Sub odenen() Set s1 = Sheets("ANASAYFA") Set s2 = Sheets("KAYIT") Set s3 = Sheets("LİSTE") son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "A").End(3).Row) Set con = VBA.CreateObject("adodb.Connection") con.Open "provider=microsoft.ace.oledb.12.0;data...

Merhaba, bir kaç tarih sildim ve aşağıdaki gibi kod çalıştı. 4 nolu mesajda da aynı düzeltmeyi yaptım. SORGU = "select ADI, SOYADI, DTARİH, format(cdbl(DTARİH),""mmdd"") AS AYGUN from [DoğumTarihleri$] " & _ "where [DTARİH] <> NULL AND format(cdbl(DTARİH),""mmdd"") BETWEEN " &...

SERİAY formülü sonucunda bir tarih yani sayısal veri elde edilir. Yani =SERİAY(AH1;0)+1 formülünün sonucu 01/11/2021 sonucunu veriyor. O hücreyi siz aaa yy olarak biçimlendirdiğiniz için hücrede Kas 21 görünür ama aslında ordaki veri 01/11/2021 tarihidir ve excel için karşılığı da 44501...

Office 365 de Dtpicker i çalıştıramıyorum. UserForm üzerindeki takvim eklentisini başka nasıl çalıştırabilirim bütün kodlarda Dtpicker'e göre yazılmıştı (tabi yine formdaki arkadaşlar tarafından) Konu hakkında yardımcı olama imkanınız var mı acaba? Private Sub CommandButton1_Click() 'Sorgula...

Aşağıdaki makroyu dener misiniz? (Öncesinde sayfa1'deki başlıklarınızı kod içindeki gibi düzeltin lütfen, hücre içinde Alt+Enter kullanılmamış olsun) Sub muhasebe() Set s1 = Sheets("Sayfa1") Set s2 = Sheets("Sayfa2") son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "A").End(3).Row)...

Fonksiyon olarak sormuşsunuz ama makroyla daha kolay olur diye düşünüyorum. Makroyla isterseniz aşağıdaki kodları Talep sayfasının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırıp deneyin. B3 hücresini değiştirdiğinizde istediğiniz işlemi gerçekleştirir...

Merhaba; Çözümün doğru sonucu döndürdü teşekkürler iyi bir alternatif. Senin metodundan yola çıkarak SIKLIK ve KAÇINCI işlevleri aklıma geldi bende yardımcı sütunsuz bir formül ile bir çözüm buldum ve oda oldu. Yani işlem adedini tekrarlananlar hariç istediğim sorgu şeklinde saydırıyorum. Ek te...

Çok kıymetli arkadaşlar aşağıdaki kodlarla iki tarih aralığında raporlama yapıyorum eğer o gün boşsa ve ben boş olmasına rağmen raporla tuşuna basarsam(yanlışlıkla) ekteki hatayı veriyor.Bu hatanın önüne nasıl geçebiliriz acaba HATA KODU EKTE Private Sub CommandButton1_Click() 'Sorgula Dim...

Korhan hocam Merhaba Sizin daha önceki bir örneğinizden yararlanarak yanlızca combobx ile verileri listbox a alabiliyorum. İki tarih arası sorgulara örnekteki gibi kodları eklediğimde sözdizimi hatası alıyorum. Sorguları doğru yapamıyorum sanırım. Yönlendirebilirseniz memnun olurum. Private...

Korhan hocam combobox ile etkileşimli 2 listbox ile iki tarih arası sorgu aynı yöntemle çalıştırılabilirmi. Tarih sorgusu yapacağım yada sadece comboboxtan sorgu yapılacak. Biraz uğraştım ama tarih sorgusu kısmında hata alıyorum.

Merhaba, Data Sayfası Tarih alanında "dd.mm.yyyy" formatında tarih bilgileri mevcut, Burada Tarih alanında ay bilgisine göre sorgulama yapmak istiyorum. Aşağıdaki Sorgu satırını bir türlü düzenleyemedim. dim m as byte m = Month(Now()) strSQL = "SELECT AVG([Ortalama Fiyat]) AS...

Merhaba, Makro ile sorgu yenilemesi, pivot yenilemesi gibi işlemler yapıyorum. Sorgu yenilemesinden sonra Sleep komutu ile 100000 ms bekleme yaptırıyorum ama bu bekleme süresi çok sağlıklı değil. Dosyadaki veri büyüklüğüne göre sorgu çalışma süresi değişiyor. İşlem tamamlanana kadar bekletme...