vba kod ???

[gokdag]

daha önce bu formdan bulduğum vba kodunu değiştirmek istiyorum

örnek a1-a70 arasını text dosyası olarak kaydetsin istiyorum ama tek tek yazmak uzun sürer bunun gibi bir kaç dosya var.


Sub QQQQ()
Open "C:\Veri\" & Range("D1") For Output As #1
' eğer önceki verilerin silinmesini istiyorsak "For Append As #1" yerine "For Output As #1" formülünü giriyoruz
Print #1, Range("A19")
Print #1, Range("A20")
Print #1, Range("A21")
Print #1, Range("A22")
Print #1, Range("A23")
Print #1, Range("A24")
Print #1, Range("A25")
Print #1, Range("A26")
Print #1, Range("A27")
Print #1, Range("A28")
Print #1, Range("A29")

Close #1
End Sub

 

[Recep İpek]

Sub QQQQ()
Open "C:\Veri\" & Range("D1") For Output As #1
' eğer önceki verilerin silinmesini istiyorsak "For Append As #1" yerine "For Output As #1" formülünü giriyoruz
For i = 19 To 29
Print #1, Cells(i, "a").Value
Next i
Close #1
MsgBox "Bitti"
End Sub

olarak deneyiniz.