Jump to content

Base de datos. Problema con formulario


victorroman1605

Recommended Posts

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

Link to comment
Share on other sites

...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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy