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

Here is how to load a file - it will help in this case.

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

I still need some more explanation. From the description, Column D should contain a formula and column E a text description. Column D does not contain a formula. For example, I cannot see where you are getting 345 A from A + 234.


However, based on your description, the following should work.

Please Login or Register  to view this content.

Would need to see your exact formula's to get the best help. So this thread doesn't turn into a 30 post thread.

P.S. The values on the table are from another table ...so, by swapping cells, the integrety of the formulas must be intact ! I want to copy the entire cells formulas without changing them.