Insertar dato al ejecutar código y se respete en todas las hojas
Tengo un código el cual necesito modificar
se trata del sig.
Sub ent_pro()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
fec$ = Range("B5").Value
pro$ = Range("C5").Value
cant = Range("D5").Value
x = 0
Sheets("STOCK").Unprotect
Sheets("STOCK").Select
Range("B7").Select
While ActiveCell.Value <> ""
If ActiveCell.Value = pro$ Then
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = ActiveCell.Value + cant
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = fec$
x = 1
ActiveCell.Offset(0, -4).Select
End If
ActiveCell.Offset(1, 0).Select
Wend
ActiveSheet.Protect
Sheets("ENTRADAS").Select
If x = 0 Then MsgBox prompt:="Este producto no existe. Debe darlo de alta antes de poder anotar compras o bien se le ha olvidado actualizar el stock después de anotarlo. También es posible que lo haya escrito de forma incorrecta. Elíjalo de la lista para evitar errores.", Buttons:=vbOKOnly, Title:="ERROR": End
Range("B5:G5").Select
Selection.Copy
Range("B509").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B5:D5,F5:G5").ClearContents
ActiveSheet.Protect
Range("B5").Select
Application.ScreenUpdating = True
MsgBox prompt:="Entrada anotada", Buttons:=vbOKOnly, Title:="INFORMACIÓN"
End Sub
En el cual quisiera que en vez de agregar datos a partir de B inserte a partir de la COL "A" respetando el orden...
1 Respuesta
Ok lo que pasa es si me funciona per como dices es un poco lento.
Lo que necesito es que en todo los datos que agregare quisiera poner un dato más osea la col. A (código) que al momento de insertar también se inserte el código junto a la fecha y cantidad
¿Pero se inserte dónde?
Puedes explicarlo con ejemplos.
Mira así esta la hoja ENTRADAS
ENTONCES anoto los datos que necesito entre ellos el código
pongo todos los datos tambien codigo del producto
Aquí es donde necesitaría ayuda ya que el código inserta los datos que están actualmente en el código visual que te puse.
Que al ejecutarse quisiera que también se insertara el código del producto
Aquí se aprecia los datos insertados menos el código del producto que es a lo que me refiero
Te anexo el código actualizado:
Sub ent_pro()
'Por.Dante Amor
Set h3 = Sheets("ENTRADAS")
Set h5 = Sheets("STOCK")
Set b = h5.Columns("B").Find(h3.[C5], lookat:=xlWhole)
If Not b Is Nothing Then
h5.Cells(b.Row, "D") = h5.Cells(b.Row, "D") + h3.[D5]
h5.Cells(b.Row, "F") = h3.[B5]
Else
MsgBox "Este producto no existe. Debe darlo de alta antes de poder anotar compras." & vbCr & _
"Elíjalo de la lista para evitar errores.", vbOKOnly, "ERROR"
Exit Sub
End If
'
u = h3.Range("B" & Rows.Count).End(xlUp).Row + 1
h3.Range("A5:G5").Copy
h3.Cells(u, "A").PasteSpecial Paste:=xlPasteValues
h3.Range("A5:D5,F5:G5").ClearContents
MsgBox "Entrada anotada", vbOKOnly, "INFORMACIÓN"
End SubTambién te recomiendo que no protejas la hoja, hasta que termines el desarrollo, es más práctico.
Ahora revisa lo siguiente:
Tenías todo este código para buscar el producto:
x = 0
Range("B7").Select
While ActiveCell.Value <> ""
If ActiveCell.Value = pro$ Then
x = 1
End If
ActiveCell.Offset(1, 0).Select
Wend
If x = 0 ThenCon estas 2 líneas resuelves la búsqueda:
Set b = h5.Columns("B").Find(h3.[C5], lookat:=xlWhole)
If Not b Is Nothing ThenEn la variable b tienes el objeto del producto encontrado. Con ese objeto, que es como una celda, puedes saber, la hoja, la dirección, la fila, la columna, el valor, el color, etc.
Sal u dos
Funciona rápido... gracias dan...
Pero no entiendo eso de FIND y esto
lookat:=xlWhole)
pero gracias
La función FIND es para buscar, es como la función Buscar de excel cuando presionas Control + B:
Y lookat:=xlwhole, siginfica: "Coincidir con el contenido de toda la celda".
Si quires saber más sobre FIND, Crea una pregunta. Sal u dos
