EXCEL/VBA: drie verschillende loop...do`s combineren tot 1
Beste
In onderstaande code wordt gezocht naar offset posities tov Narrative. Deze worden ook netjes onder elkaar geschreven in sheet 2.
Nu heb ik nog 2 identieke macro`s die in hetzelfde document zoeken naar de termen "floc"en "date" en die worden ook naar sheet 2 gekopieerd.
Ik zou ze graag combineren tot 1 macro, maar ik snap niet hoe.
Daarnaast krijg ik het ook niet voor elkaar om de loop te stoppen, zodra hij het document van boven tot beneden heeft doorzocht.
Heeft iemand een idee hoe verder te komen?
Alvast bedankt
Beste
In onderstaande code wordt gezocht naar offset posities tov Narrative. Deze worden ook netjes onder elkaar geschreven in sheet 2.
Nu heb ik nog 2 identieke macro`s die in hetzelfde document zoeken naar de termen "floc"en "date" en die worden ook naar sheet 2 gekopieerd.
Ik zou ze graag combineren tot 1 macro, maar ik snap niet hoe.
Daarnaast krijg ik het ook niet voor elkaar om de loop te stoppen, zodra hij het document van boven tot beneden heeft doorzocht.
Heeft iemand een idee hoe verder te komen?
Alvast bedankt
Code:
Sub narrative()
'
' narrative Macro
'
' Sneltoets: CTRL+y
'
Cells.Find(What:="narrative", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("Blad2").Select
Cells.Range("A1").Activate
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Blad1").Select
Do
Cells.findnext(After:=ActiveCell).Activate
ActiveCell.Offset(1, 2).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Blad2").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Blad1").Select
Loop
End Sub
Laatst bewerkt: