Evitar datos duplicados en hoja de excel
Para Dante Amor
Que tal .. Estoy cargando datos de un listbox a una hoja de excel que contiene un código y una determinada cantidad.. Lo que necesito es que cuando ingreso un código nuevo agregue en la hoja pero cuando ingreso un código ya existente no lo cargue como un nuevo dato si no que sume la cantidad nueva a ingresar con la cantidad ya existente
1 Respuesta
Envíame tu archivo de excel con tu formulario, con un par de ejemplos reales, me explicas qué deseas, es decir, qué código capturas, en qué columna se debe buscar, si es nuevo en dónde se debe insertar, si ya existe qué se debe sumar y en dónde poner el resultado, todo explicado claramente con un ejemplo con datos reales y celdas reales.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Ricardo Gonzalez” y el título de esta pregunta.
Muchas gracias ya len envíe en su correo el archivo
Te anexo la macro para agrega a la hoja
Private Sub CommandButton2_Click()
'Por.Dante Amor
'Agregar a la hoja
For i = 0 To Me.ListBox1.ListCount - 1
xcodigo = IIf(IsNumeric(Me.ListBox1.List(i, 0)), Val(Me.ListBox1.List(i, 0)), Me.ListBox1.List(i, 0))
xcantidad = Val(Me.ListBox1.List(i, 1))
'descuenta en hoja2
Set b = Hoja2.Columns("A").Find(xcodigo, lookat:=xlWhole)
If Not b Is Nothing Then
Hoja2.Cells(b.Row, "B") = Hoja2.Cells(b.Row, "B") - xcantidad
End If
'
'Actualiza en hoja3
Set b = Hoja3.Columns("A").Find(xcodigo, lookat:=xlWhole)
If Not b Is Nothing Then
Hoja3.Cells(b.Row, "B") = Hoja3.Cells(b.Row, "B") + xcantidad
Else
u = Hoja3.Range("A" & Rows.Count).End(xlUp).Row + 1
Hoja3.Cells(u, "A") = xcodigo
Hoja3.Cells(u, "B") = xcantidad
End If
Next
MsgBox "Datos actualizados"
End SubNota: no es necesaria la función: nExistencia
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
