Benim kullandıgım excelde 10 tane hucre var
Bunların karakter sayılarının 11'i geçmesni istemiyorum ama hücre boşda olsa 2 karakterde olsa 11 Karakter kadar boşluk bırkmasını isitiyorum
Hücre1 hücre2
1100-1800 DO
Sub a()
Open "E:\" & Range("A2") & ".txt" For Append As #1
Print #1, _
[b1]; " ;"; [c1]; " ;"; [d1]; " ;"; [e1]; " ;"; [f1]; " ;"; [g1]; " ;"; [h1]; " ;"; [I2]
Close #1
böyle yapıp text dosyası diye kaydet diyorum
bana böyle bir sonuç veriyor
0800-1800_F ;0800-1800_F ;0800-1800_F ;0800-1800_F ;DO ;0800-1800_F ;DO ; 45
ben burda DO yazan yerlerinde 0800-1800_F boyutta olmasını istiyorum
0800-1800_F ;0800-1800_F ;0800-1800_F ;0800-1800_F ;DO ;0800-1800_F ;DO ; 45
Bunların karakter sayılarının 11'i geçmesni istemiyorum ama hücre boşda olsa 2 karakterde olsa 11 Karakter kadar boşluk bırkmasını isitiyorum
Hücre1 hücre2
1100-1800 DO
Sub a()
Open "E:\" & Range("A2") & ".txt" For Append As #1
Print #1, _
[b1]; " ;"; [c1]; " ;"; [d1]; " ;"; [e1]; " ;"; [f1]; " ;"; [g1]; " ;"; [h1]; " ;"; [I2]
Close #1
böyle yapıp text dosyası diye kaydet diyorum
bana böyle bir sonuç veriyor
0800-1800_F ;0800-1800_F ;0800-1800_F ;0800-1800_F ;DO ;0800-1800_F ;DO ; 45
ben burda DO yazan yerlerinde 0800-1800_F boyutta olmasını istiyorum
0800-1800_F ;0800-1800_F ;0800-1800_F ;0800-1800_F ;DO ;0800-1800_F ;DO ; 45