Copy value from one cell to another if defined conditions are satisfied

It would be easier to help and test possible solutions if you could attach a copy of your file. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary). See the yellow banner at the top of this page for instructions to attach a file.

This macro assumes that your VBASheet sheet has headers in row 1 and your data starts in row 2.

Please Login or Register  to view this content.

Hi Mumps1, I have adjusted the code due to runtime error. This code is working to look "KW" in cell adjacent to cell in which column value B is found and then after it stops and don't move forward to check in other cells:
Emaple: I have sheet "A1" mentioned in column D in "VBASheet". We look for Sheet "A1" in "VBASheet" and look for corresponding value in column B("KW15") and C("A1 SB-27")
Actual scenario on running this code:
A1 SB-27 KW15 KW16 KW17 Jan KW18 A1 SB-27 KW15 KW16 KW17 Jan KW18
10 20 30 40 50 10 20 30 40 50
-- -- -- -- -- ----> -- -- -- -- --
-- -- -- -- -- -- -- -- -- --
-- -- -- -- -- -- -- -- -- --

Desired scenario:

A1 SB-27 KW15 KW16 KW17 Jan KW18 A1 SB-27 KW15 KW16 KW17 Jan KW18
10 20 30 40 50 10 20 30 40 50
-- -- -- -- -- ----> -- -- -- -- --
-- -- -- -- -- -- -- -- -- --
-- -- -- -- -- -- 20 30 -- 50

Actual vs desired solution.png20


Here is the new code:

Please Login or Register  to view this content.

Run time error on using code mentioned by you:
Run-time error 91.png

Is it working properly for you?

You will need to say in what way it isn't working.

Provide a sample workbook containing the source data, your code and a manually mocked-up demonstration of the results you require.

I have already attached sample file with desired result after VBA MAcro. Would you please let me know if it not visible anymore?

Thank you!

I tested the code using the file you posted and it worked as you requested. Are you using the macro on a different file? If so, attach a copy of that file.

Here is the file, I am working on this file:

You have not posted the link to your file.

You are right, I posted above. Here my excel language is in german.

Is there any reason why the data in the Q3 Indien sheet begins in column B instead of column A like all the other sheets? Also, there are some cells highlighted in blue. Is that of any importance?

Blue color does not hold any importance here. Q3 Indien Sheet has Indien written in ColumnA just to differntiate it from other sheet, if there's problem than its text can be deleted so that format stays the same

Delete column A in the Q3 Indien sheet and try this macro:

Please Login or Register  to view this content.

Thank you for the support
I deleted Column ! in Q3 Indien Sheet and tried this macro, but there is run time error 13:Attachment 864212
Would you please here?

Your link doesn't work. See the yellow banner at the top of this page for instructions to attach a file.

here is attachment: Attachment 864256
This code is highlighted on debugging: If Evaluate("isref('" & sh.Value & "'!A1)") Then

The attachment is invalid. Please read the yellow banner at the top of the page and follow its instructions to attach your workbook.

Good Morning, I can open and see above attachment and I was also mentioned which code is highlighted on debugging. I am bit puzzled here, what is the problem?

The problem is that you are not attaching it in the correct way. That attachment is NOT visible to all. Please do as I have asked.

From the yellow banner:

... scroll down to GO ADVANCED, click, and then scroll down to MANAGE ATTACHMENTS and click again. Now follow the instructions at the top of that screen.

Further:

Post #13 has been attached in the correct way.

Posts #19 and #21 have NOT been attached in the correct way.

Follow the instructions in my previous post.

You were asked to attach the LATEST copy of your WORKBOOK (not a screenshot). Please help us to help you. Workbooks are particularly important when members are working with a different locale (language settings).

Okay got it, I am attaching here with the same code which was proposed by @Mumps1

Unfortunately due to file size constraint, i have to delete some sheets which are not required before uploading!

That's fine - thank you.

Try:

Please Login or Register  to view this content.

Are you using the macro in the same file as you posted? Which line of code is highlighted when you click "Debug" and what is the exact error message?

Now the code is working perfectly, but I want to set one more condition to run this macro. Thank you so much!
if "aktiv" is found for each row in Column A, then only I want to run this macro for each row in this file. If "inaktiv" is found or empty cell value in Column A then macro must not be executed for that row and we along look for "aktiv" in column A in next row, if found then run macro and look for "aktiv" in next row in Column A.

In attached file "Prgm_202404 - Test_3-durchgelaufen mit Feedback", "aktiv" is found in cell A8 then macro must be executed for that row after that look value in column A (cell A9) in next row here "inaktiv" is found in cell A9 then move to next row and look for "aktiv" in Cell A10.

I have already assigned macro suggested by you to button named "Start VBA-Script" in "VBASheet"

I don't see the "VBASheet" sheet in your file.

Somehow it seems to be deleted, i am uploading file here once again.

I hope it works this time!

I have to go out now so I will get back to you as soon as I can.

Deleted by me..

this is another metode collection + dictionary

Please Login or Register  to view this content.

Try:

Please Login or Register  to view this content.