• DİKKAT

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

Soru txt dosyasını excele çevirme/verileri hücrelere bölme hk yardım

C

canigdeli

Katılım
10 Ekim 2010
Mesajlar
27
Excel Vers. ve Dili
ingilizce
Merhaba,
Ekteki linkte (Link 1) göreceğiniz bir dosyam var bunu excele alıp ''text to columns'' işlevini kullanıyorum ama datayı sağlıklı ayıramıyorum.

Yapmak istediğim şeyler: (Link 2)
Excele alıp sütunlara ayırmak
istasyon bazında sekmelere ayırmak (Sekmelerde tarih (gün.ay.yil) ve ortalama sıcaklık değeri olmalı sadece 2 sütun)
Sekmelere istasyon ve istasyon adı yazmak

Link 1 : txt dosyası
Link 2: Yapılmak istenen
 
Sütünları düzgün ayırabilmeniz için; text to colums işlemi yaparken, ayrıcı olarak diğeri seçip; " | " karekterini kutucuğa kopyalayın.
Verileriniz düzgün olarak sütunlara ayrılmış olacak.
(Kendi textlerinizin içinden kopyalayıp yapıştırın. Foruma yapıştırdığımın formatı bozulmuş olabilir.)
Ayrıca ortalama sıcaklık sütununun fomatını da metin olarak seçin.
Genel formatında kalınca bazı rakamları tarih gibi algılayıp tarihe çevirebiliyor.
Metinler kodlama yaparken sayıya tekrar dönüştürülebilinir.

Sekmelere paylaştırma ve diğer işlemler için makro kodlamak lazım. Vakti olan bir üstad belki yardımcı olabilir.


219194
 
cengizdemir72' Alıntı:
Sütünları düzgün ayırabilmeniz için; text to colums işlemi yaparken, ayrıcı olarak diğeri seçip; " | " karekterini kutucuğa kopyalayın.
Verileriniz düzgün olarak sütunlara ayrılmış olacak.
(Kendi textlerinizin içinden kopyalayıp yapıştırın. Foruma yapıştırdığımın formatı bozulmuş olabilir.)
Ayrıca ortalama sıcaklık sütununun fomatını da metin olarak seçin.
Genel formatında kalınca bazı rakamları tarih gibi algılayıp tarihe çevirebiliyor.
Metinler kodlama yaparken sayıya tekrar dönüştürülebilinir.

Sekmelere paylaştırma ve diğer işlemler için makro kodlamak lazım. Vakti olan bir üstad belki yardımcı olabilir.


Ekli dosyayı görüntüle 219194
Genişletmek için tıkla ...

Cengiz Bey teşekkürler bir aşama kaydetmiş oldum yönlendirmenizle. Sonrası için söylediğiniz gibi üstadlardan bir cevap gelirse sorum çözülmüş olacak.
 
canigdeli' Alıntı:
Cengiz Bey teşekkürler bir aşama kaydetmiş oldum yönlendirmenizle. Sonrası için söylediğiniz gibi üstadlardan bir cevap gelirse sorum çözülmüş olacak.
Genişletmek için tıkla ...
canigdeli' Alıntı:
Cengiz Bey teşekkürler bir aşama kaydetmiş oldum yönlendirmenizle. Sonrası için söylediğiniz gibi üstadlardan bir cevap gelirse sorum çözülmüş olacak.
Genişletmek için tıkla ...
Sayfanızı Cengiz Beyin dediği gibi yaptıktan sonra Bunu Deneyiniz
Kod: 
Sub deneme()
Dim syf1 As Worksheet
Dim syf2 As Worksheet
Dim son As Long
Dim i As Long
Set syf1 = Worksheets("Sayfa1")
Set syf2 = Worksheets("3-Günlük Ortalama Sıcaklık (°C)")
syf1.Range("A2:B500000").ClearContents
'On Error Resume Next
Application.ScreenUpdating = False
son = WorksheetFunction.CountA(syf2.Range("a:a")) + 1
sira = 0
a = syf2.Range("a1:f" & son)
ReDim b(1 To UBound(a), 1 To 6)

For i = 2 To UBound(a)
sira = sira + 1
b(sira, 1) = a(i, 5) & "." & a(i, 4) & "." & a(i, 3)
b(sira, 2) = a(i, 6)
Next
syf1.Range("a2").Resize(sira, 2) = b ' resize sayfa1 in sütun say?s?
Application.ScreenUpdating = True
MsgBox " İşlem Tamam"
 End Sub
 
metin_0606' Alıntı:
Sayfanızı Cengiz Beyin dediği gibi yaptıktan sonra Bunu Deneyiniz
Kod: 
Sub deneme()
Dim syf1 As Worksheet
Dim syf2 As Worksheet
Dim son As Long
Dim i As Long
Set syf1 = Worksheets("Sayfa1")
Set syf2 = Worksheets("3-Günlük Ortalama Sıcaklık (°C)")
syf1.Range("A2:B500000").ClearContents
'On Error Resume Next
Application.ScreenUpdating = False
son = WorksheetFunction.CountA(syf2.Range("a:a")) + 1
sira = 0
a = syf2.Range("a1:f" & son)
ReDim b(1 To UBound(a), 1 To 6)

For i = 2 To UBound(a)
sira = sira + 1
b(sira, 1) = a(i, 5) & "." & a(i, 4) & "." & a(i, 3)
b(sira, 2) = a(i, 6)
Next
syf1.Range("a2").Resize(sira, 2) = b ' resize sayfa1 in sütun say?s?
Application.ScreenUpdating = True
MsgBox " İşlem Tamam"
End Sub
Genişletmek için tıkla ...


Metin bey denedim ancak olmadı
güncel data ve hata sayfasının linki paylaşıyorum
drive.google.com

excel data.xlsx

drive.google.com drive.google.com
 
Alternatif olarak, ekli dosyaların hepsi aynı klasör içindeyken Excel dosyasını çalıştırın...

Desktop.rar

drive.google.com drive.google.com

.
 
Haluk' Alıntı:
Alternatif olarak, ekli dosyaların hepsi aynı klasör içindeyken Excel dosyasını çalıştırın...

Desktop.rar

drive.google.com drive.google.com

.
Genişletmek için tıkla ...

Haluk Bey teşekkürler.
Test isimli excel dosyasından Çalıştır butonuna bastığımıda klasör içindeki excel datamdaki veriyi Test exceline aldı
sonrasında istasyon bazında sekmelere ayırmam gerekiyor. Sekma adı istasyon adı ve no şeklinde olmalı. bu kısım olmadı
 
O kısım olmaz çünkü, Text dosyanızda Türkçe karakterlerde problem var. (İ, Ş .... gibi harflerde)

Text dosyasının encoding'ini bulabilirsem, hallederim....

.
 
Say
metin_0606' Alıntı:
Veri sayınız 500 bin civarı olduğu için tamamını yükleyemiyorum paylaşmış olduğum çalışmayı asıl çalışmanızda uygulayınız
DOSYA LİNKİ:

İndir excel data

Dosyayı indir excel data
dosya.co
Genişletmek için tıkla ...

Sayfa2 ye tarih ve sıcaklık verisini çekti metin Bey ancak ham datadan istasyon no bazında sekmelere ayırmak istiyorum bunu yapabilir misiniz?
 
canigdeli' Alıntı:
Metin Bey sayfa2 istediğimiz 3 veriyi uygun hale getirdi bunun yanı sıra istasyon no bazında sekmelere ayırmak istiyorum. Her sekmede ayrı istasyona ait tarih ve ortalama sıcaklık verisi olacak
Yardımınızı rica ederim
Genişletmek için tıkla ...
İstediğinizi şimdi anladım birazdan paylaşırım
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst