Dear members of the forum,
I want to swap some cells after a specific amount of time (every week on sunday)
I wrote a code, but its missing the repeating period.
Can somebody help me?
Here is the code:
Sub SwapTwoRange()
'Updateby20230406
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "SwapColums"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub
Thank you in advance and best regards,
David
Bookmarks