Seçilen hücreleri text dosyasına aktarma  Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
Sub Secili_Bolgeyi_Text_Dosyasi_Olarak_Kaydet()
    'Bu işlem, seçtiğiniz bölgeyi D sürücüsünün içerisinde bir text dosyası olarak kaydeder.
    Call ExportRange(Selection, "D:\text_dosyasi.txt", ",")
End Sub

Function ExportRange(WhatRange As Range, Where As String, Delimiter As String) As String
 
 
 
Dim HoldRow As Long    'test for new row variable
 
    HoldRow = WhatRange.Row
 
 
 
Dim c As Range    'loop through range variable
 
 
 
For Each c In WhatRange
 
    If HoldRow <> c.Row Then
 
        'add linebreak and remove extra delimeter
 
ExportRange = Left(ExportRange, Len(ExportRange) - 1) & vbCrLf & c.Text & Delimiter
 
        HoldRow = c.Row
 
    Else
 
        ExportRange = ExportRange & c.Text & Delimiter
 
    End If
 
Next c
 
 
 
'Trim extra delimiter
 
ExportRange = Left(ExportRange, Len(ExportRange) - 1)
 
 
 
'Kill the file if it already exists
 
If Len(Dir(Where)) > 0 Then
 
    Kill Where
 
End If
 
 
 
Open Where For Append As #1    'write the new file
 
Print #1, ExportRange
 
Close #1
 
 
 
End Function

Benzer Sonuçlar
No	Makro Adı
1	Seçilen hücreleri text dosyasına aktarma
2	Seçilen bölgedeki hücrelere rassal sayıları değer olarak atamak
3	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
4	word sayfası olarak çıktı almak
5	Seçilen hücrenin açıklamasına ekleme yapmak
6	userformda resim önzileme
7	30 excel dosyası içinde bir kelime aratma
8	Bir klasördeki Excel dosyalarının isimlerini listeleyerek daha sonra onlara link vermek
9	Hücreler birleştirildiğinde satır genişliğini otomatik olarak yeniden boyutlandırmak
10	Seçili alanda kaç tane formül olduğunu bul ve formül içeren tüm hücreleri seç
11	hücre değerini açiklamaya ekleme
12	excel sayfasında yazılanları texte çevirmek
13	Hücreye ait olan açıklamayı yeniden boyutlandırmak
14	seçili hücreleri emaille gönderir
15	Seçilen bölgedeki bütün yazıları küçük harfe çevirmek
16	Seçilen bölgedeki bütün yazıları büyük harfe çevirmek
17	Dosyayı kim açtı 2
18	dosyayı kim açtı
19	forma otomatik resim getirme
20	aynı makroyla birden çok sayfaya kayıt yapmak

Benzer Sonuçlar

Makro Adı

Seçilen hücreleri text dosyasına aktarma

Seçilen bölgedeki hücrelere rassal sayıları değer olarak atamak

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

word sayfası olarak çıktı almak

Seçilen hücrenin açıklamasına ekleme yapmak

userformda resim önzileme

30 excel dosyası içinde bir kelime aratma

Bir klasördeki Excel dosyalarının isimlerini listeleyerek daha sonra onlara link vermek

Hücreler birleştirildiğinde satır genişliğini otomatik olarak yeniden boyutlandırmak

Seçili alanda kaç tane formül olduğunu bul ve formül içeren tüm hücreleri seç