opslaan via macro

[geroda]

beste

hoe kan ik iets opslaan via een macro die de naam heeft van een cel
ook mag niet alles opgeslagen zijn alleen enkele cellen onder elkaar bv I1:I100 mogen maar opgeslagen zijn in een bestand.
dit bestand moet dan ook een txt bestand zijn

alvast bedankt

Tim

 

[jzeedijk]

Hoi Geroda,

Zoiets.
Bestand=Range("A1")
Open bestand for Output as #1
For i=1 to 100
Print #1, Cells(i,9) :'Cells(i,9) =Range(Ii) (i variabel)
Next i
Close #1

Jeroen

 

[geroda]

mja dat begint er op te lijken

msch voor nog te verduideleken
kheb 3 werkbladen in mijn excel bestand

bv blad 1 ,blad 2 ,blad 3
ik kan er voor zorgen dat hij gewoon blad 3 moet opslaan en niet een paar lijnen wat ik dus bedoel mcsh om te vergemakelijken is sheet blad 3 opslaan onder een txt bestand msch met deze macro
maar ik geraak er geen wijs uit geeft altijd een fout waneer ik deze wil toepassen

Sub SaveAs(Filename As String, [FileFormat], [Password], [WriteResPassword], [ReadOnlyRecommended], [CreateBackup], [AddToMru], [TextCodepage], [TextVisualLayout])

file name = ranga("A1")
fileformat = txt bestand
al de rest heb ik niet nodig kun je een voorbeeld geven met dit ingevult ??

alvast bedankt