Hi Narayan,
This is the link to the sheet..
http://www.2shared.com/file/S75m6_X9/Sample.html
One more enhancement.. if Column 'No' already exists in Department tables then no need to copy that one...Like in Input data Sheet there is '1' in column "No" for row 2... '1' is also present in...
Hi SirJB7!!
Right now am Testing with Sample data with twenty rows in all sheets it's taking 1-2 seconds.... In practical scenario there will be thousands of rows...
@SirJB7...
The macro which you Wrote Run Faster sir... i have made Some Changes to get rid of that error.... After making the changes this is the macro...
Option Explicit
Sub CopyingMacro()
Dim DataInputRowCount As Long, RoutingRowCount As Long, DRowCount As Long
Dim IpProductType As String...
Hi SirJB7...
Thanks for the answer...
but i am getting.. Runtime Error '91'. Object Variable or with Block Variable not set...
i am getting this error at this line..
"Routing = Columns(1).Find(IpProductType, , xlValues, xlWhole).Row"...
i read that using vlookup and concatenate we can do...
I Have Written this Code... i Think the Perfomance Can be Increased... Can any one Modify the code so that i executes Faster...
Sub CopyingMacro()
Dim DatainputRowCount As Long, ProductRoutingRowCount As Long, RoutingRowCount As Long, DRowcount As Long
Dim IpProductType As String, DataIN As...
Thanks for the Reply Hui...
Please Refer the Sample File i Uploaded....I Have shown the output in the sample data...
I need it in macro only...
http://www.2shared.com/file/S75m6_X9/Sample.html
Hi all...
I Am Trying to write a Macro for doing this.. as i am new to macro's am unable to figure out how to do it.. Can any one please Help
Assume i have given the columns in Order Like IN is ColumnA Like dat...
InputData: (Sheet1)
IN OUT Item Unit Date...