- Katılım
- 2 May 2024
- Mesajlar
- 21
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
| Depodan =>Şube-1 ye | Depodan=> Şube-2 ye | Depodan =>Şube-3 ye | Depodan=> Şube-4 ye |
| 86920242222 .97 | 86920242222 .98 | 86920242222 .99 | 86920242222 .100 |
| 86920242222 .23 | 86920242222 .98 | 86920242222 .99 | 86920242222 .100 |
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
