En este grupo En todos

Foro de Excel



Control Inventario Con Kardex metodo PEPS

Elvis
Piura, Perú
Escrito por Elvis Silva Elias
el 20/06/2012

Amigos, me pueden ayudar con mejorar mi archivo, el mismo que tengo problemas para adaptarle que me arroje un reporte de kardex pero con metodo PEPS, estoy elaborando un archivo pero necesito y espero me puedan ayudar; estoy subiendo el archivo con el nombre de: "Control_Inventario_Con_Kardex(version 2012)"; para que lo puedan ver y asi me puedan brindar su ayuda.

Gracias...

Armando Montes
Foro excel emagister
Escrito por Armando Montes
el 20/06/2012

Tal vez te sirva alguno de estos ejemplos:
Http://grupos.emagister.com/grupo/search? Q=peps&sa=&idGrupo=6610&scope=G

Elvis Silva Elias
Piura, Perú
Escrito por Elvis Silva Elias
el 21/06/2012

Armando, Gracias por tu aporte, voy a revisar este vinculo

Elvis Silva Elias
Piura, Perú
Escrito por Elvis Silva Elias
el 29/07/2012

Armando, disculpa por hacerte la consulta, pero dime como puedo realizar una macro donde no me permita repetir datos en una columna expecifica.

Bueno sin mas que decir, espero tu pronta respuesta o ayuda

Gracias...

Armando Montes
Foro excel emagister
Escrito por Armando Montes
el 30/07/2012

Tal vez este codigo:
Private Sub Worksheet_Change( ByVal Target As Range)
Dim rng As Range, r As Range, msg As String , x As Range
Set rng = Intersect(Columns(1), Target)
If Not rng Is Nothing Then
Application. EnableEvents = False
For Each r In rng
If Not IsEmpty(r. Value) Then
If Application. CountIf(Columns(1), r. Value) > 1 Then
msg = msg & vbLf & r. Address(0, 0) & vbTab & r. Value
If x Is Nothing Then
r. Activate
Set x = r
Else
Set x = Union(x, r)
End If
End If
End If
Next
If Len(msg) Then
MsgBox "Invalid Entry" & msg
x. ClearContents
x. Select
End If
Set rng = Nothing
Set x = Nothing
Application. EnableEvents = True
End If
End Sub
Fuente:
Https://www.ozgrid.com/forum/showthread. Php? T=157244&highlight=prevent+duplicates

Elvis Silva Elias
Piura, Perú
Escrito por Elvis Silva Elias
el 30/07/2012

Ok, amigo muchas gracias, el codigo funciona bien, pero yo quiero hacerlo mediante un boton; es decir antes de agregar un registro quiero verificar o comprobar si el codigo ya existe, y si es que el codigo existe ya no me permita agregarlo, espero me deje entender.

Yo tengo este codigo, pero solo me funciona para el primr registro:


Dim Codigo_Auxiliar

Dim j As Integer

Dim i As Integer

Dim Final_Sal As Integer

Codigo_Auxiliar = TextBox4 & TextBox7

For i = 1 To 10000

If Hoja6. Cells(i, 8) = "" Then

Final_Sal = i

Exit For

End If

Next


'Verificando si el codigo esta repetido

For j = 2 To Final_Sal

If Hoja6. Cells(j, 8) = Codigo_Auxiliar Then

MsgBox "El codigo ya existe, ingrese otro", , Title:="Microsys: Salida de producto"

Exit Sub

Exit For

Else

MsgBox "Codigo noooo existe" & " " & Codigo_Auxiliar

Exit Sub

Exit For

End If

Next



Gracias, espero tu pronta respuesta

Elvis Silva Elias
Piura, Perú
Escrito por Elvis Silva Elias
el 06/08/2012

Ok muchas gracia por su ayuda, pero ya solucione el problema que tenia