gevulde cellen in een kolom kopieren naar een txt bestand

[dralex]

Ik zou graag willen dat als ik een knop in druk dat (via vba) er een txt bestand wordt gemaakt met in de naam de datum van vandaag en dat hij alle gevulde cellen onder kolom K kopieerd en opslaat in de txt bestand.

kan iemand mij hier op weg helpen?

 

[Roncancio]

Zet onderstaande code in de VBE (CTRL-R - Invoegen Module).
Maak een knop aan en verwijs naar de macro.

Sub Schrijven()
Dim rCel As Range
Dim rBereik As Range
    Range("A:K").AutoFilter 11, "<>"
    Set rBereik = Range("K1:K" & Range("K" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
    Open "C:\" & Date & ".txt" For Append As #1
    For Each rCel In rBereik
        Print #1, rCel.Value
    Next
    Close #1
End Sub

Met vriendelijke groet,


Roncancio

 

[dralex]

weet je ook toevallig hoe ik na deze actie de filters weer weg krijg?

 

[Warme bakkertje]

Range("A:K").AutoFilterMode = False

 

[dralex]

je kan ook Selection.AutoFilter gebruiken.
Maar bedankt nu ga ik beginnen op het afhankelijker te maken van selectie (nieuwe uitdaging meer flex.) en naam gebruiken van een veld.

 

[snb]

Het kan ook zo:

sub snb()
  createobject("scripting.filesystemobject").createtextfile("G:\OF\voorbeeld.txt").write join(application.transpose(columns(11).specialcells(2)),"|") 
end sub

 

[dralex]

weet je ook misschien dat je kan filtere op een waarde wat in een specifiek cel staat? dus niet leeg "<>" maar cel A1

 

[dralex]

Opgelost iedereeen bedankt