veri bulma

[kardelen79]

400 tane excel dosyası var arkadaşlar bu sayfaların hepsinin ayrı bir ismi var içlerinde ise standart veriler var sütun ve satır sayıları aynı veriler değişik
benim istediğim normal bir sayfadan o excel dosyasının ismini yazarak içindeki satır ve sütunu seçerek o verileri çekebilir miyim
daha önceden aynı kitap üzerinden düşeyara formuyle yapıyordum bunu şimdi ise 400 tane farklı dosyadan o satırdaki ve sütundaki verileri çekebilir miyim inşallah olur

 

[Orion1]

İndis ve kaçıncı formüllerini birlikte kullanarak o sayfadan verileri çekebilirsiniz.

 

[kardelen79]

abi bir örnek formul yazsan bir ana dosya olacak ve 400 adet ise farklı dosya var ben ana kitap dosya ismini yazdığımda o 400 dosya içerisinden o dosyayı bulacak ve istediğim sütunda verileri getirecek mesela tarihsel veriler var o dosyalarda

 

[Orion1]

Ana dosyayı ve diğer dosyayı örnek olacak şekilde yüklerseniz,olabilir.

 

[Orion1]

Ekli dosya size örnek olabilir.

 

[kardelen79]

Abim ben siz üçtane dosya atayım onlara göre yapabilirseniz

 

[Orion1]

Abim ben siz üçtane dosya atayım onlara göre yapabilirseniz

Nereye attınız?

 

[kardelen79]

abim atamadım uzantısımı olmadı anlayamadım 4 dosya hazırladımdı

 

[kardelen79]

İptal et
1 DOSYA.csv
Yüklenen dosya izin verilen uzantıları kapsamıyor.
böyle bir uyarı alıyorum abi

 

[Orion1]

Csv uzantılı dosya olduğu için yüklemiyor.Siz excel dosyası demiştiniz.

 

[kardelen79]

az önceki formatta yollamadıydı abim şimdi formulü ana sayfaya yapcagız diğerleri veri alacağım dosya bir de tarih olayı var

 

[kardelen79]

csv dosyalarında veri çekebilir miyiz abi ana sayfaya

 

[Orion1]

Orjinalları csv ise başka işlem yapmak lazım.

 

[Orion1]

Eğer orjinalleri csv ise winrar ile sıkıştırıp yollayınız.

 

[kardelen79]

evet abi orjinalleri csv bunlarıda kayıt tuşuna bastığımda en yeni sürümde kaydetmek istermisin diye sordu ve bende evet deyin ce bu şekilde oldu dosyalar ama benim 400 dosyada bu csv den malesef

 

[kardelen79]

orjinali yollayayım abim

 

[kardelen79]

sanırım bu şekilde mi abim

 

[kardelen79]

birde tarih problemi işte bu dosyalardaydı abim sabah ki sorum bunlar içindi dosyalara helen tarihler bu şekilde geliyor

 

[Orion1]

Buyurun.Dosya ismini a1 hücresine doğru yazın.

Sub csvdosyayukle59()
Dim ilktar As Date, sontar As Date, tar As Date, sat As Long, deg As String, x
Dim a As String
Range("A4:F" & Rows.Count).ClearContents
ilktar = Range("B3").Value
sontar = Range("E3").Value
sat = 5
Open (ThisWorkbook.Path & "\" & Range("A1").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
        Cells(sat, "A").Value = x(0)
        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
Loop
Close #1
MsgBox "işlem bitti"
End Sub

 

[kardelen79]

abim kusura bakma artık