txt olarak aktarılan satırın formatındaki sorun

[amelie]

Arkadaşlar merhaba! Ekte gönderdiğim dosyamda yine bir sorunla karlaştım ve çözemedim! Sorun şu ki, I sütununda bulunan Telefon numaralarının başına 0374 kodunu getirmek istiyorum.Bunun için Format-Custom ile yapıyı tamımlayıp ki bunu da ( 03740000000) olarak tanımladım..ancak dosyayı txt olarak kaydeden makroyu çalıştırdığımda txt dosyasına başalarına eklediğim 03742'leri aktarmıyor? bu konuda nerde hata yapıyorum fikri olan üstadlardan yardım taleb ediyorum.
İçten sevgi ve saygılarımla!
Kısaca örneklemek gerekirse tel sütunudaki 5952535 gibi olan bir satırın 03745952535 olarak txt dosyasına aktarılmasını istiyorum ancak başaramadım!

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

Sub Kaydet1()
baslik = Array("Adı", "Soyadı", "TC Kimlik No", "Cinsiyet", "Doğum Yeri", "Doğum Tarihi", "Adres", "Adres İl", "Telefon", "Baba Adı", "Anne Adı")
uz = Array(32, 32, 24, 9, 40, 12, 122, 11, 14, 32, 32)
fname = "c:\text.txt"
Open fname For Output As #1
For sut = 1 To 11
    veri = veri & esitle(baslik(sut - 1), uz(sut - 1))
Next sut
Print #1, veri

For sat = 2 To [a65536].End(3).Row
    
    If Cells(sat, 1) <> "" Then
        veri = ""
        For sut = 1 To 11
            If sut = 9 Then
                veri = veri & "0374 " & esitle(Cells(sat, sut), uz(sut - 1))
                Else
                veri = veri & esitle(Cells(sat, sut), uz(sut - 1))
            End If
        Next sut
        Print #1, veri
    End If
Next sat
Close #1
End Sub

 

[amelie]

Sayın Orion2 öncelikle cevabınız için çok teşekkrü ederim.
veri = veri & "0374 " & esitle(Cells(sat, sut), uz(sut - 1))
satırındaki "0374 " konumunu "0374" olarak değiştirdim ve aradaki boşluğu engelledim ancak aktarım sonucunda yani makro çalıştığında txt dosyasında
babaadı sütunundaki bilgilerden önce 4 karakterlik bir boşluk oluşmakta.yani tel kodları bitimi ile diğer sütun bilgileri areasındaki bu 4 karakterlik boşluk nasıl engellenebilir acabaş şimdi de bu noktada takıldım.
Desteğiniz için çok teşekkür ederim.
Saygılarımla.

 

[Seyit Tiken]

Rar'lı formatındaki dosyaları açamadığım için, anlatımlarınızdan yola çıkarak, basit bir örnek hazırladık. İzahatlarınızdan belirtiğiniz 5952535 gibi bir sayı dizinin sol tarafına 0374 rakamlarını birleştirmek. Aşağıdaki kod bu işlemi yapıyor. Kendinize uyarlayınız.

Sub Düğme1_Tıklat()
ActiveCell = "0 374" & ActiveCell.Value
End Sub

 

[Orion1]

Sayın Orion2 öncelikle cevabınız için çok teşekkrü ederim.
veri = veri & "0374 " & esitle(Cells(sat, sut), uz(sut - 1))
satırındaki "0374 " konumunu "0374" olarak değiştirdim ve aradaki boşluğu engelledim ancak aktarım sonucunda yani makro çalıştığında txt dosyasında
babaadı sütunundaki bilgilerden önce 4 karakterlik bir boşluk oluşmakta.yani tel kodları bitimi ile diğer sütun bilgileri areasındaki bu 4 karakterlik boşluk nasıl engellenebilir acabaş şimdi de bu noktada takıldım.
Desteğiniz için çok teşekkür ederim.
Saygılarımla.

Merhaba.
Aşağıdaki satırı ilgili yere yapıştırın.
Ancak Telefon numaraları arasında boşluk olmaması gerekir.Eğer boşluk olursa ne kadar boşluk varsa o kadar tel no eksik gözükür.

uz = Array(32, 32, 24, 9, 40, 12, 122, 11, 11, 32, 32)

 

[amelie]

Sayın Orion2 Değerli katkılarınızdan ötürü teşekkür ederim.
En içten Saygılarımla.

 

[Orion1]

Sayın Orion2 Değerli katkılarınızdan ötürü teşekkür ederim.
En içten Saygılarımla.

Rica ederim.
İyi çalışmalar.