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

Sevgili arkadaşlar aşağıdaki kodlar ile bi raporlama yapıyorum(bu kodları bu forumda ki çok değerli arkadaşlar yazdı). Raporlama sonuçlarını çalışma sayfasına aktarınca A Sütununda numaralandırma yapıyor(1.2.34....... diye) Veriler çok fazla olduğu için bu raporlamayı çok yavaşlatıyor çok uzun...

Merhaba Arkadaşlar, Aşağıdaki kodlarile başka sayfalardan veri alıyorum. Benim sizden şöyle bir ricam olacak. Verilerin geldiği dosyada Fatura Tarih sütünundaki belli tarih aralığınıdaki belirliyerek ( Fatura tarihi aralığı 01.01.2021 - 01.05.2021 ) değerlerin getirilmesini istiyorum. Veri...

yusuf bey hata veriyor özellikle , Set con = VBA.CreateObject("adodb.Connection") con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes""" sorgu = "select İsim,Tarih,Çeşit,Kğ,f,Tescil,T_İsmi,Tutar,Bakiye,G_Bakiye from...

Initialize kodlarını aşağıdakiyle değiştirince not sütunu hariç diğer sütunları listeliyor ama not sütununu da ekleyince kodlar söz dizimi hatası veriyor, nedenini çözemedim: Private Sub UserForm_Initialize() Dim sonhb, sonV, i, h As Long, s1 As Worksheet, son As Integer, con, sorgu, rs sonV =...

Arkadaşlar merhaba, logo kullanıcısıyım ,excelde sql bağlantılı cari hesap ekstresi almak istiyorum belirticeğim cari kod ve tarih aralığına göre aşağıdaki sonuçları döndürecek sql sorgusuna ihtiyacım var...yardımcı olabilecek arkadaşa şimdiden sonsuz teşekkürler not: 1-cari kod ve tarih aralığı...

Bu türden sorularda örnek dosya çok önemlidir, muhtemelen şimdiye kadar cevap almamanızın nedeni de dosya paylaşmamış olmanızdır. Dosya olmadığı için kodları deneyemedim. Siz deneyin: Sub RAPORLAMA() Set s1 = Sheets("PLAN") Set s2 = Sheets("URT RAPORU") son = s1.Cells(Rows.Count...

Sub RAPORLAMA() Set s1 = Sheets("PLAN") Set s2 = Sheets("URT RAPORU") son = s1.Cells(Rows.Count, "E").End(3).Row eski = WorksheetFunction.Max(9, s2.Cells(Rows.Count, "D").End(3).Row) sonsut = s1.Cells(2, Columns.Count).End(xlToLeft).Column s2.Range("D9:J" & eski).ClearContents If s2.[L6] = ""...

Tam anladığımdan emin değilim ancak aşağıdaki kodları bir modüle kopyalayıp deneyin:. Kodun düzgün çalışmaması için veri sayfasında C sütununda örneğinizdeki gibi boş hücrelerde tarih verisi olmamalıdır. Kod C sütunundaki tarihlere göre işlem yapmaktadır. Eğer o sütunda boş görünen hücrelerde...

@YUSUF44 Yusuf bey merhaba. çalışmayı formülle yapmayı düşünüyordum ama hem makrolu hem formüllü yapmaya karar verdim. Korhan Beyin formüllerini uyguladım. ona yazım düzenini ekledim. ancak kodda bunu yapamadım. sanırım Application.Proper(cell) kullanmamız gerekiyor. bunu kodların neresine...

Şunu dener misiniz: sorgu = "select [Yapılması Gereken Ödeme],[Yapılacak Tarih] from [Sheet1$A1:D" & son & "] where BGS=1 order by [Yapılacak Tarih]"

sorgu satırını aşağıdakiyle değiştirip deneyin: sorgu = "select [Yapılması Gereken Ödeme],[Yapılacak Tarih] from [Sheet1$A1:D" & son & "] where BGS=1 order by BGS"

Formülle nasıl düzeltilir bilemedim ama makroyla isterseniz aşağıdaki makroyu deneyiniz: Sub tarihler() Set s1 = Sheets("Sheet1") son = s1.Cells(Rows.Count, "D").End(3).Row eski = s1.Cells(Rows.Count, "I").End(3).Row If eski > 1 Then s1.Range("H2:I" & eski).ClearContents Set con =...

Haluk beyin bahsettiği işlemi yaptığımda, Bu sonucu aldım. Buna rağmen 2021.05.20 sonucu alıyorsanız, Denetim Masası-Bölge buradan tarih formatınızı kontrol ediniz.

Teşekkürler Yusuf bey

With ListBox1 satırından önce başka bir sorgu ve döngüyle kontrol yapılabilir: If ListBox1.List(i, 0) = TextBox1.Value Then With ListBox1 .List(i, 2) = .List(i, 2) + TextBox4.Value ' satış adet .List(i, 4) = .List(i, 4) +...

Sanıyorum A1 hücresindeki Fide sayfa adının sonundaki boşluktan kaynaklanıyor. Kodun düzgün çalışması için 1. satıra yazdığınız sayfa isimlerinin gerçek sayfa isimleriyle birebir aynı olması gerekir. Kodu aşağıdakiyle değiştirirseniz hatalı sayfa adlarını dikkate almaz ve o hücreyi kırmızıya...

Aşağıdaki gibi daha iyi oldu sanki: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [B3]) Is Nothing Then Exit Sub Set s1 = ActiveSheet eski = s1.Cells(Rows.Count, "B").End(3).Row If eski > 3 Then s1.Range("A4:V" & eski).ClearContents s1.Range("A4:V" &...

Bu kısım ADO ve SQL ile rapor oluşturma kısmı. Set satırından sorgu ile başlayan kısıma kadar olan yerde bu yöntemle rapor alacağımızı tanımlıyoruz. Bu kısmı kopyala yapıştır yapıyorum, standart değişmez kodlar. Sadece sonundaki hdr=no kısmı veritabanının ya da tablonun durumuna göre hdr=yes...

ondalık sayılardaki noktaları virgün yaptım çalıştı ama formülü yanlış değerlendiriyor 1. sorgu yanlışsa ikiye geçmek yerine ilk koşulun eğerine bakıyor

Arama menüsünde bolca örnek var https://www.excel.web.tr/search/192414/?q=sorgu+tarih&o=date https://www.excel.web.tr/threads/sql-sorgu-satirinda-tarih-formati.191735/