X
xxrt
Misafir
Hücre Ãçindeki Harf veya Rakamların Karakter Sayıları
Bir Hücre İçine Txt Dosyasından Kopyalanıp Yapıştırılan değerlerin Boşluk Dahil Kaç Karakter sayısı olduğunu Bulmak istiyorum.Veya Pratikse eğer Txt Dosyasının İçindeki,diyelimki 1.Satırın Başından Sonuna Kadar Seçildiğinde bana O Seçimin karakter sayısı gerek..
Excelden Txt dosyasına Aktardığım Değerlerin (Belki 500,600 karakter)Karakter sayısı kontrolünde Kullanacağım..Aşağıdaki *565 sınırlaması var ama sonuç txt'de farklı çıkıyor/kabilir.Her satırı Saymak ve sağlıklı kayıt için bu gerekli..
Bir Hücre İçine Txt Dosyasından Kopyalanıp Yapıştırılan değerlerin Boşluk Dahil Kaç Karakter sayısı olduğunu Bulmak istiyorum.Veya Pratikse eğer Txt Dosyasının İçindeki,diyelimki 1.Satırın Başından Sonuna Kadar Seçildiğinde bana O Seçimin karakter sayısı gerek..
Excelden Txt dosyasına Aktardığım Değerlerin (Belki 500,600 karakter)Karakter sayısı kontrolünde Kullanacağım..Aşağıdaki *565 sınırlaması var ama sonuç txt'de farklı çıkıyor/kabilir.Her satırı Saymak ve sağlıklı kayıt için bu gerekli..
Kod:
Sub txt()
Dim LastRowA As Integer
Dim veri1 As String * 565
Dim i As Integer
Open "C:\xxrt\Deneme.txt" For Output As #1
LastRowA = Cells(65536, 1).End(xlUp).Row
For i = 1 To LastRowA
veri1 = Cells(i, 1).Text
Print #1, veri1
Next i
Close #1
End Sub