Simple VBA Code to Copy Value

[ionelz]

Hi,
I want to create a Button to Copy value of cell M3 to corresponding L3 in L4:M25
Thanks

 

[MARK858]

Maybe try...

Sub ionelz()
    Dim Rng As Range
    Set Rng = Range("L3:L25").Find(Range("L3").Value, , xlValues, , xlByRows, xlNext)
    
    If Not Rng Is Nothing Then
        Rng.Offset(, 1).Value = Range("M3").Value
    End If
End Sub

 

[ionelz]

Maybe try...

Sub ionelz()
    Dim Rng As Range
    Set Rng = Range("L3:L25").Find(Range("L3").Value, , xlValues, , xlByRows, xlNext)
   
    If Not Rng Is Nothing Then
        Rng.Offset(, 1).Value = Range("M3").Value
    End If
End Sub

Thank you

 

[MARK858]

You're welcome