• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

txt den excele veri çekişinde sorun

N

numan şamil

Destek Ekibi
Destek Ekibi
Katılım
27 Ocak 2011
Mesajlar
1,238
Excel Vers. ve Dili
Ofis 2013 Türkçe
Merhaba arkadaşlar
ekli dosyada örnekte olduğu gibi
txt dosyalarından excele veri çekiyorum
örnekte txtden aktar adlı dosyada aktar sayfasına ait kodlar küçük bir sorun haricinde tam istediğim gibi çalışıyor
Sorunum
kodlarda
örneğin
TXT dosyasında
37119409 değerlerini çekmek için
aranan(1) = "/ACE5": yazmam gerekiyor
arananın bir alt satırdaki bilgileri alıyor
oysa
aranan(1) = ""C.70.1":
yazıldığında
37119409 veriyi çekmesini istiyorum
(Kısaca
aranan(1) = "C.70.1": aranan(2) = "1.8.0": aranan(3) = "1.8.1":
aranan(4) = "1.8.2": aranan(5) = "1.8.3": aranan(6) = "5.8.0":
aranan(7) = "8.8.0": aranan(8) = "1.6.0":
şeklinde yazıldığında
ekli dosyadaki excel dosyasına yazılı şekliye kodların gelmesini istiyorum)
bunu düzeltmek için kodlarda ne gibi değişiklik yapılmalıdır
ilgilenen arkadaşlara teşekkür ederim
Not:Kodlar halit3 hocama aittir
 

Ekli dosyalar

Son düzenleme:
x firması.txt 37119409 1.2.121 18.136 18.135 1.005 8.55 1.387 2.003

If Mid(aranan2(i + 1), n, Len(aranan(m))) = aranan(m) Then
Genişletmek için tıkla ...
 
Son düzenleme:
snx111' Alıntı:
x firması.txt 37119409 1.2.121 18.136 18.135 1.005 8.55 1.387 2.003
Genişletmek için tıkla ...

Hocam çok teşekkür ederim
o sorun sayenizde çözüldü
Hocam sonradan farkına vardım
x firması txt arınan kriter yoksa excelde o verinin geleceği hücreyi boş bıraksa veya sıfır yazabilirmi?
aranan kriter olmadığı zaman exceldeki hücreye bir sonraki kritere ait veriyi getiriyor

örn:x firması txt de
aranan(1) = "C.70.1": yoksa
excel dosyasındaki C2 hücresi ya boş kalsın veya "0" yazsın olabilirmi?
 
Son düzenleme:
yeterince inceledinizmi veriler dogrumu Hiç incelemeden bir ayar çektim makroya o kadar .. bunu belirteyim..
aranan(1) = "C.70.1": yoksa hepten boş kalır öyle yapabilirim ?

Başlık tutmuyorsa geride kalanın bir anlamı var mı ?
 
snx111' Alıntı:
yeterince inceledinizmi veriler dogrumu Hiç incelemeden bir ayar çektim makroya o kadar .. bunu belirteyim..
aranan(1) = "C.70.1": yoksa hepten boş kalır öyle yapabilirim ?

Başlık tutmuyorsa geride kalanın bir anlamı var mı ?
Genişletmek için tıkla ...

Veriler doğru geliyor
aranan(1) = "C.70.1": yoksa hepten boş kalması mevcut halinden iyidir
Burda önemli olan arananların belirtildiği şekilde excel dosyasındaki hücrelere gelmesi
Siz dediğiniz şekilde yaparsanız belki dahada geliştirme imkanı olabilir
 
Sayfaya kalıcı formül eklemek gerekiyor sonra uğraşabilirm
 
Teşekkür ederim
cevabınızı sabırsızlıkla bekleyeceğim
 
Dosyanın son hali ektedir
5. mesajda belirttiğim gibi
kopyası x firması txt den çekilen verilerde excel dosyasında C2 ve F2 hücrelerine gelecek olan veriler olmadığı için boş veya "0" yazmalıdır
ilgilenenler için teşekkürler
 

Ekli dosyalar

ilk soruya verdiğim cevaptaki +1 olayını silince ikinci txt dosyasını görmüyor normalinde nasılsıdı :S ??
makro satır bazında işlem yapmıyor txtden satır silmekle işlemde sıralama değiştirmiyor zor bir problem ..
Cells(sat, m + 2).Value = yer
 
Son düzenleme:
snx111' Alıntı:
ilk soruya verdiğim cevaptaki +1 olayını silince ikinci txt dosyasını görmüyor normalinde nasılsıdı :S ??
makro satır bazında işlem yapmıyor txtden satır silmekle işlemde sıralama değiştirmiyor zor bir problem ..
Cells(sat, m + 2).Value = yer
Genişletmek için tıkla ...

Evet işin içinden çıkamadım
inşallah bir çıkan bulunur
 
Bu kodu bir dene
Aslında çok karışık bunlar bazen kafamda duruyor inşallah olmuştur.
 

Ekli dosyalar

Merhaba hocam
Malesef olmadı
Ekli dosyadatxt dosyaların (örnekteki) durumuna göre excelde hangi hücreye ne gelmesi gerektiğini manuel yazdım
Kısaca aranan veri txt dosyasında yoksa excel dosyasında olmayan verinin geleceği yerin boş kalması veya "0" yazması gerekiyor diğer gelen veri tarafından o hücrenin doldurulmaması gerekiyor sutun kayması olmayacak
inşallah anlatabilmişimdir
 

Ekli dosyalar

numan şamil' Alıntı:
Merhaba hocam
Malesef olmadı
Ekli dosyadatxt dosyaların (örnekteki) durumuna göre excelde hangi hücreye ne gelmesi gerektiğini manuel yazdım
Kısaca aranan veri txt dosyasında yoksa excel dosyasında olmayan verinin geleceği yerin boş kalması veya "0" yazması gerekiyor diğer gelen veri tarafından o hücrenin doldurulmaması gerekiyor sutun kayması olmayacak
inşallah anlatabilmişimdir
Genişletmek için tıkla ...


Manuel olarak yazmış olduğun veriler TXT1 klasöründeki text nesnelerinin içindeki verilerle uyumsuz.

yani manuel olarak yazdığınız verilerin bazıları text dosyalarında yok
 
12 nolu mesajdaki kodu güncelledim.
 
Merhaba halit hocam
Kusura bakma bir hata yapmışım daha önce eklediğim txt dosyasını yanlış eklemişim

Şimdi eklediğimi txt dosyası doğrusu ve orjinali ile bire bir örtüşüyor
Ekli dosyada eski ve yeni excel dosyalarından eskisinde eski kodlar (bu kodlarda yine size ait) yeni excel dosyasında yeni kodlarınız var
Benim istediğim
Eski exceldosyasındaki kodlar gibi veri getirecek (getirdiği veriler doğru)
burda sadece z firması txt dosyasındaki gibi bazı veriler yok olan dosyalarım var
Böyle durumlarda manuel girdiğim gibi gelmesini istiyorum.(sadece z firmasına ait gelecek verileri ve yerlerini el ile girdim)

Yeni kodlar bunu yapıyor fakat yanlış verileri getiriyor(excel dosyasındaki yerlerine doğru getiror fakat gelen veriler yanlış oluyor)
Yani txt de olmayan verilerin geleceği yerleri excel dosyasında boş bırakacak şekide eski kodlara adapte yapabilirmisiniz
Bir daha baka bilirmisiniz
Not: Kodlarda aranan kriterleri "aranan(2) = "1.8.0*": "şeklinde yazabiliyorum
çünkü "aranan(2) = "1.8.0*50": " Burdaki "50" her ay değişiyor
 

Ekli dosyalar

Son düzenleme:
Degerli kardesim hayirli geceler. sorunuza cep telefondan mesaj yazdigim icin linki kopyalayamiyorum. fakat az once bir arkadasimizin sorusunu yanitladim microsoft queryi ile veri cekmek. benim yanitladigim konulara bi baksaniz o konu icin yazdigim seyler aynen sizin icinde gecerli. bir kac tusla kapali bircak veri kaynagindan veri almayi ilgilendiriyor. insallah sizin isinizi gorecektir. selam ve dua ile
 
talebeyim' Alıntı:
Degerli kardesim hayirli geceler. sorunuza cep telefondan mesaj yazdigim icin linki kopyalayamiyorum. fakat az once bir arkadasimizin sorusunu yanitladim microsoft queryi ile veri cekmek. benim yanitladigim konulara bi baksaniz o konu icin yazdigim seyler aynen sizin icinde gecerli. bir kac tusla kapali bircak veri kaynagindan veri almayi ilgilendiriyor. insallah sizin isinizi gorecektir. selam ve dua ile
Genişletmek için tıkla ...

Kardeşim verdiğiniz bilgiler için çok teşekkür ederim
Daha önce microsoft queryi bilgisayarıma eklemiştim kafamca denemeler yaptım başarılı olamamıştım bu konuda Sayın Halit hocam imdadıma yetişti birçok işimi onun yazdığı kodları referans olarak hallediyorum Kodların bu haliyle birsürü işimi hallediyor Allahondan ve yardımsever arkadaşlardan Razı olsun
Son bir sorun kaldı bu konuda halit hocamın cevabını bekliyorum
Sizin önerinizi zaman buldukça inceleyeceğim
İyi çalışmalar
 
İnşallah Halit hocam bu sorunumu çözecektir
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst