Introducir datos por medio de un formulario

wilkinmonti · el 29 de junio

buenas e visto muchos vídeos por youtube y estoy realizando un pequeño cuadro de inventario rápido y sencillo, tomando el patrón de uno de los vídeos que e visto e diseñado uno me funciono, pero lo personalice como:

les explico

tengo 4 pestañas de las cuales 3 las voy a manejar yo y la otra es para que mis empleados lo vean pero no modifiquen nada
en la pestaña producto tengo un botón que con el puedo ingresar datos y le dije a la macro que los quería que se alojaron en la pestaña principio, entrada y existencia eso esta bien no tengo problemas;

mi problema es

que no quiero que en la pestaña principio me aloje los resultados a partir de la celda A1, sino a partir de la celda A11

no veo que me falta, quien me pueda ayudar por favor

aquí les dejo el archivo

mi inventario.xlsm

Antoni · el 29 de junio

Sustituye el código del botón Registrar del formulario frm_RegistrarProducto por este:

Private Sub CommandButton1_Click()
Dim Celda As Range
Dim Final1 As Integer
Dim Final2 As Integer
Dim Final5 As Integer
'-----------------------------------------------
Set Celda = Hoja1.Columns("A").Find(what:=txt_CodProd, lookat:=xlWhole)
If Not Celda Is Nothing Then
   Me.txt_CodProd.BackColor = &H8080FF
   MsgBox ("El producto ya existe o está en blanco" + Chr(13) + _
           "Ingrese  un código de producto  válido"), vbCritical
   Me.txt_CodProd.SetFocus
   Exit Sub
End If
'-----------------------------------------------
Final1 = Hoja1.Range("A" & Rows.Count).End(xlUp).Row + 1
Final2 = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1
Final5 = Hoja5.Range("A" & Rows.Count).End(xlUp).Row + 1
'-----------------------------------------------
If MsgBox("¿Son correctos los datos?" + Chr(13) + "       ¿Desea proceder?", _
            vbOKCancel + vbQuestion) = vbOK Then
   Me.txt_CodProd.BackColor = &HFFFFFF
   Hoja1.Cells(Final1, 1) = Me.txt_CodProd
   Hoja1.Cells(Final1, 2) = Me.txt_Nombre
   Hoja1.Cells(Final1, 3) = Me.txt_Descrip
   '-----------------------------------------------
   Hoja2.Cells(Final2, 1) = Me.txt_CodProd
   Hoja2.Cells(Final2, 2) = Me.txt_Nombre
   Hoja2.Cells(Final2, 3) = Me.txt_Descrip
   '-----------------------------------------------
   Hoja5.Cells(Final5, 1) = Me.txt_CodProd
   Hoja5.Cells(Final5, 2) = Me.txt_Nombre
   Hoja5.Cells(Final5, 3) = 0
   '-----------------------------------------------
   Me.txt_CodProd = ""
   Me.txt_Nombre = ""
   Me.txt_Descrip = ""
   Me.txt_CodProd.SetFocus
Else
   Exit Sub
End If
End Sub