Swapping cell formulas using VBA

Hi !

I'm having some difficulties in improving some excel data sheets to minimize time and eliminate errors and i need to add a VBA code to solve this problem.

Example:
By clicking the button a text box appears, "Select one cell in Pos A row".
By selecting ID 1 line Pos A row, the formulas in Pos A and Descr A will be swapped unchanged, to the correspondent Pos B and Descr B in ID 1 Line. All formulas in Pos B and Descr B will go to Pos A and Descr A unchanged also ! Just in ID 1 Line
If the Row of Pos A is not selected correctly, an error message will appears.

Shortly explained: the formulas in green cells are swapped by the red cells and vice-versa.

I have seen around the forum some question about this subject, but my limited VBA knowlodges are not able to solve the "select cell" problem .

Swap.JPG


P.S. : I was not able to upload the file to this post !


Sam