Geslecteerde rijen van excel naar txt file kopieren.

[Thys12]

Beste,

Ik ben nieuw op dit forum en ik heb nog niet veel ervaring met vba in excel.
Ik heb al gezocht naar een antwoord , maar heb het helaas niet kunnen terug vinden.
Mijn excuses als er toch al een antwoord zou zijn.

Mijn vraag is de volgende:
Ik wil in excel rijen selecteren en deze kopieren naar een txt-bestand.

Deze rijen moeten wel aan volgende criteria voldoen:
In kollom I moet het woord "Melamine" (celO3)staan;
In kollom G moet het getal 18 (celP3)staan.

In het programma heb ik het volgende al:
Dim k As Integer
On Error Resume Next
k = 1
For k = 3 To 1000
If ActiveSheet.Range("I" & k).Value = ActiveSheet.Range("O3") And ActiveSheet.Range("G" & k).Value = ActiveSheet.Range("P3") Then
ActiveSheet.Range("B" & k).EntireRow.Select
Selection.Font.Bold = True
Selection.Copy

End If

Next k


Ik heb al geprobeerd met een gewone copy en paste maar dan neemt hij alleen de laatst geselecteerde.

Enig idee hoe ik dit best zou aanpakken?En zodat ik ook eventueel een naam kan geven aan het txt-bestand?

Alvast bedankt

grt

 

[Hoornvan]

Thys12,

Ik heb geen verstand van kopieren naar een txt-bestand.
Wel zie ik in je code dat je Selection.Copy gebruikt maar niet waar hij het moet plaatsen.

ActiveSheet.Range("B" & k).EntireRow.Copy
'code voor plakken

Je zou de macro recorder kunnen gebruiken en dan later de code aanpassen.
Hij schrijft namelijk alle handelingen die je doet op, dus al die code heb je niet echt nodig.

Suc6

 

[Thys12]

Bedankt voor de reactie,

Hebt u anders enig idee hoe ik deze kan kopieren naar een ander tabblad?
Want als ik dus de rijen selecteer met de gewenste zoektermen via vba , kopieert hij alleen de laatst geselecteerde.

bedankt

 

[Hoornvan]

Thys12,

Met deze code verplaatst hij eenpaar cellen van Blad1 naar Blad2

Sub Verplaatsen()
    Sheets("Blad1").[D4:D5,F4:F5].Copy [Blad2!E5]
End Sub

Misschien kun je hier wat mee?

 

[Warme bakkertje]

Bekijk en test de bijlage eens. Breng eventueel eerst de nodige wijzigingen aan betreffende het juiste pad om op te slaan.

 

[Thys12]

Hartelijk bedankt,

het werkt zeer goed!

grt