Macro en weeknummer

[jolly01]

Onderstaande code plakt het bereik F4:HA9 daar waar ik eerst zelf ergens een cel van een regel selecteer.

Sub plak()
 Cells(ActiveCell.Row, 6).Resize(6, 204).Value = Range("F4:HA9").Value
End Sub

In de bijlage geeft cel I2 aan dat we in week 24 leven. Dus selecteer ik op een maandag ergens in de regel waarin in kolom D voor de eerste keer het getal 24 verschijnt. (deze week is dat regel 180) Dan activeer ik de macro.

Is er een mogelijkheid dat code zelf naar cel I2 kijkt en dan zelf automatisch de juiste regel zoekt en vervolgens F4:HA9 daarin plakt?

 

[HSV]

Sub plak()
Dim c As Range
 Set c = Columns(4).Find(Range("I2"), , xlValues, xlWhole)
 If Not c Is Nothing Then
   c.Offset(, 2).Resize(6, 204) = Range("F4:HA9").Value
   Else
  MsgBox "weeknummer niet gevonden in kolom D "
 End If
End Sub

 

[jolly01]

Superbedankt voor jouw code HSV !

Nu kan ik hiermee ook afzonderlijke dagen plakken evt.