Macro for copy and paste and delete pasted value

[Jan Kalop]

Can I have a macro with command that with single click copy value from (A1) and paste it in designated cell (G20) and with double clik delete that pasted value from that designated cell ?

 

[Muhammad_Usman]

Can I have a macro with command that with single click copy value from (A1) and paste it in designated cell (G20) and with double clik delete that pasted value from that designated cell ?

Hey Jan!
You can use Toggle button for this purpose and try following code .

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then
    Range("G20").Select
    ActiveCell.FormulaR1C1 = "=R[-19]C[-6]"
    ActiveWorkbook.Save
    
Else

Range("A5:I26").Select
    Selection.ClearContents
    Range("G20").Select
    ActiveWorkbook.Save
End If
End Sub

 

[Jan Kalop]

Hey Jan!
You can use Toggle button for this purpose and try following code .

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then
    Range("G20").Select
    ActiveCell.FormulaR1C1 = "=R[-19]C[-6]"
    ActiveWorkbook.Save
   
Else

Range("A5:I26").Select
    Selection.ClearContents
    Range("G20").Select
    ActiveWorkbook.Save
End If
End Sub

so there is nothing what can be done with, beside that