abracadaver909
Gebruiker
- Lid geworden
- 12 mrt 2011
- Berichten
- 94
Beste helpmij-ers,
Ik ben bezig aan een macro en die moet er voor zorgen dat een vooraf ingestelde rselectie wordt gekopieerd naar een ander worksheet.
De positie van waar het terecht moet komen wordt bepaald door een celwaarde. Als de macro deze celwaarde terugvindt in rij 4 van sheet1 of sheet2, dan wordt de gekopiëerde selectie 5 cellen onder de cel van de gevonden waarde geplakt in de sheet waar dit gevonden is.
Het stukje code wat ik tot nu toe heb ziet er als volgt uit (vergeef me voor de omslachtigheid, ben nog noob!)
Ik heb heel wat zitten rommelen en zit nu echt vast.
Heeft iemand voor mij een passende oplossing of aanwijzing?
Bij voorbaat dank,
Chris
Ik ben bezig aan een macro en die moet er voor zorgen dat een vooraf ingestelde rselectie wordt gekopieerd naar een ander worksheet.
De positie van waar het terecht moet komen wordt bepaald door een celwaarde. Als de macro deze celwaarde terugvindt in rij 4 van sheet1 of sheet2, dan wordt de gekopiëerde selectie 5 cellen onder de cel van de gevonden waarde geplakt in de sheet waar dit gevonden is.
Het stukje code wat ik tot nu toe heb ziet er als volgt uit (vergeef me voor de omslachtigheid, ben nog noob!)
Code:
Sub copyCyclus()
Dim bezetCyclus As Range
Sheets("eerste helft").Range("F4:GD4").Select
Set cell = Selection.Find(What:=Cells(2, 3).Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If cell Is Nothing Then
'do it something
Else
bezetCyclus = Sheets("Cyclus")("C3:H30").Select
bezetCyclus.Copy
Range(cell).Offset(5, 0).Select
ActiveSheet.Paste
End If
Ik heb heel wat zitten rommelen en zit nu echt vast.
Heeft iemand voor mij een passende oplossing of aanwijzing?
Bij voorbaat dank,
Chris