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

Bir sorgu satırı ile sorun aşılabilir. Deneyiniz. Option Explicit Private Sub Worksheet_Activate() Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet, Tarih As Object, Yemek_Listesi As Object Dim Yemek As Variant, Son As Long, Veri As Variant, X As Long, Say As Long, Y As Byte, Z...

Merhaba , SQL de tarih formatı "yıl-ay-gün" "yyyy-mm-dd" olarak algılıyor. Bu nedenle excelde hüçreden veriyi alırken . Mesala tarih "A1" hüçresinde ise tarih = Format(Range("A1"),"yyyy-MM-dd") olarak alıp cumlenin içinede " & tarih & " olarak yerleştirmek gerekiyor. "A1" hüçrerisini...

üstadım merhaba; aslında sorguyu yazdım fakat site türkçe'ye çeviriyor kodları o yüzden resim ekledim. SELECT CARI10T.TARIH, CARI00.KOD, CARI00.AD, BORCFIYAT, ALACAKFIYAT, SUM (BORCFIYAT-ALACAKFIYAT) OVER ( ORDER BY TARIH) AS BAKIYE FROM CARI00 JOIN CARI10T ON CARI00.KOD=CARI10T.KOD WHERE...

SORGU = "SELECT A.*, DateAdd('S', RIGHT(ID,5), TARIH),(SELECT SUM(TUTAR)FROM TBL WHERE A.CARKOD=CARKOD AND DateAdd('S',RIGHT(ID,5), TARIH)<=DateAdd('S', RIGHT(A.ID,5), A.TARIH)) AS BAKIYE FROM TBL A WHERE CDATE(A.TARIH) >= CDATE('01.01.2020') ORDER BY A.CARKOD,A.TARIH,A.ID " Bakiyeyi tek...

Yusuf Bey İyi Akşamlar kodları yazdım ama if ve else komutunu kafam basmadı ve anlamadım , Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [B1]) Is Nothing Then Exit Sub Set s1 = Sheets("ANAKAYIT") eski = WorksheetFunction.Max(4, Cells(Rows.Count, "F").End(3).Row) SON...

Korhan hocam, hiç bir şey fark etmedi.. Ben daha önce de Sorgu satırındaki "F"lerde eksikleri yazdım. Bir kısmı gözüktü. Fakat (3, 14, 21, 22, 23, 24) sıra nolu sütun başlıklarını Listbox1 de göstermedi. Tuhaf bir durum daha oldu. Form ilk açılışta, T4, U4, V4, W4, X4 hücrelerindeki rakamları...

Korhan bey Tarih yerine Sayı gelme sorunu çözüldü fakat Ay yerine çapa göre sort yaptı kodlama. Bunu da düzeltmekte yardımcı olabilirseniz çok sevinirim.

burada köşeli parantez var bazılarında bazılarında yok. köşeli parantezin manası ne oluyor hocam ?

Şöyle olabilir: sorgu = "select TARİH,Vardiya,işyeri,[Direkt İşç],[Kayıp Tip Kodu],[Kayıp Detay Tanım],[DURUŞ SINIFI] " & _ "from[Duruşlar$] where [TARİH] = " & s1.[A1] * 1 & " and [işyeri] = '" & s1.[A2] & "' and [Vardiya] = " & s1.[A3] & " and [DURUŞ SINIFI] = 'Plansız Duruş'"

Sayın @Erdem_34 'ün uyarısıyla kodun son hali şöyle oldu ve düzgün bir şekilde çalışıyor: Sub grafiksorgu() Dim son As Long Set s1 = Sheets("Rapor") Set s2 = Sheets("Duruşlar") eski = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "E").End(3).Row) s1.Activate s1.Range("E2:K" &...

Aşağıdaki şekilde makro hazırladım ancak nedenini çözemediğim şekilde "Gerekli bir veya daha fazla parametre için girilen değer yok" hatası verdi: Sub grafiksorgu() Dim son As Long Set s1 = Sheets("Rapor") Set s2 = Sheets("Duruşlar") eski = WorksheetFunction.Max(2, s1.Cells(Rows.Count...

Aynı mesajımda ısrar ediyorum. Aynı dosya içindeki tablodan sorgu yapmak için kullandığım ve aktif çalışan kodum şu şekilde: Set con = VBA.CreateObject("adodb.Connection") con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ ThisWorkbook.FullName & ";extended properties=""Excel...

Yusuf Bey kusura bakmayın başlangıç soruları soruyorum ama 2 kodu ayrı mı çalıştırmalıyım yoksa son kodla tüm yapmak istediğimi yapabilecek miyim? 2.kodu çalıştıramadım

Sayfa1in A1 hücresine İstasyon, B1 hücresine Yıl, C1 hücresine Ay, D1 hücresine Gün, E1 hücresine Tarih ve F1 hücresine Ortalama yazın. Bunalr sütun başlıkları olacak. Birebir aynı yazmaya dikkat edin, fazladan boşluk vs olmasın. Daha sonra aşağıdaki kodları bir modüle kopyalayıp çalıştırın...

Formülün mantığı şu şekilde işliyor; İNDİS formülü ile belirlenen aralıktaki kesişim yerine ulaşıyoruz. =İNDİS(TABLO;SATIR;SÜTUN) Bu tarz formüllerde başlangıç satırı ya da sütunu önemlidir. Aradığımız değer B6:AF6 aralığında bulunuyor. Fonksiyondaki TABLO bölümüne bu aralığı yazıyoruz...

Çok teşekkürler, şuan tam olarak istediğim gibi oldu ellerinize sağlık. Arama alanına farklı karakterler girebiliyor muyuz? (. , / - veya harf gibi) ayrıca karakter giriş üst limiti var mı? (Farkındayım bazı detayları atlamışım benim oraya yazacağım hesap kodları genelde 100.10.001 veya 100 10...

Aşağıdaki gibi deneyin: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [B2]) Is Nothing Then Exit Sub Set s1 = Sheets("Veri") eski = WorksheetFunction.Max(5, Cells(Rows.Count, "A").End(3).Row) son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "A").End(3).Row) If...

Evet istediğim tam olarak buydu, fakat bir sorun var şuan aradığım kod aşağıdaki listede 2 sefer yazıyor. (her bulduğu 100 hesap içeren satırı yazıyor devamında bulduğu hesabı tekrar yazarak alt satırlara devam ediyor. Örn. arama satırına 100 yazdığımda aşağıdaki gibi yazıyor. 100 XX...

Sonuç sayfasını kopyalayın. Aşağıdaki kodları bu yeni sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) kopyalayın. B2'de hesap kodu yazdığınızda istediğiniz listelemeyi yapar: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [B2]) Is...

Sorgudaki sütun başlıklarıyla dosyanızdaki başlıklar birbiriyle uyumlu olmadığı için hata veriyor. Sorgu satırını aşağıdakiyle değiştirin: sorgu = "select [ABONE NO],[PERSONEL],[REFERANS NO],[KURUM],[SÖZLEŞME NO],[ABONE İSİM SOYİSİM],[SON ÖDEME TARİHİ]," & _ "[FATURA...