Tevfik_Kursun
Altın Üye
- Katılım
- 30 Temmuz 2012
- Mesajlar
- 3,781
- Excel Vers. ve Dili
- Office 2016 Pro - Türkçe 64 Bit
- Altın Üyelik Bitiş Tarihi
- 12-02-2029
Merhaba Arkadaşlar,
I11 den itibaren I sütununda olan verileri J1 deki isimle txt dosyası olarak kayıt etmek istiyorum. Kırmızı ile belirttiğim bölümü başaramadım, yardımcı olursanız sevinirim.
Saygılarımla
I11 den itibaren I sütununda olan verileri J1 deki isimle txt dosyası olarak kayıt etmek istiyorum. Kırmızı ile belirttiğim bölümü başaramadım, yardımcı olursanız sevinirim.
Saygılarımla
Kod:
Sub TxtBas()
Dim DosyaAdi As String
Dim Veri As String
isim = Range("J1").Value
DosyaAdi = "C:\Users\Administrator\Desktop\" & isim
Open DosyaAdi For Output As #1
Range("I11").Select
Range(Selection, Selection.End(xlDown)).Select
' Veri = [COLOR="Red"]Range(Selection, Selection.End(xlDown)).Select.Value[/COLOR]
Print #1, Veri
Close #1
End Sub