Çözüldü Sütunlardaki İçeriği Metne Çevirme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

muratsahin025

Yıllık Forum Üyesi
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Depodan =>Şube-1 yeDepodan=> Şube-2 yeDepodan =>Şube-3 yeDepodan=> Şube-4 ye
86920242222 .9786920242222 .9886920242222 .9986920242222 .100
86920242222 .2386920242222 .9886920242222 .9986920242222 .100
İyi akşamlar dilerim.Öncelikle Ömer Hocam Ve Exceldepo nickli hocama çok teşekkür ederim.Açtığım konu çözüldüğü için cevap yazamadım..Ömer Hocam alternatif olarak çözdüğünüz dosyayıda gönderebilirseniz alternatif öğrenme adına memnun olurum..
Buradaki sorum ise Sütün başlıklarına göre ayrı ayrı text dosyası oluşturabilmek ..Örnek çıktı olarak
Text Dosyasının adı: Depodan Şube1
Text Dosyanın içeriği:86920242222 .97
86920242222 .23
bu şekilde devam edecektir.
Araştırmam sonucu böyle bir kod buldum Ancak Aynı SATIRI text dosyasının içersine aktarmaktadır.Bunu Sutun olarak değiştiremedim..
Sub test()
For i = 2 To Cells(Rows.Count, 1).End(3).Row
son = Cells(i, Columns.Count).End(xlToLeft).Column
metin = Join(Application.Index(Cells(i, 2).Resize(, son - 2).Value, 0), vbTab)
fName = "C:\Users\murat\Desktop\deneme\" & Cells(i, "A").Value & ".txt"
Open fName For Output As #1
Print #1, metin
Close #1
Next i
End Sub
 
Örnek belge üzerinden sorulmayan ya da
yapısı birbirinden farklı örnek belgelerin olduğu sorulara cevap yazmayı pek tercih etmiyorum.

Verdiğim cevapları da hep ilk örnek belge ve ilk açıklamalara göre hazırlarım. Bir kez emek - zaman harcanmasından yanayım.
Diğer konuya bu nedenle örnek belge eklemedim.

VBA olayı ile ilgilendiğiniz anlaşılıyor.
TXT oluşturma ile ilgili bu konuyla ilgili önerim VBA ekranında;
-- VIEW menüsünden LOCALS seçeneğini etkinleştirmeniz,
-- ardından da kodu F8 tuşuna basarak adım adım çalıştırmanız,
-- bu aşamada da SATIR için mi yoksa SÜTUN için mi değer ataması yapıldığını
LOCALS alanındaki değişkenlerin aldıkları değerlere bakarak takip etmeniz yönünde olacak.

Bence bunu çözersiniz.
İPUCU: Biri sütun, diğeri satır için olmak üzere iki döngü oluşturmak gerekmez mi?
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst