[Yardım]  En yakın tarih ve fiyatı tek listele

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

En yakın tarih ve fiyatı tek listele

İleti#1)  Bedrettin DEMİRCİ » 08 Haz 2019 11:40

Merhaba değerli forum arkadaşlarım
Daha önce burdan aldığım bir çalışma vardı
o zaman farketmemişim ama bi konuda destek rica edeceğim
Yazdığınız kod şu işlemi yapıyor :
H sütunundaki stoğu tek liste olarak P sütununa yazıyor
M sütunundaki fiyatını ise en yakın tarihli olanını R sütununa yazıyor Tarihide Q sütununa yazıyor
zaten ekteki dosyaya bakarsanız anlarsınız

Farkettiğim hata şu
en yakın tarihi değilde sıraladığın zaman en sondaki tarih ve fiyatını alıyor
Doğrusu bugünün tarihine en yakın tarihi ve fiyatı alması lazım
yardımcı olurmusunuz
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1643
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: En yakın tarih ve fiyatı tek listele

İleti#2)  Feyzullah » 08 Haz 2019 21:14

SORGU = "SELECT [H].F8,LAST([H].F5),LAST([H].F13) from [Tek_Liste$] AS [H] " Bu kodu aşağıdaki gibi değiştirin

Kod: Tümünü seç
SORGU = "SELECT [H].F8,first([H].F5),first([H].F13) from [Tek_Liste$] AS [H] " 
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 541
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: En yakın tarih ve fiyatı tek listele

İleti#3)  Bedrettin DEMİRCİ » 10 Haz 2019 11:13

İlk tarihi verdi
Yani en üst satırda hangisi varsa onu verdi..

En büyük tarihi vermesi lazım
Bugüne en yakın tarihi yani..
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1643
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: En yakın tarih ve fiyatı tek listele

İleti#4)  Feyzullah » 10 Haz 2019 12:11

Sorgu kodunuzu aşağıdaki gibi değiştirin

Kod: Tümünü seç
 sorgu "select f8,f5,f13 from [Tek_Liste$] where (f8) & (f5) in (select distinct (f8) & max(f5) from [Tek_Liste$]  WHERE F4 = '" Range("P2") & "' AND F11 IS NOT NULL group by f8 )" 
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 541
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: En yakın tarih ve fiyatı tek listele

İleti#5)  Feyzullah » 10 Haz 2019 12:15

üst mesajı alfabetik sıralama için düzeltemedim.

Kod: Tümünü seç
    sorgu "select f8,f5,f13 from [Tek_Liste$] where (f8) & (f5) in (select distinct (f8) & max(f5) from [Tek_Liste$]  WHERE F4 = '" Range("P2") & "' AND F11 IS NOT NULL group by f8)  order by f8" 
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 541
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: En yakın tarih ve fiyatı tek listele

İleti#6)  Bedrettin DEMİRCİ » 10 Haz 2019 12:36

Bu kod hata veriyor
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1643
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: En yakın tarih ve fiyatı tek listele

İleti#7)  Bedrettin DEMİRCİ » 10 Haz 2019 12:40

İki kodu da denedim eksik
uyarı mesajında bu kelimeler geçiyor: "......Sözdizimi hatası eksik işleç .........."
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1643
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: En yakın tarih ve fiyatı tek listele

İleti#8)  Feyzullah » 10 Haz 2019 18:49

Sorgu kodunuzu komple silip bunu yazmalısınız, dosyanız üzerinde denedim sıkıntı yok.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 541
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: En yakın tarih ve fiyatı tek listele

İleti#9)  Feyzullah » 10 Haz 2019 18:57

Kodlarınızın son hali aşağıdaki gibi olmalı

Kod: Tümünü seç
Sub LISTELE()
Dim son As Long

son 
Range("D65536").End(3).Row

    Zaman 
Timer
    
    On Error Resume Next
    ActiveSheet
.ShowAllData
    On Error 
GoTo 0
    
    With Application
        
.ScreenUpdating False
        
.Calculation xlCalculationManual
        
.EnableEvents False
    End With

    Set con 
VBA.CreateObject("adodb.Connection")
    
Set RS VBA.CreateObject("adodb.Recordset")
    
con.Open "provider=microsoft.ace.oledb.12.0;data source=" _
    ThisWorkbook
.FullName ";extended properties=""Excel 12.0;hdr=no"""
    
Range("P4:R" Rows.Count).ClearContents
    Set RS 
VBA.CreateObject("adodb.Recordset")
sorgu "select f8,f5,f13 from [Tek_Liste$] where (f8) & (f5) in (select distinct (f8) & max(f5) from [Tek_Liste$]  WHERE F4 = '" Range("P2") & "' AND F11 IS NOT NULL group by f8)  order by f8"
    
RS.Open sorgucon
    Range
("P4").CopyFromRecordset RS
    sorgu 
""
    
Range("p2") = Range("p2")
    
With Application
        
.ScreenUpdating True
        
.Calculation xlCalculationAutomatic
        
.EnableEvents True
    End With
    
    Range
("P1").Select

    MsgBox 
"İşleminiz Tamamlanmıştır. " Chr(10) & Chr(10) & _
           
"İşlem süresi ; " Format((Timer Zaman) / 60"fixed") & " Saniye"vbInformation"Tamamlandı"
   
End Sub
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 541
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: En yakın tarih ve fiyatı tek listele

İleti#10)  Bedrettin DEMİRCİ » 11 Haz 2019 16:33

Bu kod hata veriyor
exceli kapatmadan da düzelmiyor
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1643
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: En yakın tarih ve fiyatı tek listele

İleti#11)  Feyzullah » 11 Haz 2019 16:36

Ben dosyanızın son halini yükleyim o zaman
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 541
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: En yakın tarih ve fiyatı tek listele

İleti#12)  Feyzullah » 11 Haz 2019 16:40

Ekte
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 541
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: En yakın tarih ve fiyatı tek listele

İleti#13)  Bedrettin DEMİRCİ » 11 Haz 2019 17:03

Feyzullah yazdı:Ekte



Teşekkür ederim Mete bey. elinize sağlık
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1643
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: En yakın tarih ve fiyatı tek listele

İleti#14)  Feyzullah » 11 Haz 2019 17:05

Sorunun çözüldüğüne sevindim.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 541
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: En yakın tarih ve fiyatı tek listele

İleti#15)  Bedrettin DEMİRCİ » 12 Haz 2019 11:01

Mete Bey
normal satır sayısı birkaçbin hatta daha fazla olduğu için kod çalışmasını bitiremiyor
çok uzun olarak görüyor
kısa yani 400 satır falan olduğu zaman çok güzel çalışıyor
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1643
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: En yakın tarih ve fiyatı tek listele

İleti#16)  Ali ÖZ » 12 Haz 2019 12:34

Bedrettin bey,
Aşağıdaki link ile mükerrer konu mu ?

viewtopic.php?f=4&t=33376&p=242481#p242481
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9786
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot] ve 2 misafir

Bumerang - Yazarkafe