vba buton

[gokdag]

Bunun gibi yaklaşık 50 tane var bunları ben tek tek çalıştırıyorum bunların hepsini tek tuşla çalıştırabilirmiyim acaba ???




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

Sub b()

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

Print #1, _
[b3]; " ;"; [c3]; " ;"; [d3]; " ;"; [e3]; " ;"; [f3]; " ;"; [g3]; " ;"; [h3]; " ;"; [I4]
Close #1

End Sub

 

[Orion1]

Aşağıdaki gibi uygulayınız.

sub a()

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

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

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

Print #1, _
[b3]; " ;"; [c3]; " ;"; [d3]; " ;"; [e3]; " ;"; [f3]; " ;"; [g3]; " ;"; [h3]; " ;"; [I4]
Close #1

End Sub

 

[gokdag]

teşekkürler

 

[Orion1]

teşekkürler

Rica ederim.
İyi çalışmalar.