Ayuda con Macro

[JULIO1459]

Tengo un pequeño problema con un macro para salvar información desde una hoja (Insert) a otra hoja (Stock). Pues cuando corremos el macro con nueva información para ser salvada con el mismo código, pues este me duplica el código y la nueva información.
Si alguien me puede ayudar se lo agradecería, pues adjunto podrás entender mejor mi problema.


Insert Item


Code A103
Description
Cost
Price
Quantity
Date



Esta hoja anterior (Insert Item) es la que usamos para entrar la información que luego se salvará en (Stock). Suponiendo que ordenamos de nuevo el mismo código, pues no quiero que se duplique el código, pero sí cualquiera de la otra información.
Más abajo podrás ver la hoja (Stock) y podrás notar la duplicación de código en diferente fecha.


Code Description Cost Price Quantity Date
A100 Apple $15.00 $25.00 15 1-Dec-10
A100 Apple $12.00 $20.00 20 15-Dec-10
A101 Banana $10.00 $25.00 10 1-Dec-10
A101 Banana $10.00 $25.00 25 15-Dec-10
A101 Banana $10.00 $25.00 25 12-Jan-11
A102 Grape $20.00 $45.00 15 12-Jan-11
A102 Grape $20.00 $45.00 10 2-Dec-10
A103 Peach $10.00 $25.00 25 5-Dec-10

Anexo, encontrarás el macro que usamos para salvar esta información. Cualquier corrección o modificación se lo agradecería.


Sub Insert_Item()
'
' Insert_Item Macro
'

'
Sheets("Insert").Select
Sheets("Stock").Visible = True
Sheets("Stock").Select
Range("B5").Select
Selection.ListObject.ListRows.Add (1)
Sheets("Insert").Select
Range("D7:D12").Select
Selection.Copy
Sheets("Stock").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
ActiveWorkbook.Worksheets("Stock").ListObjects("Ta ble1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Stock").ListObjects("Ta ble1").Sort.SortFields.Add _
Key:=Range("Table1[[#All],[Code]]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Stock").ListObjects("Ta ble1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Stock").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Insert").Select
Application.CutCopyMode = False
Range("D8:D12").Select
Selection.ClearContents
Range("D7").Select
End Sub

[mrocf]

Hola! Julio
Más allá de la optimización o mejora que uno pueda sugerirte respecto de tu código, me parece que lo que no queda claro es aquello a lo que llamas: "- ... duplicación de código en diferente fecha ..."

Por ejemplo: veo que has ingresado el producto de código A102 con distinta fecha y con diferente cantidad...
Entonces, ¿Qué tiene eso de "duplicado"?

O, si quieres: ¿Cómo desearías que esa información hubiese sido procesada?

Además te comento que no me queda claro el uso que haces de Listas de Excel razón por la cual sería conveniente que subas una muestra de tu libro en algún uploader gratuito, como para verlo.

Saludos, Cacho.

[JULIO1459]

Estimado Cacho - mrocf,
cuando decimos duplicación del código significa, que si entramos el código,
A101 Banana $10.00 $25.00 10 1-Dec-10 (cuando se registró en Stock)
y recibimos de nuevo el 15 de Dic. la cantidad de 25 más, pues al momento de ejecutar el
macro, pues no queremos que el código y otras informaciones, que no han cambiado de dicho código, sean modificadas, pero sí la cantidad y la fecha, que en este caso son 25 y el 15 de Dic., que sí cambiaron; no así el # del código, la descricción, el costo y el precio.
Si notas, el A101 se ha duplicado dos veces, porque ha sido ingresado en dos fechas más, diferentes al 1 de Dic. del 2010.
En definitiva que haga un update, ya sea del nuevo costo, o del nuevo precio, de la nueva cantidad, de la fecha reciente, pero sin agregarme información de un mismo código.
Espero poder aclarar con esta nueva información.
Saludos,

[mrocf]

Ahora se entiende mucho mejor.
De todos modos quedan pendientes ver el uso -que realizas- de "Listas de Excel" y lo que deseas que quede como información final.

Avisa cuando hayas subido tu libro con el ejemplo de lo que tienes y de lo que quieres, publicando su enlace en este mismo hilo.

Saludos, Cacho.

[JULIO1459]

Qué uploader gratuito puedo usar?

[mrocf]

A mi me gusta (y uso habitualmente) MediaFire...