Macro en afzonderlijke cellen

[jolly01]

Sub Week()
Dim c As Range
 Set c = Columns(5).Find(Range("B2"), , xlValues, xlWhole)
 If Not c Is Nothing Then
   c.Offset(, 5).Resize(1, 1) = Range("J377").Value
   
   Else
  MsgBox "Week niet gevonden in kolom E "
 End If


End Sub

De macro zoekt in kolom E het weeknummer en plaatst dan de inhoud van cel J377 in de regel waar dit weeknummer voorkomt. Nou wil ik dat de macro óók de cellen O377 en T377 op dezelfde manier behandeld.

Iemand een idee hoe de code er dan uitziet?

 

[jolly01]

Sub Week()
Dim c As Range
 Set c = Columns(5).Find(Range("B2"), , xlValues, xlWhole)
 If Not c Is Nothing Then
   c.Offset(, 5).Resize(1, 1) = Range("J377").Value
   c.Offset(, 10).Resize(1, 1) = Range("O377").Value
   c.Offset(, 15).Resize(1, 1) = Range("T377").Value
   Else
  MsgBox "Week niet gevonden in kolom E "
 End If
End Sub

Dit werkt goed.

 

[Warme bakkertje]

Maar dit volstaat.

Sub Week()
    On Error GoTo Error_Handling
    With Columns(5).Find(Range("B2"), , xlValues, xlWhole)
      .Offset(, 5) = Range("J3").Value
      .Offset(, 10) = Range("O3").Value
      .Offset(, 15) = Range("T3").Value
    End With: Exit sub
Error_Handling:
    MsgBox "Week niet gevonden in kolom E "
End Sub

 

[jolly01]

@Warme bakkertje
Krijg jouw code niet werkend in de bijlage. Geen foutmelding maar ik zie geen activiteit.

Sub Week()
    On Error GoTo Error_Handling
    With Columns(5).Find(Range("B2"), , xlValues, xlWhole)
      .Offset(, 5) = Range("J3").Value
      .Offset(, 10) = Range("O3").Value
      .Offset(, 15) = Range("T3").Value
    End With: Exit sub
Error_Handling:
    MsgBox "Week niet gevonden in kolom E "
End Sub

 

[Warme bakkertje]

Sub Week()
    On Error GoTo Error_Handling
    With Columns(5).Find(Range("B2"), , xlValues, xlWhole)
      .Offset(, 5) = Range("J3[COLOR="#FF0000"]77[/COLOR]").Value
      .Offset(, 10) = Range("O3[COLOR="#FF0000"]77[/COLOR]").Value
      .Offset(, 15) = Range("T3[COLOR="#FF0000"]77[/COLOR]").Value
    End With: Exit sub
Error_Handling:
    MsgBox "Week niet gevonden in kolom E "
End Sub

Ik had de getallen aangepast om te testen (te lui om te scrollen ) en vergeten terug te zetten

 

[jolly01]

Heb jouw code overgenomen, bedankt voor de verfijning !