Insertar dato al ejecutar código en HOJA de salidas

En hoja SALIDA ocupo lo sig. Espero me puedas seguir ayudando...

Aquí es lo mismo solo que con col. De más ejemplo

Mira aquí tengo también el código y también el precio unitario, al igual que la COLUMNA G5 que es importe total...

Lo mismo que entradas es que se pongan en el recuadro de lo que estaré dando salidas...

Este es el código que tengo:

Sub sal_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, 3).Select
ActiveCell.Value = fec$
x = 1
ActiveCell.Offset(0, -5).Select
End If
ActiveCell.Offset(1, 0).Select
Wend
ActiveSheet.Protect
Sheets("SALIDAS").Select
If x = 0 Then MsgBox prompt:="Este producto no existe. Debe darlo de alta antes de poder anotar salidas 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": ActiveSheet.Protect: End
Range("B5:F5").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,G5:U5").ClearContents
ActiveSheet.Protect
Range("B5").Select
Application.ScreenUpdating = True
MsgBox prompt:="Entrada anotada", Buttons:=vbOKOnly, Title:="INFORMACIÓN"
End Sub

entonces al ejecutar este queda asi..

No jala el código y tampoco el importe total

0

Añade tu respuesta

Haz clic para o