Seçili Alanı TXT. Olarak Kaydetmek

[mancubus]

rica ederim. işlerinizde kolaylıklar dilerim.

 

[Tevfik_Kursun]

Çok teşekkür ederim, içten dileklerinize aynen katılıyorum

 

[bydogannn67]

Ü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

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]

Baştaki if satırını siliniz ve With Selection satırını With Range("A3:B30") olarak değiştiriniz.

 

[alkocnecati]

Merhabalar, Sayın @veyselemre , Sayın @Haluk .
Aşağıdaki gibi mi mesela?
Yoksa daha pratik bir yolu mu var?

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