Copy data when Condition is met

[DaGoose]

I need to copy data from one sheet to another sheet when a mathmatical formula shows a certain number. (ie when stock on hand gets below a certain poiint copy the row over to another sheet so it can be reordered). Probably be more than one row to be copied. But I need all the information in the row copied. Col A= part #, Col B= Description, Col C= Vender etc...Nothing fancy but simple. I know this will be an easy solution for you folks that are VBA Guru's. That leaves me out. Any Ideas, better yet any solutions? Thanks for your help in advance.

 

[venkat1926]

suppose sample data is like this (column D is result of formula ok)
suppose you like to copy rows when on hand falls short of 50 nos.

Excel Workbook
	A	B	C	D
1	part#	description	vendor	on hand
2	1	a	q	25
3	2	s	w	95
4	3	d	e	35
5	4	f	r	79
Sheet1

now try this macro (result is in sheet2)

Sub test()
Dim filt As Range
 Worksheets("sheet1").Activate
ActiveSheet.UsedRange.AutoFilter field:=Range("D1").Column, Criteria1:="<50"
Set filt = Range("a1").CurrentRegion.SpecialCells(xlCellTypeVisible)
filt.Copy Worksheets("sheet2").Range("A1")
ActiveSheet.AutoFilterMode = False
End Sub