Notepad'den Excel'e

[RocKhan]

Herkese selamlar, çok basit olarak hazırlanmış bir notepad dosyasındaki bilgileri excele attığım zaman bazı hücreler yanlış yere ekleniyor, bunu nasıl düzeltebilirim.

Excele ekleyince böyle oluyor, ama isim ve soyisim yan yana olmalı, tarih ise hiç görünmüyor.

İsim ve soyisim A hücresinde, Tarih B, fiyat bilgisi C'de nasıl ayarlayabilirim, forumda aradım ama notepadden excele şeklinde aratınca buna benzer bir konu göremedim, yardımcı olursanız çok sevinirim.

 

[ASLAN7410]

Merhaba kendim sizin sayfanız gibi deneme yaptım ancak bende normal yapıştırdı, excel sayfasında C sütununu biraz açtığında tarih görünüyor, birleştir formülü ile isim ve soyisimi birleştirebilirsin. Birleştirme formülü =A1&" "&B1

 

[RocKhan]

''Birleştir ve ortala'' ya da ''Hücreleri birleştir'e'' tıklayınca soy isim kısmı siliniyor hocam, formülü nereye girmem lazım? Excel bende sıfır

 

[Ömer BARAN]

Birleştirme formülünüzü ( =A1&" "&B1 gibi bir formül olabilir) sağda boş bir sütunda 1'inci satıra uygulayıp aşağı doğru tablonun sonuna kadar kopyalayın.

Sonra formülü yazdığınız hücreleri seçip ->kopyala->A1 hücresini seç->özel yapıştır->değerleri şeklinde işlemi tamamlayın.
Sonra da formül yazmış olduğunuz sütun ve soyadı sütununu silebilirsiniz.
En sonunda da en üste bir satır ilave edip başlık satırı olarak kullanabilirsiniz.

 

[RocKhan]

Bunu kopyalayıp yapıştırmaya çalışıyorum bu sefer de "&B1 kısmını ikinci hücreye kaydediyor.

Text dosyasından kopyala yapıştır yapınca görüntü bu, isim kısmını fotoda göstermedim, onlar yanyana doğru çıkıyor ama bu sefer de tarih ve fiyat değerleri karışık yerlerde.

 

[ASLAN7410]

Dosya yükleme sitelerinden bir örnek dosya yükleyebilir misiniz?

 

[Ömer BARAN]

Notepad içeriğini kopyalayıp excele aldığınızda VERİ menüsündeki METNİ SÜTÜNLARA DÖNÜŞTÜR uygulamasını denediniz mi acaba?

 

[RocKhan]

Metni sutunlara dönüştür deyince ''microsoft excel bir anda yalnızca bir sütunu değiştirebilir diye uyarı çıkıyor, tek sütun seçinde de tarih ve fiyatları alakasız hücrelere kaydırıyor.

 

[RocKhan]

Örnek text dosyası, yalnız bendeki görüntü en üst fotodaki gibi düzenli, buraya yükleyince yine karıştı.

https://drive.google.com/file/d/0B9N023ftO5OOaDNfSlZEVWNoYnc/view?usp=sharing

 

[ASLAN7410]

Merhaba dosyanıza baktım, isim ve soyisim ile tarih arası ya tab ile ilerleme yada ara çubuğu ile ilerleme yapılmış, bu boşluklar silinip tab ile ayarlama yapıldıktan sonra kopyalayıp excel sayfasına yapıştırınca normale dönüyor.

 

[ASLAN7410]

Ayrıca text dosyası içerisinde Ctrl+H yapın, ilk satıra bir boşluk verin, sonra tümünü değiştiri tıklayınca çoğu boşlukları siliyor, düzelmeyenleride kendiniz düzeltilip kopyalama yapabilirsiniz.

 

[halit3]

makro ile çözüm isterseniz kod

Sub dosya_ac_penceresi()
Dim j As Long, i As Long, deg As String, sat As Long, deg2, k As Byte
Dim dosya, yol

yol = ThisWorkbook.Path

With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.InitialFileName = yol
.Show

For j = 1 To .SelectedItems.Count
dosya = .SelectedItems(j)

Range("A1:aa65536").Clear

Application.ScreenUpdating = False
Open (dosya) For Input As #1
Do While Not EOF(1)
    Line Input #1, deg
    
     deg = WorksheetFunction.Trim(deg)
    
    sat = sat + 1
    deg2 = Split(deg, vbTab)
    k = 0
    For i = 0 To UBound(deg2)
    If deg2(i) <> "" And WorksheetFunction.Trim(deg2(i)) <> "" Then

        k = k + 1
        If k = 3 Then
        Cells(sat, k).Value = Mid(deg2(i), 1, Len(deg2(i)) - 3) * 1
        Else
        Cells(sat, k).Value = deg2(i)
        End If
        End If
    Next i
Loop
Close #1
Application.ScreenUpdating = True
MsgBox "veri.txt dosyasından veriler alınmıştır.", vbOKOnly + vbInformation, "uyarı"


Next j
End With

End Sub

veya

Sub dosya_ac_penceresi()
Dim j As Long, i As Long, deg As String, sat As Long, deg2, k As Byte
Dim dosya, yol

yol = ThisWorkbook.Path

With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.InitialFileName = yol
.Show

For j = 1 To .SelectedItems.Count
dosya = .SelectedItems(j)

Range("A1:aa65536").Clear

Application.ScreenUpdating = False
Open (dosya) For Input As #1
Do While Not EOF(1)
    Line Input #1, deg

     deg = WorksheetFunction.Trim(deg)
    
    sat = sat + 1
    deg2 = Split(deg, vbTab)
    k = 0
    For i = 0 To UBound(deg2)
    If deg2(i) <> "" And WorksheetFunction.Trim(deg2(i)) <> "" Then

        k = k + 1
        Cells(sat, k).Value = deg2(i)
        End If
    Next i
Loop
Close #1
Application.ScreenUpdating = True
MsgBox "veri.txt dosyasından veriler alınmıştır.", vbOKOnly + vbInformation, "uyarı"


Next j
End With

End Sub

 

[RocKhan]

Notepad içinde ctrl+ha yapınca ''Değiştir'' diye bir ekran çıkıyor orada da ''Aranan-sonrakini bul ve yeni değer-değiştir'' diye bir ekran çıkıyor.

makroları da nereye nasıl yapıştırıcam onu da bilmiyorum, excel bilgim hiç yok.

neyse artık gerek kalmadı, tüm dosyaları en baştan excel içinden yazmaya başladım, yardımlarınız için teşekkürler.