Find and past button

[_Fly_]

a

b

c

d

e

f

g

h

i

1

Number

2

Item

3

Stock

4

Condition

5

<tbody>
</tbody>

Sheet Entrance

	a	b	c	d
1	Number	Item	Stock	Condition
2	123456	Paper Case	100	New
3	234123	Chair	4	Used

<tbody>
</tbody>

Sheet Global

Hi my friends it's possible to help me on that issue?
I want to put a code on my button that appears on the Sheet Entrance that when i click appears a msgbox aske me for a number. Then i put the number and click ok, then the code searches on the sheet global for that code and if that number exists copy the interior of the correspondent cell on the column a, b, c and d to the Sheet entrance on the correspondent cells C1, C2, C3, C3. If the number doens't exists appear that info.

Example i click the button on the sheet Entrance and a msgbox appear ask me a number i insert the 234123 and click ok.
The code goes search for that number on A:A and finds on the A3 cell, so it copys the a3 value from Sheet Global to C1 Sheet Entrance, the b3 value from Sheet Global to the c2 Sheet Entrance, the c3 value from Sheet Global to the d3 Sheet Entrance, the d3 value from Sheet Global to the c4Sheet Entrance.

It's possible to give me any ideas to the code?
Regards

 

[_Fly_]

Howard your code is almost there but you go pick the Quantidade Retirada (removed amount) and this field must to remains empty it's to insert the amount of items i will remove then on the n10 cell i will put the formula =J10-F10 to calculate the amount of items after i remove from stock
The Inserir button picks the value calculated on the n10 and past to the Stock Actual cell on the Registos Globais Sheet

Example: if i pick 8 items from code 123 item (The stock initial was 10) after click on the insert button the 10 value on the G2 must to be changed to 2 (=10-8)

 

[L. Howard]

Okay, you can delete this line from the code, and nothing will be put in cell F10 when you click the Button 5.

rngFnd.Offset(, 3).Copy Sheets("Saídas").Range("F10")

Anything else?

Howard

 

[_Fly_]

Okay, you can delete this line from the code, and nothing will be put in cell F10 when you click the Button 5.

rngFnd.Offset(, 3).Copy Sheets("Saídas").Range("F10")

Anything else?

Howard

Howard please only help me with the other button the Inserir button
The Inserir button picks the value calculated on the n10 and past to the Stock Actual cell on the Registos Globais Sheet

Example: if i pick 8 items from code 123 item (The stock initial was 10) after click on the insert button the 10 value on the G2 must to be changed to 2 (=10-8)

Regards

 

[L. Howard]

Give this a try.

Not sure I got it correct, but the blue buttons, Procurar and Inserir now run the codes.


https://www.dropbox.com/s/0tp7bwvpujvhmsj/Stock Materiais in work.xlsm?dl=0


Howard

 

[_Fly_]

Howard you are the bes it's really works!
Just one more thing it's possible to make button Inserir to copy two more things to the Saidas sheet? I create a list starting on the Q5 (Saidas Sheet) with what i'm picking example:
When i click on the Inserir button on the column Q (starting at Q6) appears the F10 value and on the R6 the F8 value, after i search another item to pick up this new item will appear on Q7 an the name at Q8 (understand?)
After that when i click on button limpar that list will be deleted and i can create another pick up list.

The other question i have if it's possible to create a warning when i press the inserir button if the value on Stock Actual (Registos Globais) goes to the Stock minimo value or goes to zero. I also want to make not possible if the stock was 4 and i press to pick 10 a message tell me "you only can pick 4"

Best Regards

 

[_Fly_]

Howard i have a problem with your code, everytime i click on the Procurar button the cells founded on the Registos Globais become totally copied and so i loose my blue squared cells it's possible to copy only the contents of the cells?
REgards

 

[_Fly_]

Howard my friend, i have already made some progress on the file now i stills the formatting problem when i click the procurar button and i don't know how to make a msgbox warning...
Your help will be precious...
Please see my adjustments : https://drive.google.com/file/d/0B1UTQJwIdfeaX3dadDVnQWNJUFU/view?usp=sharing
Regards

 

[L. Howard]

I am having some problem understanding where the warning is to be done.

How do you "press to pick 10"? Do you enter 10 into cell F10 on Sheets("Saídas"). Is that how you pick the number required?

The other question i have if it's possible to create a warning when i press the inserir button if the value on Stock Actual (Registos Globais) goes to the Stock minimo value or goes to zero. I also want to make not possible if the stock was 4 and i press to pick 10 a message tell me "you only can pick 4"

I made some assumptions and have this for you to try.

https://www.dropbox.com/s/9ofyz47xza0r48q/Stock Materiais3.xlsm?dl=0

Howard

 

[_Fly_]

Howard yes on F10 i put the number of items i want to remove from the stock.

 

[L. Howard]

Okay, the link in Post #18 does that along with a message box alerting you of stock amounts if the pick is more than the stocks available.

Does that work correctly for you?

Howard