Új hozzászólás Aktív témák

• #33572 daddy9 tag

  Új Válasz 2017-01-04 00:27:37 #33572

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  daddy9

  tag

  Sziasztok!

  Abban kérném a segítségeteket, hogy az alábbi makrót szeretném úgy átalakítani, hogy ne a B1:B60 cellákat írja ki egy txt fájlba, hanem csak addig, amíg van is tartalom a B oszlopban, ami jellemzően a B50 és B60 közé esik. Működik így is, csak van a txt fájlom végén egy rakás felesleges sortörés azokban az esetekben, amikor pl a B50-ig van tartalom.

  Sub Makro()
Dim iCntr As Long
Open "test.txt" For Output As #1
For iCntr = 1 To 60
Print #1, Range("B" & iCntr)
Next iCntr
Close #1
End Sub

  Segítségeteket előre is nagyon köszönöm!

Új hozzászólás Aktív témák