vba ile ekleme ??

[gokdag]

İlk önce satırda ve hücrede olmayan birşeyi vba ile ekleyebilirmiyim

ekleyeceğim şey bu (-------------------)

ilk önce ekleyeceğim şeyi göndersin sonra "b1" dekini göndersin txt dosyasına


Sub a()

Open "C:\" & Range("A1") & ".txt" For Append As #1

Print #1, _
[b1]; " ;"; [c1]; " ;"; [d1]; " ;"; [e1]; " ;"; [f1]; " ;"; [g1]; " ;"; [h1]; " ;"; [I2]
Close #1

End Sub

 

[uzmanamele]

merhaba
aşağıdaki şekilde denermisiniz

Sub a()

Open "C:\" & Range("A1") & ".txt" For Append As #1

Print #1, _
"ekleyeceğiniz metin";" ;"; [b1]; " ;"; [c1]; " ;"; [d1]; " ;"; [e1]; " ;"; [f1]; " ;"; [g1]; " ;"; [h1]; " ;"; [I2]
Close #1

End Sub

 

[gokdag]

Güzel buda işimi görür.. Ama benim istediğim şey text dosyasına ekleyeceğim metini koysun onun alt satırına "B1" hücresindekini getirsin

 

[gokdag]

text dosyasına ekleyeceğim metini koysun onun alt satırına "B1" hücresindekini getirsin