anoniem Geplaatst: 21 februari 2006 Delen Geplaatst: 21 februari 2006 Ik heb het volgend stuk source wat ervoor zorgt dat uit het bestand DataFile.xls de bijbehorende data wordt overgezet naar OutputFile.xls. Momenteel laat ik het stuk code (onder Output_1) herhalen met aangepast waarden (vet gedrukt). Dus B1 wordt C1 en B3 wordt C3, etc. Wat ik nu graag wil hebben is dat deze cyclus automatisch herhaald wordt tot aan de laatste ingevulde cell van de eerste rij. Hoe krijg ik dit voor elkaar? [code:1:63ecd5fc01] Sub DataOutput() 'Screen Update Application.ScreenUpdating = False 'Output_1 Dim FilterCriteria FilterCriteria = Range("[b]B1[/b]") Windows("DataFile.xls").Activate Selection.AutoFilter Field:=1, Criteria1:=FilterCriteria Selection.AutoFilter Field:=3, Criteria1:="base" Range("R1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("OutputFile.xls").Activate Range("[b]B3[/b]").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Screen Update Application.ScreenUpdating = True End Sub [/code:1:63ecd5fc01] Quote Link naar reactie
anoniem Geplaatst: 21 februari 2006 Auteur Delen Geplaatst: 21 februari 2006 Ik denk dat ik het een en ander al bijna voor elkaar heb. Ik blijf momenteel alleen met de volgende uitdaging zitten. Het gaat over het volgende stukje source: [code:1:ea8ec28d0a] Dim FilterCriteria FilterCriteria = Range("B1") [/code:1:ea8ec28d0a] Iemand die weet hoe ik het voor elkaar krijg dat de Range "opgehoogd" wordt naar C1, D1, etc. tot aan het einde van de rij? Quote Link naar reactie
anoniem Geplaatst: 22 februari 2006 Auteur Delen Geplaatst: 22 februari 2006 [url=http://www.ozgrid.com/VBA/ExcelRanges.htm]Misschien heb je hier wat aan.[/url] Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen