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

veri ve sorgu adında iki sayfa sekmesi var sorgu sayfasında M3 ilk tarih N3 ikinci tarih var veri sayfasında b3:b1000 arası tarih var h3:h1000 arası da ürün listem var. sorgu sayfasında M3 ilk N3 ikinci tarihi girdiğimde sorgu sayfası B47 den aşağıya doğru ürünleri liste yapacak formüle...

Merhaba, 6-7 kriter girilerek sonuç getirebilen bir sorgu yazmak istiyorum. Kriterler her zaman olmak zorunda değil. Örnek olarak 20.11.2018 tarihi varsa bunu sorguya ekleyecek. Tarih boş geçilirse tüm tarihleri getirecek. Bunun gibi 6,7 farklı kriteri tek sorguda nasıl yazabiliriz. sorgu =...

Merhaba Forma yeni üye oldum excel vba ile muhasbee finans ön muhasebe banka gibi işlerimde vba ile işlemler yapıyorum zaman çözemediğim sorunlarla karşılaşıyorum bu tür konularda sizden yardım rica etmek için forma üye oldum Şu an takıldığım bir konu var Aşağıdaki kod birden fazla stoğu olan...

Sub Vericek() Dim Con As Object, Rs As Object, Sorgu As String Set Con = CreateObject("AdoDB.Connection") Set Rs = CreateObject("AdoDB.RecordSet") Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\YENİ TPR ÇALIŞMA.xlsx" & _ ";Extended...

Tam getirmiyor malesef verileri sanırsam bir yerinde hata var ya da ben yanlış anlattım Dosyaları yüklüyorum öyle daha anlasılır olucak sanırsam

Buyurun.:cool: Sub Ado_Kapalı() Dim Con As Object, Rs As Object, Sorgu As String Range("A2:I" & Rows.Count).ClearContents Set Con = CreateObject("AdoDB.Connection") Set Rs = CreateObject("AdoDB.RecordSet") Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" &...

Sub Vericek() Dim Con As Object, Rs As Object, Sorgu As String Set Con = CreateObject("AdoDB.Connection") Set Rs = CreateObject("AdoDB.RecordSet") Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\YENİ TPR ÇALIŞMA.xlsx" & _ ";Extended...

Zekibey ok teşekkür ederim. "select tablo1.*" örneği çok işime yaradı :) Sorgunun tamamında ise şöyle bir sorunum var ; Sanırım koşulu sorguda inner join kullanmamam gerekiyor? Oluşturduğum sorgu kodları bu şekilde: sorgu = "SELECT TABLO1.*, TABLO2.UNVAN " & _ "FROM TABLO1 inner join...

Sub Veri_Aktar() Sheets("Takip_Listesi").Select Range("A6:am65000").ClearContents Set con = CreateObject("Adodb.Connection"): Set rs = CreateObject("Adodb.RecordSet") con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ "C:\PERSONEL\PERSONEL_DATA.xlsm" &...

Merhabalar aşağıdaki kodu internetten buldum, Excel ile döviz kurlarını anlık şekilde çekmeye yarıyor ancak, bu makro bilgisayarımda herhangi bir excel dosyası açık olduğunda otomatik aktif olsun istiyorum, nasıl yapabilirim, yardımlarınızı rica ederim. şimdiden çok teşekkürler. Private Declare...

merhalar. konunun başlığı, gerçekte sormak istediğim şey ile uyuşmayabilir, kelimeleri doğru seçemediysem şimdiden özür dilerim. verileri 4 sütundan oluşan, ticari bir işletmenin günlük satış tablosu var. örneğin linkini wetransfer üzerinden paylaştım en sonda. A sütunu - sonsuza gidecek...

Klasör yapısı ekte resimlerle verilmiştir. 1.mesajımda verdiğim kod ile excel dosyalarındaki veriyi bu klasör yapısına göre alabiliyorum. İstediğim şey ise aynı işlemi txt dosyaları için de yapabilmek. Şuana kadar verilen kodlar aslında çalışıyor fakat 1.si A4 hücresine girilen tarihe göre K4...

Haluk bey, verdiğiniz bilgi için teşekkür ederim. Fakat bu dosyalar otomatik olarak oluşturulmakta. Zaten bu kodun kullanımındaki amaçta bu otomatik gelen dosyaların içinden lazım olan verileri süzüp kullanmak istememizden kaynaklanıyor. Dosya isimlerini değiştirmek yerine o formatı okutmak bi...

Alan adında (yani, dosya adında) boşluk varsa, köşeli parantez içinde kullanmak gerekir. ....... [Dosya Adı] gibi. Ancak, sizdeki sorun; dosya adı olan tarih biçiminde "nokta" kullanılmasından kaynaklanıyor. Masaüstündeki "Text" dosyasının adını 19-11-2018 DOSYASI olarak değiştirin, kodu da bu...

Merhaba, öncelikle yardımcı olduğunuz için teşekkür ederim. Ben örnek dosyaya gerek kalacağını düşünmemiştim. Kusura bakmayın. Not: Dosya ismi ve yolu değişken olduğu için ilk verdiğim kodda olduğu gibi değişken tanımlamıştım. Ayrıca dosya adı GG.AA.YYYY şeklinde tarih ve boşluk içermekte...

Yusuf bey günaydın, Kodun aşağıdaki kısımlarını değiştirin. Tek satır veride gelen hata ile karşılaşmayacaksınız. con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes""" sorgu = "select Tarih,[Görev Yeri],[Hukuki...

Yusuf bey, Hatanın sebebi ADO'nun sorgu yapılan alandaki sütunları kendi içinde metin,sayı,tarih olarak sınıflandırırken sorun yaşaması. Tek satır sonuç döndüğü için değil, tek satır veriniz olduğu için bu hatayı veriyor. Ana Sayfa'da ki datayı çoğaltın ama tek sonuç döndürün hata...

Merhaba, Aslında 1.000.000 satır'da bile çalışabilir. Direkt alanı kendiniz belirlediğinizde kabul etmiyor. Saati sorgunun içinde format işlemini kullanarak biçimlendirebilirsiniz.

Teşekkürler sayın Erdem_34. Belirttiğiniz gibi 10000 yapınca düzeldi. Bu şu anlama mı geliyor: "bu sorgu 10000 satırdan sonra çalışmaz/verimli olmaz" Dosya bu haliyle bayağı verimli hatta tam istediğim gibi oldu diyebilirim. Yalnız dikkatimi bir şey çekti. Makro çalıştıktan sonra Ana sayfada...

Hayırlı akşmlar herkese . Yeni sitemiz hayırlı olsun . Aşağıdaki kodlarda iki tarih arası acces veritabanımdan veri çekiyorum. Fakat ne hikmetse 2. koşulu eklediğimde alakasız veriler cekiyor. sebebi ne olabilir? Saygılar, Sorgu = "SELECT [İşlem Tarihi],[Evrak No], Açıklama ,EvrakTürü,[İşlem...