een stukje code opknappen maar hoe...

[assessor]

VBA is nooit mijn sterkste punt geweest en wat ik vandaag leer ben ik morgen weer vergeten (zal de leeftijd zijn :d)

Na veel gepuzzel heb ik onderstaande werkend maar dit moet ik toch korter kunnen noteren???

Alle hulp is welkom.

Sub FindTotals()
Dim Totals As Range
Dim offsetCell As Range

With Sheets("_MHRS")
Set Totals = .Cells.Find(what:="Others")
Set offsetCell = Totals.Offset(1, 0)
    
With Sheets("_CALC")
    Range("A31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 0)
    Range("B31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 1)
    Range("C31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 2)
    Range("D31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 3)
    Range("E31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 4)
    Range("F31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 5)
    Range("G31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 6)
    Range("H31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 7)
    Range("I31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 8)
    Range("J31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 9)
    Range("K31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 10)
    Range("L31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 11)
    Range("M31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 12)
    Range("N31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 13)
    Range("O31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 14)
    Range("P31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 15)
    Range("Q31").Select
    ActiveCell.FormulaR1C1 = Totals.Offset(1, 16)
End With
End With
End Sub

 

[edmoor]

Probeer het eens zo:

With Sheets("_CALC")
    For i = 1 To 16
        .Cells(31, i).Value = Totals.Offset(1, i - 1)
    Next i
End With

 

[VenA]

Zonde lusje

Sheets("_CALC").Range("A31").Resize(, 17) = Totals.Offset(1).Resize(, 17).Value

 

[edmoor]

Nog beter :thumb:

 

[assessor]

en het is zo makkelijk niet?... als jet het weet. :shocked:

edmoor, VenA hartelijk dank voor de snelle service, ik kan weer verder. :thumb: