Base de datos. Problema con formulario

[victorroman1605]

Hola buenas tardes genios.

El problema es el siguiente:

En el adjunto tengo una base de datos que se llena en dos etapas

1.- cuando planeo mis inventarios y arqueos (Formulario "PROGRAMAR")

2.- cuando registro los datos una vez que se realizaron los arqueos o inventarios (Formulario "REALIZADOS)

Con el Formulario "PROGRAMAR" me guarda los datos correctamente, y los datos siguientes los guarda buscando mediante una macro biscando el folio pero el problema se presenta cuando registro los otros datos que completan mis registros.

• Con el primer registro completo se guarda correctamente, el problema viene cuando intento guardar un segundo registro, los datos se vuelven locos y se guardan en celdas que no corresponden.

espero me puedan ayudar. saludos

INDICADORES ARQUEOS E INVENTARIOS.zip

[supervoro]

...Hola victoroman1605.... vi un pequeño error en la macro busc... quiza sea eso el causante del problema... mira a ver si sustituyendo la macro por esta se soluciona el problema...

Sub busc()

Application.ScreenUpdating = False

Dim a

'

a = Range("B8")

Sheets("BASE").Select

Range("A2") = a

Range("A2").Select

Range(Selection, Selection.End(xlDown)).Select

Cells.Find(what:=a, After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False, SearchFormat:=False).Activate

ActiveCell.Offset(0, 3) = Sheets("REALIZADOS").Range("F8")

ActiveCell.Offset(0, 6) = Sheets("REALIZADOS").Range("C11")

ActiveCell.Offset(0, 10) = Sheets("REALIZADOS").Range("C17")

ActiveCell.Offset(0, 7) = Sheets("REALIZADOS").Range("F11")

ActiveCell.Offset(0, 8) = Sheets("REALIZADOS").Range("F13")

ActiveCell.Offset(0, 9) = Sheets("REALIZADOS").Range("F15")

Sheets("REALIZADOS").Select

Range("B8,F8,F11,F13,C11,C17").ClearContents

Range("B8").Select

MsgBox "Datos Actualizados"

Application.ScreenUpdating = True

End Sub