Seçili Alanı TXT. Olarak Kaydetmek

mancubus

Destek Ekibi
Destek Ekibi
Katılım
6 Ocak 2010
Mesajlar
2,224
Excel Vers. ve Dili
İŞ: 2021 Win Eng
rica ederim. işlerinizde kolaylıklar dilerim.
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,793
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Altın Üyelik Bitiş Tarihi
12-02-2029
Çok teşekkür ederim, içten dileklerinize aynen katılıyorum
 

bydogannn67

Altın Üye
Katılım
6 Ocak 2016
Mesajlar
220
Excel Vers. ve Dili
2010 türkçe
Altın Üyelik Bitiş Tarihi
03-09-2029
Üstadlarım kolay gelsın

aşağıdaki kod secili alanı txt yapmakta, alan sabir olsa yanı A3:B30 arası olsa kodda nasıl bir revize yapabılırz

Kod:
Sub TXT_Kaydet()
If Selection.Count = 1 Then Exit Sub
Dim sat As Integer, sut As Integer, metin As String
Open ThisWorkbook.Path & "\" & "TEKDÜZEN AKTİF_" & Format(Date, "dd mm yyyy") & "-" & Format(Time, "hh_mm_ss") & ".TXT" For Output As #1
    With Selection
        For sat = 1 To .Rows.Count
            For sut = 1 To .Columns.Count
                If sut = 1 Then metin = .Cells(sat, sut)
                If sut > 1 Then metin = metin & vbTab & .Cells(sat, sut)
            Next: Print #1, metin: metin = Empty
        Next sat
    Close #1
    End With: MsgBox "Bitti"
End Sub
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,334
Excel Vers. ve Dili
2007 Türkçe
Baştaki if satırını siliniz ve With Selection satırını With Range("A3:B30") olarak değiştiriniz.
 
Katılım
27 Aralık 2022
Mesajlar
1
Excel Vers. ve Dili
2016 türkçe
Merhabalar, Sayın @veyselemre , Sayın @Haluk .
Aşağıdaki gibi mi mesela?
Yoksa daha pratik bir yolu mu var?
CSS:
Sub SECILI_ALANI_TXT()
If Selection.Count = 1 Then Exit Sub
With Application
    dosya = .InputBox("TXT belge için isim giriniz!..")
    If dosya = False Then
        MsgBox "İşlemi iptal ettiniz.", vbInformation, "..:: Ömer BARAN ::.."
        Exit Sub
    Else: isim = dosya
    End If
        Selection.Copy: Sheets.Add After:=ActiveSheet: ActiveSheet.Paste
        ActiveWorkbook.SaveAs Filename:=isim, FileFormat:=xlText
        .ScreenUpdating = False: .DisplayAlerts = False
        ActiveWindow.SelectedSheets.Delete
        .DisplayAlerts = True: .ScreenUpdating = True
End With: MsgBox "BİTTİ"
End Sub

merhabalar öncelikle teşekkürler çok faydalı olmuş. Bu kodu bir sütunda bulunan değerlere göre otomatik kaydetme işlemine nasıl çevirebilirz? A sütununda 100 tane veri var. Bunların sıralarını değiştirerek 50 tane txt dosyasına kaydetmek istiyorum. Kaydedilecek klasörü ve dosya isimlerini 1-50 olacak şekilde nasıl yapabilirim? Tablo oluşturduğum için sanırım txt dosyasına A1 hücresinde bulunan değeri de alıyor. üst bilgiyi iptal edemedim https://we.tl/t-XuhagETe5w
 
Son düzenleme:
Üst