Solved: Find.Resize.Paste

[omnibuster]

Hi.
In Forum i find file: "ListMeds" and need change it.
How make this macro to work?
Find name Sheet1, Sheet2 ... (by columns), resize it.
Get offset value and paste to Sheet3 .
Sry my bad English.

[mdmackillop]

Hi
Welcome to VBAX,
Sorry, but I don't understand what you are trying to do. Can you explain further?
Regards
MD

[omnibuster]

With ListMedicinesbox (in Sheet Meds) :select name.
Paste name in Sheet3 Range B1
in Sheet1&Sheet2 find this name in the existic Columns (by cells, by columns).
If find this name remebe this,
go Up, select Date (Range 1:1&*)
Paste Date in Sheet3 Range "A2",
go back Sheet1 find this name then activecell resize offcet (0,1), select value, go Sheet3 paste Columns B.

Summa:
Sheet3
ColumnsA A1...A100=Date
ColumnsB Cell B1:-name what i search
ColumnB Cell B2: value ,Cell B3: value.......

[omnibuster]

Sry.

My File Here.

[mdmackillop]

Try this

[omnibuster]

Big Thanks: mdmackillop
Like BennyH. says: learning all my life. :)