Readout from other sheet, Change data accordingly $$$

Viktor86HUN

New member
Joined
Dec 4, 2014
Messages
4
Reaction score
0
Points
0
Location
Hungary
Hey good ppl of this forum

$$$ Let me pay a few bucks to the guy who helps me with this $$$

I'm having some problems making 2 functions in my XLS.
It is waay far away from my skills, please guys, help this poor dude out

I've made 2 buttons in the file, everything is clear in the XLS, please check if you feel like helping.

View attachment helpmepls.xlsx

The easier one, which is still too hard for me
1, FILTER BUTTON
-Read sheet: FILTER, column A.
-If there is match on sheet: - Stock - column B from row 5 to all the way down
-Then filter rows, to see only lines that match the numbers on FILTER sheet.


The harder one, which i have no damn idea how to even start with it:
2, MORPH button
-Read sheet: UKR, column C. -If there is match on sheet: - Stock - column B from row 5 to all the way down
-Then copy text
from: sheet UKR, column A -to: Column D
from: sheet UKR, column B -to: Column E
from: sheet UKR, column D -to: Column F
from: sheet UKR, column E -to: Column G

View attachment helpmepls.xlsx
 
Try this
 

Attachments

  • ExcelGuru - 3824 - Two Functions.xlsm
    27.9 KB · Views: 18

Hey Bob.

I really appretiate the help you gave me. I've posted on several forums and it seems like you are the only one who cared :) So really, thanks a lot.

Unfortunately it doesn't seem to work at my side.

Filterdata (When i run it it always filter down to: 00019787 and 00019745, is it a way to make it read out what to filter from sheet: FILTER, Column A?)

ActiveSheet.Range("$A$2:$I$14").AutoFilter Field:=2, Criteria1:="=00019745" _
, Operator:=xlOr, Criteria2:="=00019787"


CopyData This is way beyond my understanding, but when i run, nothing happens :(
 
It does filter by what is on sheet FILTER, I build an array of those values. You are showing some test code I knocked up, not FilterData. Look at my code in Module1,

Code:
.Range("$A$2:$I$14").AutoFilter Field:=2, Criteria1:=ary, Operator:=xlFilterValues

Delete a value in FILTER, and less gets filtered.

CopyData does nothing because I already ran it. Delete some values on - Stock - and re-run it.
 
ok, i think i got the "token" back, so i can reply again.

as i wrote in PM, thanks a lot Bob!

could you help me further improve these 2 little babies?

Filter
Is it possible to mark with green colour on the filter sheet, which number has been found on Stock sheet?

Copydata
I can run it now, works good, but if it finds 1 match on Stock sheet, it stops looking for that number again and it leaves the other rows with the same number untouched.
Is there a way to pop up a window before running this makro? "Sure you want to do this" yes - no?

you already done a lot, if you can help me finish it i will praise your name forever :D
 
Last edited:
Back
Top