Code to write numbers from one cell to another

[scott1945]

I was looking for help to develop some VBA code to write from potentially 4 cells to a possible 4 cells. I have uploaded my sample Excel sheet image with the expected result. If someone could kindly assist.

The macro would need to start with searching cells B3, B4, E3, E4 to determine if any numbers are present. When found use that number (example cell B3 has a 7 in it) to search for the same number in cells A14, E14, I14, L14 (cell E14 has the 7). When found write the contents from cell C3 (the adjacent cell to the right of the 7 in this example) to cell F14 and change the last number to a 1 (so cell F14 would be written as 8-1). Repeat for each cell B3, B4, E3, E4 and afterwards delete all the contents in B3,C3, B4,C4, E3,F3, E4,F4.

Thanks in advance for your help.

EXCEL 5.JPEG

[mehmetcik]

You must learn to attach a spreadsheet rather than an image.


Attach a sample workbook (not a picture or pasted copy). 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.

Please Login or Register  to view this content.

[scott1945]

Works but need to make 2 small changes:

In the Excel example in cell F14 the write is 8-15.1 (should be 8-1) and the cell contents in B3,C3, B4,C4, E3,F3, E4,F4 are not being deleted. I have uploaded my Excel sheet and will so in the future.

Thanks so much for your help.

[scott1945]

Are you still there?

[daboho]

Try

Please Login or Register  to view this content.

[scott1945]

Hi, it says compile error, Sub or Function not defined and it highlights “isnumeric”.

[mehmetcik]

Please Login or Register  to view this content.

[scott1945]

Works great!

One problem though. How do I expand the
“TargetA = Split("A6, E6, I6, L6", ", ") line to include more cells and do I have make changes to another line also? I put more cells in followed by a comma but nothing. Nice to see it work though.

Thank-you for your help.

[scott1945]

Hi

Not sure if you received my previous note.
Thanks

[rorya]

Don't hardcode the loop boundaries. Use:

Please Login or Register  to view this content.

and:

Please Login or Register  to view this content.

[scott1945]

Hi rorya

Thanks so much for your response but I have tried putting Ubound(SearchA) in a few places but I don’t think I’m getting it. If you have a minute could you please copy the code to where it belongs. I think this could be a blond moment?

[mehmetcik]

what additional cells are you talking about?

[bulina2k]

my 2 cents:

Please Login or Register  to view this content.

[scott1945]

Hi everyone

Thank-you to all 3 of you for your help.
mehmetcik - your question "what additional cells are you talking about?" is just wanting to add some additional cells to your original code. Your code works perfectly well with the original supplied cells if I want to add some more but I couldn't.

bulina2k - Your code works as well but I need to also delete the contents in cells "B3:B4, E3:E4" after the write.

[jindon]

Try

Please Login or Register  to view this content.

[daboho]

try this work

Please Login or Register  to view this content.

[scott1945]

Thank-you for your response jindon, I will test out your code.

[scott1945]

bulina2k I have added srng.ClearContents at the end of the code which works but how do I clear the contents in cells C3:C4 and F3:F4?

Next
srng.ClearContents
End Sub

[bulina2k]

like this

Please Login or Register  to view this content.

[scott1945]

Hi jindon

The big issue is that this is hard coded and my sample is just that only a sample. This code will not work in the sheet that I use. I will use the code from bulina2k but I would like to thank-you for your help.

[scott1945]

Hi bulina2k

Your code works so well. A huge Thank-you for all your help!!!!!