Copy some criteria data to based on cell value

[sgmpatnaik]

Hello All


Good Day


i have small request that is i want to copy the data from Master Sheet to Client Sheets with criteria columns based on Column F of Every new entry data


before i post this question i searched in our blog but i didn't get the relevant answers for me finally i got one solution from this blog but here is one problem that is the code is copied the old one and new one also but i want to copy only new data after the old data, please refer the link which i got


http://chandoo.org/wp/2012/05/14/vba-move-data-from-one-sheet-to-multiple-sheets/


and i tried one code but i fail, please see the code which is given below:

[pre]

Sub CopyData()
Dim lngCounter As Long

With Sheets("Sheet1")
For lngCounter = .Cells(Rows.Count, "F").End(xlUp).Row To 1 Step -1
Select Case .Cells(lngCounter, "F").Value
Case "A", "B", "C", "D"
With .Rows(lngCounter)

Sheets("Party" & Sheets("Sheet1").Cells(lngCounter, "F").Value).Range("A" & Rows.Count).End(xlUp).Offset(1, 0).EntireRow.Value = .Value

'.Delete
End With
Case Else
End Select
Next lngCounter
End With
End Sub

[/pre]

but i fail with the above code, for your better knowledge i attached a sample file please check the SheetA i have mention my requirements


https://dl.dropboxusercontent.com/u/75654703/Sample_SP.xlsm


Thanks in advance


SP

 

[sgmpatnaik]

Hello Ninja's


Is it possible to make through VB with using the Formula's and Pivot Tables


Thanks


SP

 

[sgmpatnaik]

Hello Ninjas


Please give me some replay about this post


Thanks


SP