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
ö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