Snasui Excel Forum

Code: Select all

Dim rAll As Range, r As Range

Set CodeRange = Worksheets("data_Approvebudget").Range("E:E")
With Worksheets("Approve_budget")
    Set rAll = .Range("c39", .Range("c" & .Rows.Count).End(xlUp))
End With
Set FillCodeRange = Worksheets("Approve_budget").Range("C39")
For Each r In rAll
    With Application.WorksheetFunction
         i = .Match(r.Value, CodeRange, 0)
    End With
    With Sheets("data_Approvebudget")
        .Range("E" & i).Resize(1, 57).Value = r.Resize(1, 57).Value
    End With
Next r

Code: Select all

Sub MacroUndate()


Dim FillCodeRange As Range
Dim CodeRange As Range
Dim i As Integer

Set CodeRange = Worksheets("data_Approvebudget").Range("E:E")
Set FillCodeRange = Worksheets("Approve_budget").Range("C39")

    With Application.WorksheetFunction
         i = .Match(FillCodeRange, CodeRange, 0)
    End With
    With Sheets("data_Approvebudget")
        .Range("E" & i).Resize(1, 58).Value = Sheets("Approve_budget").Range("C39:BG39").Value
    End With
    
End Sub