Metin/CSV'den

[eglacier61]

Merhaba arkadaşlar, hergün düzenli olarak kantarlardan bana metin dosyaları geliyor. bunları veri sekmesi kısmındaki Metin/CSV'den kısmından excele aktarıp veripleri tek bi tabloda tutuyorum. Veriler excele dönüştüğünde şöyle bi problem oluyor metinlerin ardında boşluk kalıyor. örneğin 0-5 olması gereken metini excele aldığında "0-5 " gibi yani yaklaşık 10 karakter boşluk kalıyor ardında. bunu nasıl boşluksuz alabilirim, hergün ctrl h dan sürekli değiştir yapmak da zor oluyor, teşekkür ederim şimdiden.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,

Sub Getir()
Dim sat As Long, a As String
        sat = 2
        Range("F14:F" & Rows.Count).ClearContents
            
            ChDir (ThisWorkbook.Path)
            Dosya = "Gelen.txt"
        
       Open Dosya For Input As #1
            Application.ScreenUpdating = False
                Do While Not EOF(1)
                    Line Input #1, a
                    a = RTrim(a)
                    Cells(sat, 6).Value = a
                    sat = sat + 1
                Loop
        Close #1
            Application.ScreenUpdating = True
End Sub

araya a = RTrim(a) satırı ekledim. Siz de kendinize uyarlayın.
İyi çalışmalar

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
araya a = Trim(a) satırını ekleseniz de olur.
İyi çalışmalar

 

[eglacier61]

tekrar merhaba, teşekkür ederim öncelikle. kod konularına çok hakim değilim, bunu verileri getirmeden önce mi yapmam gerekiyor getirdikten sonra mı, Gelen.txt dosyasının adını kendi dosyammı yapmam gerekiyor dosyanın nerede olması gerekiyor açıkcası pek anlamadığım için zahmet olmazsa size nasıl yapacağımı yazabilirmisiniz? tekrar çok teşekkür ederimm

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Dosyanızı açıp alt ve F11 tuşlarına birlikte basarsanız karşınıza resimdeki gibi bir ekran çıkar. Buna bakarak sadece a = Trim(a) bu satırı eklerseniz yeterli. Nereyi değiştireceğinizi bulamazsanız, ekran görüntüsünü gönderin mutlaka ben ya da arkadaşlarımızdan biri yardımcı olur. Başka yeri değiştirmeyiniz.
iyi çalışmalar

 

[eglacier61]

Merhabalar Arkadaşım,
dediğiniz gibi kodu çalıştırdım eklemeyide yaptım. çalıştırdığımda satırda ne kadar hücre varsa hepsini temizledi bu kod. sütun çekip deleteye basmış gibi oldu yani

 

[Tevfik_Kursun]

Yani, istediğiniz oldu mu? Güle güle kullanın
iyi çalışmalar

 

[eglacier61]

hayır malesef, tüm sütunu komple sildi

 

[Tevfik_Kursun]

Altın Üye'siniz arkadaşım örnek koysanız daha kolay olurdu
Yine de örnek koyun bakalım, şikayet etmekten daha kolaydır bence

 

[eglacier61]

Buyrun örnek ekte, şikayet etmedim estağfurullah kendimi ifade edemedim sanırım, kusura bakmayın.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Sizin işleminizi makro yardımıyla yaptığınızı sanmış ona göre cevap vermiştim. Siz dosyanızı manuel hazırlıyormuşsunuz. Gördüğüm kadarı ile sadece B sütununda eklenen boşluk var. İstediğiniz bu ise sorun yok, değilse lütfen haber verin yardımcı olalım.
İyi çalışmalar

 

[eglacier61]

Merhabalar
hayır makro ile çağırmıyorum, dediğim gibi verileri metin dosyasından çağırıp kopyalıyorum. normalde F sütununda idi, sizin makroyu kullanınca F sütununu komple sildi, F sutünunun dolu hali bu şekilde

 

[eglacier61]

makrodaki bütün 2 leri 7 yaptım, hücre biçiminide metin yaparak yaparak çalıştırdım işe yaradı, yardımınız için teşekkür ederim tekrar.

 

[Tevfik_Kursun]

Bir de bunu deneyin lütfen
iyi çalışmalar

 

[eglacier61]

Sub Duzenle()
Dim sat As Long, a As String, b As String, Son As Long
Application.ScreenUpdating = False
Son = Cells(Rows.Count, "A").End(3).Row

For x = 2 To Son
Cells(x, 7).Select
a = Cells(x, 7)
a = Trim(a)
Cells(x, 7).Value = a

Cells(x, 6).Select
b = Cells(x, 6)
b = Trim(b)
Cells(x, 6).Value = b
Next x
Application.ScreenUpdating = True
End Sub
2 yerine 7 yazarak tekrar düzenledim F hücresi için denedim çalıştı, bir hata yapmadım sizcede değil mi ?

 

[Tevfik_Kursun]

Cells(x, 7).Select G2 hücresine gider. Sizin datada B sütununda sağda 3 boşluk, F sütununda sağda 10 boşluk var. Ben cells(x,2) diyerek B sütunundakileri cells(x,6) diyerek F sütunundakileri temizledim. G sütununda zaten boşluk yoktu. Tabi siz bilirsiniz
iyi çalışmalar

 

[eglacier61]

her ikisinide eklediniz anladım, daha fazla istersemde altına o şekilde kopyalayarak yapabilirim o zaman. çok teşekkür ederim yardımlarınız için, iyi günler dilerim.

 

[Tevfik_Kursun]

Tabi ekleyebilirsiniz, rica ederim
iyi günler