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

[canigdeli]

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

 

[Cengiz Demir]

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.

 

[canigdeli]

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

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.

 

[metin_0606]

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.

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.

Sayfanızı Cengiz Beyin dediği gibi yaptıktan sonra Bunu Deneyiniz

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

 

[Cengiz Demir]

Rica ederim.

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]

Sayfanızı Cengiz Beyin dediği gibi yaptıktan sonra Bunu Deneyiniz

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 bey denedim ancak olmadı
güncel data ve hata sayfasının linki paylaşıyorum

excel data.xlsx

drive.google.com

 

[metin_0606]

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

excel data.xlsx

drive.google.com

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

 

[Haluk]

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

Desktop.rar

drive.google.com

.

 

[canigdeli]

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

Desktop.rar

drive.google.com

.

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ı

 

[Haluk]

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....

.

 

[canigdeli]

O kısım olmaz çünkü, Text dosyanızda Türkçe karakterlerde problem var. (İ, Ş .... gibi harflerde)

.

sadece istasyon no getirse istasyon adını almasa da olur Haluk Bey

 

[canigdeli]

Say

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

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?

 

[metin_0606]

Say


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?

Yani istasyon no ve isminidemi çekmek istiyorsunuz

 

[canigdeli]

Yani istasyon no ve isminidemi çekmek istiyorsunuz

evet veriyi sadece istasyon no bazında sekmelere ayırmak istiyorum. Her sekmede ayrı istasyona ait tarih ve ortalama sıcaklık verisi olacak

 

[Haluk]

Ekli alternatife bakın, çalışması 10 dak. falan sürer herhalde .... ben tam test etmedim.

Test_ADO_Text_Schema_3.rar

drive.google.com

.

 

[metin_0606]

evet veriyi sadece istasyon no bazında sekmelere ayırmak istiyorum. Her sekmede ayrı istasyona ait tarih ve ortalama sıcaklık verisi olacak

PC başında değilim geçince paylaşırım calismayi

 

[metin_0606]

evet veriyi sadece istasyon no bazında sekmelere ayırmak istiyorum. Her sekmede ayrı istasyona ait tarih ve ortalama sıcaklık verisi olacak

Dosya Linkte

İndir excel data

Dosyayı indir excel data

dosya.co

 

[canigdeli]

d

Ekli alternatife bakın, çalışması 10 dak. falan sürer herhalde .... ben tam test etmedim.

Test_ADO_Text_Schema_3.rar

drive.google.com

.

Denyorum Haluk Bey

 

[canigdeli]

Dosya Linkte

İndir excel data

Dosyayı indir excel data

dosya.co

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

 

[metin_0606]

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

İstediğinizi şimdi anladım birazdan paylaşırım