Saygıdeğer üstadlar aşağıdaki kod ile satış tarihine eşit ve küçük son alış tarihini ve bu tarihteki alış fiyatını tek sorgu ile birlikte almak istiyorum ama aşağıdaki yaptığım kodda tüm satışları çekiyorum, yanına son alım tarihini getiriyorum fakat son alış tarihindeki fiyat gelmiyor, alımlar...
@Korhan Ayhan üstadım tekrardan merhabalar. Bazen saatlerce ben koda bakıyorum kod bana bakıyor o arada beynimde kodu çalıştırıyorum falan derken beyin duruyor. Aşağıdaki şekilde çözdüm burada paylaşmak istedim. Sende bir bak istersen. Ekleme/çıkarma revize belki bir dokunuşun olur ve...
Üstad sorgu ile harika aslında ama sıkıntı şu Range("H2") ile Range("I2") bölümünde ben örnek dosyada sadece bir satır ürün ekledim. orada tüm satışlar var. Yani veri çok tek satır değildi orayı yanlış anlatmış olabilirim. Önceki formüllerin kasmasının sebebi çok satır olmasındaydı ancak sorgu...
Haluk Hocam merhaba,
TXT dosyasına veri eklemek için kod üzerinde aşağıdaki gibi bir düzenleme yaptım, yalnız ekli hata mesajını verdi, nasıl bir düzenme yapmak gerekir?
ilginiz için şimdiden teşekkürler,
Sub txtado()
Set con = CreateObject("ADODB.Connection")
myPath = ThisWorkbook.Path...
Korhan Hocam çok teşekkürler, versiğiniz sorgu kodu gayet güzel çalışmakta;
müsadelerinizle bu konuda bir şey daha sormak istiyorum.
Tarih_Saat formatında oluşturuan (15.11.2022 11:21) [Tarih-Saat] alanından saatten bağımsız olarak sadece tarihe göre gruplandırmak için aşağıdaki kodu...
Merhaba,
Formüldeki sorgu kriterlerini yani "kağıthane / tarih ve şube gibi parametreleri sabit değil de değişken olarak aldığımızda formülü nasıl düzenlemeliyiz. Hücreye atanmış değişken yaptığımızda hatalı sonuç döndürüyor.. Yani kağıthaneyi bir hücreden, tarihi ayrı bir hücreden alacak ...
Selamlar,
EPDK üstünden aşağıdaki gibi veri çekmeye çalışıyorum.
Normalde verilerin yayınlandığı adres: link
EPDK bunları çekebilmemiz için bize web servisi hizmeti sunuyor. Listede ikinci sırada yer alıyor.
Resimdeki tabloda olduğu gibi tarih / yakıt tipi girildiğinde ilgili...
Merhabalar;
Aşağıda gönderdiğim sorgu ile itemin kodunu, adını, tüm zamanlardaki satış toplamları ve son 90 gündeki satış miktarlarını çekiyorum ve doğru veriler geliyor . Bir diğer kolonda da son satınalma tarihinden itibaren ileriye doğru 90 gün satış miktarını çekmek istiyorum ama bu değer...
Merhabalar,
Bir çalışmamda iki tarih arası veriyi çekmekteyim. Bu çalışmaya şu koşulu eklemek istiyorum. Başlangıç tarihi, bitiş tarihinden büyükse ya da iki tarihten herhangi bölümünden birisi boşken çalıştırılırsa sorgu Msgbox ile uyarı versin ve kod çalışmasın.
Saygılarımla.
Merhaba,
Asıl dosyanızda örnek dosyada belirtmediğiniz durumlar var. Bunları düzeltmeniz gerekir.
Aşağıdaki kırmızı renkli 2 değerini 15 yapmanız gerekiyor. Çünkü asıl dosyanızda veriler 15. satırdan başlıyor.
My_Data = Sh.Range("A2:M" & Sh.Cells(Sh.Rows.Count, 1).End(3).Row).Value
Ayrıca...
Mantığı basit aslında. Vba kod penceresinde Locals ekranında, sorgu değişkenindeki tarih ile ilgili kısmı sayı olarak görürseniz (44583 gibi) muhtemelen sonuç gelir.
Merhabalar
Ekli dosyadaki [Tarih-Saat] alanında;
tarihi bir ay öncesinden büyük olanları filtrelemek için aşağıdaki sorguda hata veriyor,
özetle 17.10.2022 tarihinden büyük olanları almak istiyorum.
Sub Tarihsorguu()
Dim dt As Date
Set Con = VBA.CreateObject("adodb.Connection")...
.
Bunu bir dener misiniz.
LIKE komutu bunun içinde stkmalıncinsi
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strConn As String, sorgu As String
Sub ServerMerkez()
Call sil
If UserForm1.CheckBox1 = "True" Then
tarih1 = Format(Sayfa5.Range("AB1").Value, "yyyy-mm-dd")
tarih2...
Teşekkür ederim buyrun kod alttadır.
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strConn As String, sorgu As String
Sub ServerMerkez()
Call sil
If UserForm1.CheckBox1 = "True" Then
tarih1 = Format(Sayfa5.Range("AB1").Value, "yyyy-mm-dd")
tarih2 =...
Hocam bu şekilde ekledim . Fakat textboxa sadec dove yazınca getiriyor ama dove,arko yazınca hiçbirşey getirmiyor
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strConn As String, sorgu As String
Sub ServerMerkez()
Call sil
If UserForm1.CheckBox1 = "True" Then
tarih1 =...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.