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
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