TXT uzantılı dosyadan işaretli verileri aktarma

[ferdinand]

Arkadaşlar merhaba, size bir sorum var, çözüm sunanlara çok teşekkür ederim..

Ekte gördüğünüz TXT uzantılı dosyada bulunan bilgilerden sadece son satırında * işaretli olanları tek bir excel sayfasına satır satır nasıl yazdırabilirim?

TXT dosyasında örnek olarak bir kaç satır yazdım..Ama gerçek TXT dosyasındaki verilerim sayı olarak 3000-5000 veri arasında.

Teşekkürler..

 

[Orion1]

Merhaba.
Ben şöyle denedim oldu.
Txt dosyasını sayfaya sürükleyip bırakın.
sonra metni sütunlara dönüştürün.
veriler A sütunundan H sütununa kadar dizilecekleridir.
Sonra benim verdiğim kodları çalıştırın.
H sütununda * işaretli satırlar silinecektir.
Sonra dosyayı farklı kaydet yaparak .xls uzantılı olarak istediğiniz bir klasöre farklı kaydedin.
İşlemi yapmadan önce orjinal txt dosyanızın bir yedeğini alın ve yedek üzerinde çalışın.

Kolay gelsin.

Kodlar aşağıdadır.

Sub txt_duzelt()
sonsat = Cells(65536, "A").End(xlUp).Row
For i = sonsat To 1 Step -1
    If Cells(i, "H").Value = "*" Then
        Rows(i).Delete (xlUp)
    End If
Next
MsgBox "İşlem sona erdi"
End Sub

 

[Orion1]

Merhaba.
Yanlış anlamışım * işaretliler silinecek diye anlamışım * işaretlerinin dışındakile silinecekmiş.
Kodları aşağıdaki şekilde değiştirdim.
İşlemi yapmadan önce orjinal txt dosyanızın bir yedeğini alın ve yedek üzerinde çalışın.

Kodlar aşağıdadır.

Sub txt_duzelt()
sonsat = Cells(65536, "A").End(xlUp).Row
For i = sonsat To 1 Step -1
    If Cells(i, "H").Value <> "*" Then
        Rows(i).Delete (xlUp)
    End If
Next
MsgBox "&#304;&#351;lem sona erdi"
End Sub

 

[Necdet]

Merhaba,

Sayın Sezar sorunuzu yanıtlamış, alternatif olması açısından :

Sayın Sezar'ın önerisiyle Excele aldığınız dosyayı kolonlara ayırdıktan sonra,

• H Sütunu Seçilir
• F5 (Git, Düzen - Git, Ctrl+G)
• Özel
• Sabitler (sadece * olan hücreler seçilir, diğerleri boş olduğu için)
• Fare Sağ Tık ve Satır
• Tamam

ve H sütünunda * olan satırlar silinecektir.

 

[Orion1]

Merhaba,

Sayın Sezar sorunuzu yanıtlamış, alternatif olması açısından :

Sayın Sezar'ın önerisiyle Excele aldığınız dosyayı kolonlara ayırdıktan sonra,

• H Sütunu Seçilir
• F5 (Git, Düzen - Git, Ctrl+G)
• Özel
• Sabitler (sadece * olan hücreler seçilir, diğerleri boş olduğu için)
• Fare Sağ Tık ve Satır
• Tamam

ve H sütünunda * olan satırlar silinecektir.

Sayı Hocam iyi akşamlar.
Arkdaş * olmayanları silmek istiyor.

 

[Necdet]

Valla Sayın Sezar,

Sizin yanıtı okuyunca benimde kafam karıştı farketmez Sabitleri değil boşlukları seçince işlem doğru sonucu verir.

Goley yani, bu F5 tuşu nelere kadir

 

[ferdinand]

Arkadaşlar çok teşekkür ederim.Aklıma takılan olursa yine sorarım.