¿Podrías enviarme la macros completa o el archivo de este link? Http://goo.gl/1aQItw
Vi que ayudaste a la chica con esa macros, yo también quisiera hacer un archivo similar. Me preguntaba si lo podrías desarrollar, solo me faltan esas mismas cosas que a ella.
Te envío el link de mi archivo excel: Excel Inventarios
Respuesta de antares18
Has de poner de quien hablas, si no no se va a dar por aludido/a
1 respuesta más de otro experto
Respuesta de Dante Amor
1
Pregunta original:
¿Cómo obtener un macro en control de entrada y salida en kardex en excel? Dirigida a Dante amor
Te anexo las macros.
En los eventos de la hoja:
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("A2")) Is Nothing Then
u = Range("A" & Rows.Count).End(xlUp).Row
Set b = Range("A5:A" & u).Find(Target.Value)
If Not b Is Nothing Then
[B2] = Cells(b.Row, "B")
[C2] = Cells(b.Row, "C")
Else
MsgBox "Clave no existe"
End If
End If
End SubEn un módulo:
Sub ENTRADAS()
'Act.Por.Dante Amor
Range("A2").Select
ClaveEntrada = ActiveCell.FormulaR1C1 + 4
CeldaEntrada = "D" & ClaveEntrada
Range(CeldaEntrada) = Range(CeldaEntrada) + Range("D2")
Range("D2") = ""
End Sub
'
Sub SALIDAS()
'Act.Por.Dante Amor
Range("A2").Select
ClaveSalida = ActiveCell.FormulaR1C1 + 4
CeldaSalida = "E" & ClaveSalida
Range(CeldaSalida) = Range(CeldaSalida) + Range("E2")
Range("E2") = ""
End SubEste es el enlace para que descargues el archivo
https://www.dropbox.com/s/7v6n8wp3dlebozc/KARDEX%20dam.xlsm?dl=0
Saludos. Dante Amor
Recuerda valorar la respuesta.