Denden işareti sorunu

[cengiz123]

systran hocam,
elinize sağlık. yalnız şöyle bir sorun var.
text dosyasının içine atınca aralarda ve en son satırdan sonra 3-4 satır boşluklar bırakıyor.

 

[systran]

mümkünse elinizdeki örnek veriler ile birlikte dosyayı paylaşın.
A1 den E sütunu kullanılan son satırına kadar olan aralıkta boş hücreler var galiba,
benim denemelerimde hücrelerin hepsinde veri olunca sıkıntı olmuyor,
son satırdan sonra da alta boşluk atmıyor.

 

[cengiz123]

Evet dediğiniz gibi bazı satırlarda hücrelerin bazıları boş.
Sanırım hata buradan kaynaklıyor

 

[systran]

#20 nolu mesajdaki kodu düzelttim, boş hücreleri atlar.

 

[cengiz123]

Çok teşekkürler systran hocam.
Dediğiniz gibi çalışıyor. Yalnız kodların hepsi a sütununda.
B ve ce delileri dr sola yaslamış

 

[hasan1818]

şu kodları dener misin? bu sefer oldu sanki. Sayfayı farklı kaydetmek yerine aşağıdaki kodları çalıştır.
C:\test.txt dosyasına yazar.
A sütununda son kullanılan satıra kadar yazar.

Sub deneme2()

Dim fso As Object
Dim rng As Range
Dim cellValue As Variant, i As Integer
Dim strPath As String
strPath = "C:\test.txt"

Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Set oFile = fso.CreateTextFile(strPath)
For i = 1 To Sayfa1.Range("A10000").End(xlUp).Row
    oFile.WriteLine Sayfa1.Range("A" & i).Value
Next i
oFile.Close
Set fso = Nothing
Set oFile = Nothing

End Sub

Hocam Merhaba bu kod A sütununun belli bir kısmını alıyor ben a1 ile a200463 arasını almak istiyorum nasıl yapabilirim ?

 

[systran]

for döngüsünü şöyle değiştirin.

For i = 1 To 200463
    oFile.WriteLine Sayfa1.Range("A" & i).Value
Next i