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

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...

Aşağıdaki kodları ÖN KAYIT 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: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [B1]) Is Nothing Then Exit Sub Set s1 = Sheets("KAYIT SAYFASI") eski =...

https://www.dosya.tc/server28/4pn2l5/Vard-Pers01.xlsx.html Hazırlamış olduğum dosyayı olduğu gibi göndermenin en iyisi olduğunu düşünüyorum. İncelerasiniz... Bir önceki mesajınızda sormuş olduğunuz soruların cevaplarını bulabileceğinizi düşünüyorum.... P-O-S olayını yanlış değerlendirmiş...

Sub Veri_Aktar() Sheets("Takip_Listesi").Select Range("A5:Y65000").ClearContents Set con = CreateObject("Adodb.Connection"): Set rs = CreateObject("Adodb.RecordSet") con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ "C:\PERSONEL1\deneme.xlsx" & ";extended properties=""excel...