veri bulma

[kardelen79]

benimm konu biraz geri de kaldı 30 dk bi bakıyorum ama ya arkadaşlar denk gelmedi

 

[kardelen79]

EN SON HALİ

 

[kardelen79]

TEK SAYFADA kısmına işlem yapacagız

 

[Orion1]

Dosyanız ektedir.

Sub csvdosyayukle59()
Dim ilktar As Date, sontar As Date, tar As Date, sat As Long, deg As String, x
Dim a As String, k As Range, j As Integer, sonsat As Long
Range("B6:AME" & Rows.Count).ClearContents
ilktar = Range("AMH1").Value
sontar = Range("AMH2").Value
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
sat = 5
Application.ScreenUpdating = False
For j = 6 To sonsat
    If Dir(ThisWorkbook.Path & "\" & Cells(j, "A").Value & ".csv") <> "" Then
        Open (ThisWorkbook.Path & "\" & Cells(j, "A").Value & ".csv") For Input As #1
        Do While Not EOF(1)
            Line Input #1, a
            x = Split(a, ";")
            deg = x(0)
            tar = DateSerial(Left(deg, 4), Mid(deg, 5, 2), Right(deg, 2))
            If tar >= ilktar And tar <= sontar Then
                Set k = Range("B5:AME5").Find(deg, , xlValues, xlWhole)
                Cells(j, k.Column).Value = CDbl(x(4))
                'Cells(sat, "B").Value = CDbl(x(1))
                'Cells(sat, "C").Value = CDbl(x(2))
                'Cells(sat, "D").Value = CDbl(x(3))
                'Cells(sat, "E").Value = CDbl(x(4))
                'Cells(sat, "F").Value = CDbl(x(5))
                'sat = sat + 1
            End If
            'deg = ""
        Loop
        Close #1
    End If
Next
Application.ScreenUpdating = True
MsgBox "işlem bitti"
End Sub

 

[kardelen79]

birde abim en son yolladığım dosya üzerinde yapsanız
43 yollamış olduğum mesaj kutusunda

 

[kardelen79]

o işlemi ise tek sayfada arama isimli sayfayı yapacagız

 

[Orion1]

birde abim en son yolladığım dosya üzerinde yapsanız
43 yollamış olduğum mesaj kutusunda

Bu dosyamı.

 

[kardelen79]

evet abim onun yanındaki sayfaya işlem yapacaz

 

[Orion1]

evet abim onun yanındaki sayfaya işlem yapacaz

O sayfanın yanında sayfa yok.Bir tane sayfa var.

 

[kardelen79]

eyvah abim sayfalar çogalınca kafam karıştı hemen atıyorum abi

 

[kardelen79]

abim konuda çıkıyor abim

 

[kardelen79]

saat 18,52 yollamışım
sayfa adı tek sayfada arama

 

[Orion1]

Bu nasıl tarih.
Hem tarih diyorsunuz hemde tarih dışında şeyler yazarsanız,bu iş bitmez. 86.07.2019 böyle bir tarih yok.

 

[kardelen79]

abi onları düzeltecem ben yarın oralara yeni veri ekleyeceğimden çoğalttım boş yer olsun diye sağa sürükleyince tarih formatında olmadığı için öyle çıktı sen o son satırin abi 31.12.2019 olarak düzeltiver ben arasındaki tarihleri elle düzeltecem yedek sütun olsun diye çoğalttım

 

[kardelen79]

bir de olursa abi ekranı tarih bölümlerin olduğu yere sabitlersen çok mükemmel olur

 

[Orion1]

Bu 400 dosyanın hepsimi tarihe göre gelecek 2nci sayfaya?

 

[Orion1]

Dosya ektedir.

 

[kardelen79]

Abi tıklaya bastığımda veriler gidiyo
Tarihleri girince o iki tarih arasındaki sütunlar gözükmesini istiyorum
Birde imkan olursa abim tarihler bölümü ana ekran gibi durmasını istiyorum daha olmassa yüksek veya düşük fiyat kismindan böleriz sağa doğru cekeriz

 

[Orion1]

Abi tıklaya bastığımda veriler gidiyo
Tarihleri girince o iki tarih arasındaki sütunlar gözükmesini istiyorum
Birde imkan olursa abim tarihler bölümü ana ekran gibi durmasını istiyorum daha olmassa yüksek veya düşük fiyat kismindan böleriz sağa doğru cekeriz

Tıklaya bastığında AMH1 ve AMH2 de bulunan tarihler arasında verileri getiriyor.ZP sütunu ve ondan sonraki sütunlara uyan verileri getiriuoyor.

 

[kardelen79]

Abim olmuyor