Amigo, muchas gracias, bajé la aplicacion, la que dice (SÓLO EXCEL) y para lo que necesito de momento me va muy bien, de verdad muchas gracias por dedicar tu tiempo a ayudar.
BUENAS NOCHES, AL MOMENTO DE HACER LA VENTA ME MANDA POR DEFAULT LA IMPRESION DEL TICKET, HAY ALGUNA MANERA DE DESACTIVAR ESA FUNCION YA QUE NO DOY TICKETS POR EL MOMENTO??
hola Ing gracias por el video solo quiero que me ayudes cuando agrego el producto y lo guardo en vez de caer en la fila siguiente cae en la ultima fila y ya revise todo y esta igualito al de usted ? que puede ser
Buenas tarde ing. estoy en el video 2, cuando voy a agregar productos no me deja escibir en el cuadro de texto tampoco puedo escribir en el precio promedio Private Sub UserForm_Activate() ThisWorkbook.Worksheets("PRODUCTOS").Select ThisWorkbook.Worksheets("PRODUCTOS").Range("a1").End(xlDown).Activate Dim ultimoid As Integer ultimoid = ActiveCell.Value ultimoid = ultimoid + 1 Me.id_label = "ID: " & ultimoid With Me.unidad_combo .AddItem "UNIDAD" .AddItem "ML" End With Me.descripcion_cuadro.SetFocus End Sub cual es el error por el cual no puedo escribir en el cuadro de texto DESCRIPCION. SLDS
Hola Alex!! muchisimas gracias por toda el conocimiento que compartes y gracias por ser tan bueno explicando, te cuento que he seguido cada uno de los pasos pero resulta que cuando guardo un nuevo producto me sustituye la ultima linea entonces solo me aparece un producto ¿me podrias Ayudar?
Como estas amigo estoy interesado en hacer una macro para llegar control de un local como puedo comunicarme contigo para que me elabores una mil gracias.
no se si me pudieras ayudar en el boton borrar ya que todo va bien, selecciono lo que deseo borrar pero no me reconoce la variables linea = fila.Row no se a que se deba no se si me puedas ayudar
Hola Inge Tengo un problema en el momento de implementar el .AddItem, ,me sale error.. NO SE ENCONTRO EL MÉTODO O EL DATO, usted me puede colaborar ... Quede barado ahí
Saludos, estoy aprendiendo y he seguido todos los procedimientos 1 a 1 y me había estado yendo muy bien hasta que llegue en este video sesión 2 cuando escribí el código en el modulo from_productos específicamente en el botón de agregar e hice lo siguiente voy a numerar las filas para poder indicar la linea del error 1 Private Sub boton_agregar_Click() 2 Me.lista_productos = Clear 3 Me.lista_productos.RowSource = Clear 4 5 Load agregar_productos 6 Me.Hide 7 Unload e 8 agregar_productos.show 9 End Sub El que se muestra cuando corremos el formulario y le damos al boton agregar es: "Error de compilación: No se ha definido la Variable" y al darle aceptar coloca sombreado en amarillo la linea 1 y selecciona la palabra Clear de la linea 2, y no entiendo a que variable se esta refiriendo, gracias por la ayuda que me pueda prestar... Igual pasa en el boto eliminar con la misma instrucción luego que se le dice 1 If respuesta = vbYes Then 2 Me.lista_productos = Clear 3 Me.lista_productos.RowSource = Clear El que se muestra cuando corremos el formulario y le damos al boton eliminar es: "Error de compilación: No se ha definido la Variable" y al darle aceptar coloca sombreado en amarillo la linea 1 y selecciona la palabra Clear de la linea 2 inicialmente este boton me dio error con la linea respuesta = MsgBox("¿Esta seguro........ aquí generaba el mismo erro "Error de compilación: No se ha definido la Variable" lo repare declarando la variable respuesta as boolean luego de arreglado esto el siguente eror es el de la linea Me.lista_productos = Clear y continuo en ese dilema Por favor espero pueda ayudarme, gracias
GENIAL, ING ALEX TENGO UN PROBLEMA, EN LA PARTE DEL BORRADO: ThisWorkbook.Worksheets("PRODUCTOS").Range("A" & linea).EntireRow.Delate CUANDO VOY A ELIMINAR ME SALE ERROR EN ESTA LINEA QUE PODRIA ESTAR PASANDO ING?
Hola muy buen video para los que estamos aprendiendo. Fijate que tengo una duda en mi codigo cuando lo ejecuto y estoy en la pantalla de agregar_productos los agrega pero sustituyendo los anteriores, es decir, sobre escribe el que ya tengo en mi tabla =( que estare haciendo mal o me falte, Gracias!!!
buenas noches, tengo el mismo problema, al agregar no aumenta la fila hacia abajo, si no que sobre escribe en el ultimo codigo y ya revise varias veces y escribo el codigo tal cual esta en el video, espero puedan ayudarme
hola, super los videos, pero tengo un problema, al agregar un nuevo producto, darle a guardar, se borrar todo y solo aparece el producto nuevo guardado.
Hola Alejandro, estoy encantada con estos tutoriales, pero no he avanzado porque me genera error "no se ha definido sub o function", asi es como tengo la formula: Private Sub UserForm_Activate() ThisWorkbook.Worksheets("PRODUCTOS").Select ThisWorkbook.Worksheets("PRODUCTOS").Range("al").End(xlDown).Activate Dim ultimoreferencia As Integer ultimoreferencia = ActiveCell.Value ultimoreferencia = ultimoreferencia + 1 Me.referencia_label = "REF: " & ultimoreferencia Whit Me.cantidad_combo .AddItem "UND" .AddItem "SET" End Whit Me.descrpcion_cuadro.SetFocus End Sub Espero me puedas ayudar, te agradeceria mucho, un abrazo
Hola Ing Alex, yo seguí todo el proceso, pero al momento de ingresar otro producto en Excel no se baja, el ID se cambia de número, pero solo se me cambia en la misma fila, cada producto que agrego, por favor
Tengo una pregunta. ¿Por qué cuando lo pruebo en otra máquina me genera errores?, por ejemplo el "fuera de intervalo" o "sub índice" y así. Espero me ayudes porque lo desarrollé en base a todas éstas secciones y me va muy bien, salvo que en otra PC genera ese tipos de errores.
Hola como estas?? Saludos desde Chile. Tengo problema, si me puedes ayudar por favor : . AddItem "Pieza" (el .AddItem en azul) Dice "No se encontró el método o el dato miembro" Private Sub UserForm_Activate ( ) en amarillo Te agradezco tu respuesta muchas gracias
@@ingealex Que tal Ing me quede en esa parte ya hice esa solucion y me sigue marcando error. no hay que declara otra linea o algun libreria que se haya visto?
Buenas tardes!! antes que nada, excelente material seguro que le dedicaste mucho trabajo y te felicito porque ha sido toda una inversión de tiempo el ver lo que estas preparando. Tengo una enorme duda respecto al botón de eliminar: cuando no hay objetos seleccionados el cuadro emergente programado aparece sin problema sin embargo cuando ya esta seleccionada la fila no me permite eliminar y me aparece lo siguiente en una ventana emergente: Se ha producido el error '91' en tiempo de ejecución: Variable de objeto o bloque With no establecido el código es una transcripción del tuyo: Private Sub boton_eliminar_Click() ThisWorkbook.Worksheets("PRODUCTOS").Select Dim var As Integer var = Me.Lista_productos.ListIndex If var = -1 Then MsgBox "Debes seleccionar primero un producto para eliminarlo", vbExclamation, "ADVERTENCIA" Exit Sub End If Dim codigo As Integer codigo = Me.Lista_productos.List(Me.Lista_productos.ListIndex, 0) Dim fila As Object Dim linea As Integer ------------------------------>linea = fila.Row respuesta = MsgBox("¿Deseas borrar PERMANTEMENTE este producto?", vbYesNo, "CONFIRMACIÓN") If respuesta = vbYes Then Me.Lista_productos = Clear Me.Lista_productos.RowSource = Clear ThisWorkbook.Worksheets("PRODUCTOS").Range("A" & linea).EntireRow.Delete MsgBox "El producto ha sido eliminado exitosamente", vbInformation, "ELIMINACIÓN CONFIRMADA" Me.Lista_productos.RowSource = "tabla_productos" Me.Lista_productos.ColumnCount = 5 Me.Lista_productos.ColumnWidths = "20;200;80;50;50;" End If End Sub El error me lo muestra en la línea: "linea=fila.Row" ¿podrías echarme una mano?
Saludos Alex, baje la aplicación del punto de venta para probarla pero me pide usuario y contraseña, me puedes dar alguna para abrir el archivo..Gracias
Holaaa, todo me ha funcionado súper, solo una pregunta, a mi no me cambia el ID ni me pone ningún número se quedo solo ID. Como hago para que ponga los números? Según yo escribí perfectamente igual los códigos, lo demás funciona súper pero ahí es el único problema que tengo. Espero me pueda ayudar! :)
hola buenas tardes, son muy buenos los videos, pero tengo una dificulta, cuando abro el programa y me dirigo a productos, dice que "no teniene permitido acceder a este apartado" algún me explica como tengo que configurar, gracias
Lo que sucede que el sistema es producto del curso, agregamos usuarios para poder evitar que personas ingresaran a ventanas. Un usuario que agregamos fue usuario:alexh, contraseña: alexh
Hola Alex, estoy iniciando en este mundo del visual basic he seguido pie de la letra todas las indicaciones, pero presente un error en el cuadro de texto descripción, creo que me falto vincularlo, pero no puedo escribir nada sobre el.
Hola Edwin Ruedas, a mi me pasaba igual, pero revisando los códigos vi que había un error en fila = ThisWorkbook.Worksheets("PRODUCTOS").Cells(Rows.Count, "A").End(xlUp).Row; donde la sección (Rows.Count,"A") la palabra estaba escrita como Row "sin la s", al añadirla se solucionó el problema.
Un 10 por los vídeos, pero tengo una duda. El punto de venta que dejas descargar, ¿se puede utilizar modificando los datos de empresa? gracias. Es que a la hora de crearlo tengo muchos problemas.
Hola si descargo el gratuito le pedirá usuario y contraseña porque ese archivo es producto de este curso completo, si lo que desea es un punto de venta funcional, te invito a obtener el punto de venta completo premium, por sólo $2 usd ua-cam.com/video/oXZP6b_m0qY/v-deo.html
Hola Alex, estoy aprendiendo con tu curso, voy siguiendo los pasos pero me encontré con este error , se a producido el error ‘13’ en el tiempo de ejecución: No coinciden los tipos, Enseguida le doy depurar y me envía donde se supone está el error, ultimoid = ActiveCell.value y pues no he podido continuar, me gustaría que me ayudara gracias
Hola buenos día Alejandro gracias por el aporte que da a la comunidad yo estoy intentando seguir tus tuto pero me e quedado atacado en el videos tres cuando eje cuto la aplicación me sale un erro "9" en tiempo ejecución, subíndice fuera de intervalo. Private Sub UserForm_Activate() ThisWorkbook.Worksheets("PRODUCTOS").Select ✔cuando pico en depurar me manda a esta linea de código ThisWorkbook.Worksheets("PRODUCTOS").Range("A1").End(xlDown).ATVATR Dim ultimocod As Integer ultimocod = ActiveCell.Value ultimocod = ultimocod + 1 Me.LBL_COD = "COD: " & ultimocod With Me.Combo_udemedida .AddItem "ud" .AddItem "KL" .AddItem "L " .AddItem "PEZA" End With Me.LBL_DESCRIPCION.SetFocus End Sub utilizo office 216 como puedo solucionarlo gracias y feliz Año 2021
@@ingealex Gracias por tu pronta repuesta cierto estaba mal escrito Activate pero el código que me da el error es concretamente esta lineal de código ThisWorkbook.Worksheets("PRODUCTOS").Select
buena comunidad me da el siguiente error se a producido el error 1004 en en tiempo de ejecución. error definido por la aplicación o el objeto. ayuda...
@@ingealex vacicamente tengo lio con la id si elimino los codigo: ThisWorkbook.Worksheets("PRODUCTOS").Select ThisWorkbook.Worksheets("PRODUCTOS").Range("a1").End(x1Down).Activate se ejecuta la pantalla pero el id se inicia en 1 , mas no en el ultimo que en micaso seria 3....
@@ingealex Private Sub UserForm_Activate() ThisWorkbook.Worksheets("PRODUCTOS").Select ThisWorkbook.Worksheets("PRODUCTOS").Range("a1").End(x1Down).Activate Dim ultimoid As Integer ultimoid = ActiveCell.Value ultimoid = ultimoid + 1 Me.id_Label = "ID: " & ultimoid With Me.unidad_combo .AddItem "Kg" .AddItem "Lts" .AddItem "Pieza" .AddItem "Bulto" End With Me.descripcion_cuadro.SetFocus End Sub básicamente tengo lio con la id gracia por la promta respuesta
Hola no puedo seguir en el botón agregar me pide una variable le pongo la variable y al finalizar me dice que no se encuentra el elemento show Que tengo que hacer.?
Excelente serie de videos, solo tengo un problema: cuando agrego un producto con éxito por primera vez y vuelvo a salir al menú inicio y luego vuelvo a entrar al menú agregar, cuando doy click en guardar aparece el error "error en el método Value de objeto Range". Al depurar veo que es en la linea ".Offset.Value=ultimoid" y experimentando me doy cuenta de que ocurre si quiero grabar el dato en cualquier otro valor de offset. Espero pueda ayudarme, gracias.
Hola buenas tardes amigo, tengo un problema el cual es, que cuando pongo un nuevo producto en este caso con ID 3, sustituye al que tiene ID2, ¿Porque pasa esto?
Hola, a mi me pasaba igual, pero revisando los códigos vi que había un error en fila = ThisWorkbook.Worksheets("PRODUCTOS").Cells(Rows.Count, "A").End(xlUp).Row; donde la sección (Rows.Count,"A") la palabra estaba escrita como Row "sin la s", al añadirla se solucionó el problema.
Hola, gracias por ver! Conseguiste resolverlo? Es posible que no salte a la siguiente línea...igualmente te dejo un vídeo de un curso más reciente donde nuestro la forma también de agregar registros, previniendo errores ua-cam.com/video/B5d7rHbY20k/v-deo.html
@@ingealex Hola buenas tardes, tengo un problema al momento de guardar un producto, en la parte de excell se elimina el producto anterior y se agrega el nuevo, no desliza las nuevas líneas de productos agregados 😕
buenas! muchas gracias por el video. tengo un error, el VBA no me ejecuta ".Value = ultimoid" en la parte del boton guardar. me dice que seleccione un objeto.
tengo el mismo problema, yo quiero lograr que el ultimo id no se autorellene. Quiero lograr que tenga el espacio en blanco para rellenar con el lector de codigo de barras. Lograste solucionarlo?
Excelente, gracias por tus aportes, soy principiante en esto y estado siguiendo tal cual tus instrucciones pero tengo 2 errores y no me da la ejecución del 2do video y el 3ro Agradeceré me brindes un contacto para poder escribirte y me puedas ayudar Saludos
@@ingealex Private Sub UserForm_Activate() ThisWorkbook.Worksheets("PRODUCTOS").Select ThisWorkbook.Worksheets("PRODUCTOS").Range("A1").End(xlDown).Activete Dim ultimocod As Integer ultimocod = ActiveCell.Value ultimocod = ultimocod + 1 Me.ID_LABEL = "ID: " & ultimocod With Me.UNIDAD_COMBO AddItem "Pieza" AddItem "Kg" AddItem "Lts" AddItem "Metros" AddItem "Costal" End With (ME APARECE EL ERROR DE COPILACION: NO SE HA DEFINIDO SUB OFUNCTION)
YO PUDE RESOLVERLO DE LA SIG. FORMA PERO DECRECIENDO ULTIMO ES EL PRIMERO Y EL PRIMERO ES EL ULTIMO ESTO EN CUESTION DE LOS ID PASO CODIGO POR SI LES SIRVE: Dim v As Long With Hoja1
v = .Cells(2, 1) .Cells(2, 2) = Me.descrpcion_cuadro .Cells(2, 3) = Me.unidad_combo .Cells(2, 4) = Me.precio_cuadro v = v + 1 .Rows(2).Insert .Cells(2, 1) = v End With
FELICIDADES , ERES INCREIBLE. QUE DIOS TE BENDIGA MAS😘
Amigo, muchas gracias, bajé la aplicacion, la que dice (SÓLO EXCEL) y para lo que necesito de momento me va muy bien, de verdad muchas gracias por dedicar tu tiempo a ayudar.
Mucho éxito
me funciono muchas gracias vamos por la leccion 3
Excelente video. A mi me dió error porque el código no lo puse automático, sino digitado. Lo solucioné cambiando
As Interger por As Long. Gracias!
tengo una duda, si uno crea un punto de venta tambien en ese mismo punto se puede poner la opcion de imprimir la factura que se genere
Si se puede amigo
Excelente Inglés.
BUENAS NOCHES, AL MOMENTO DE HACER LA VENTA ME MANDA POR DEFAULT LA IMPRESION DEL TICKET, HAY ALGUNA MANERA DE DESACTIVAR ESA FUNCION YA QUE NO DOY TICKETS POR EL MOMENTO??
hola Ing gracias por el video solo quiero que me ayudes cuando agrego el producto y lo guardo en vez de caer en la fila siguiente cae en la ultima fila y ya revise todo y esta igualito al de usted ? que puede ser
Buenas tarde ing. estoy en el video 2, cuando voy a agregar productos no me deja escibir en el cuadro de texto tampoco puedo escribir en el precio promedio
Private Sub UserForm_Activate()
ThisWorkbook.Worksheets("PRODUCTOS").Select
ThisWorkbook.Worksheets("PRODUCTOS").Range("a1").End(xlDown).Activate
Dim ultimoid As Integer
ultimoid = ActiveCell.Value
ultimoid = ultimoid + 1
Me.id_label = "ID: " & ultimoid
With Me.unidad_combo
.AddItem "UNIDAD"
.AddItem "ML"
End With
Me.descripcion_cuadro.SetFocus
End Sub
cual es el error por el cual no puedo escribir en el cuadro de texto DESCRIPCION.
SLDS
Hola amigo, excelente vídeo, espero con ansias la tercera parte.
Gracias, muchos éxito Pierre
Oye ayudame con un error que me sale por favor
Hola Alex!! muchisimas gracias por toda el conocimiento que compartes y gracias por ser tan bueno explicando, te cuento que he seguido cada uno de los pasos pero resulta que cuando guardo un nuevo producto me sustituye la ultima linea entonces solo me aparece un producto ¿me podrias Ayudar?
tengo el mismo error de casualidad lo pudiste resolver???
Como estas amigo estoy interesado en hacer una macro para llegar control de un local como puedo comunicarme contigo para que me elabores una mil gracias.
Grande gracias por el aporte, me suscribo!
Muchas gracias!
hola amigo que tal. Tengo un Problemas Me Podras ayudar
no se si me pudieras ayudar en el boton borrar ya que todo va bien, selecciono lo que deseo borrar pero no me reconoce la variables linea = fila.Row no se a que se deba no se si me puedas ayudar
Hola Inge
Tengo un problema en el momento de implementar el .AddItem, ,me sale error.. NO SE ENCONTRO EL MÉTODO O EL DATO, usted me puede colaborar ... Quede barado ahí
tengo el mismo problema, como si no reconociera el comando .AddItem, que version de office usas?
Saludos, estoy aprendiendo y he seguido todos los procedimientos 1 a 1 y me había estado yendo muy bien hasta que llegue en este video sesión 2 cuando escribí el código en el modulo
from_productos específicamente en el botón de agregar e hice lo siguiente voy a numerar las filas para poder indicar la linea del error
1 Private Sub boton_agregar_Click()
2 Me.lista_productos = Clear
3 Me.lista_productos.RowSource = Clear
4
5 Load agregar_productos
6 Me.Hide
7 Unload e
8 agregar_productos.show
9 End Sub
El que se muestra cuando corremos el formulario y le damos al boton agregar es: "Error de compilación: No se ha definido la Variable" y al darle aceptar coloca sombreado en amarillo la linea 1 y selecciona la palabra Clear de la linea 2, y no entiendo a que variable se esta refiriendo, gracias por la ayuda que me pueda prestar...
Igual pasa en el boto eliminar con la misma instrucción luego que se le dice
1 If respuesta = vbYes Then
2 Me.lista_productos = Clear
3 Me.lista_productos.RowSource = Clear
El que se muestra cuando corremos el formulario y le damos al boton eliminar es: "Error de compilación: No se ha definido la Variable" y al darle aceptar coloca sombreado en amarillo la linea 1 y selecciona la palabra Clear de la linea 2
inicialmente este boton me dio error con la linea
respuesta = MsgBox("¿Esta seguro........ aquí generaba el mismo erro "Error de compilación: No se ha definido la Variable" lo repare declarando la variable respuesta as boolean luego de arreglado esto el siguente eror es el de la linea Me.lista_productos = Clear y continuo en ese dilema
Por favor espero pueda ayudarme, gracias
Hola, lo lograste solucionar?
GENIAL, ING ALEX TENGO UN PROBLEMA, EN LA PARTE DEL BORRADO:
ThisWorkbook.Worksheets("PRODUCTOS").Range("A" & linea).EntireRow.Delate
CUANDO VOY A ELIMINAR ME SALE ERROR EN ESTA LINEA
QUE PODRIA ESTAR PASANDO ING?
Hola amigo todo muy bien espero que me puedas ayudar nececito que en la pestaña de ventas me aparezca la descripcion espero me puedas ayudar
Hola oye te mandé msj por instrucciones y no lo has visto puedes checar?
Hola. Muy bien video. Tengo un problema, no me sale la opción "additems" que debo hacer?
Hola una disculpa, pudiste resolver tu problema?
Hola muy buen video para los que estamos aprendiendo. Fijate que tengo una duda en mi codigo cuando lo ejecuto y estoy en la pantalla de agregar_productos los agrega pero sustituyendo los anteriores, es decir, sobre escribe el que ya tengo en mi tabla =( que estare haciendo mal o me falte, Gracias!!!
lograste solucionar el problemas?
buenas noches, tengo el mismo problema, al agregar no aumenta la fila hacia abajo, si no que sobre escribe en el ultimo codigo y ya revise varias veces y escribo el codigo tal cual esta en el video, espero puedan ayudarme
Estoy igual que tú, como lo solucionaste?
me dice un error que no se encontro el metodo o dato del miembro
¿porque no me salen los productos en la lista de productos?
hola, super los videos, pero tengo un problema, al agregar un nuevo producto, darle a guardar, se borrar todo y solo aparece el producto nuevo guardado.
Me pasa lo mismo :(
Como lo solucionaste??
Porque agregando una “S” no soluciona el problema
saludos estimado tengo un error en el ThisWorkbook.Worksheets("PRODUCTOS").Range("a1").End(x1Down).Active CUAL ES TU RRECOMENDACION AL RESPECTO
a mi tambien me sale ese error jaja. de hecho lo estoy haciendo en este momento.
Tengo el mismo problema
ThisWorkbook.Worksheets("PRODUCTOS").Range("a1").End(xlDown).Active .. disculpen tienen el error en (x1Down) sustituyen el 1 por una l
Hola una disculpa por la tardanza, eh cambiar el 1 por (l) "ele" saludos. Y gracias por ver
ya somos varios
Buenos días con todos ingeniero realice todos los paso pero no me sale en este tutorial 2 ni agregar ni guardar no logro descifrar el error
Hola Alejandro, estoy encantada con estos tutoriales, pero no he avanzado porque me genera error "no se ha definido sub o function", asi es como tengo la formula: Private Sub UserForm_Activate()
ThisWorkbook.Worksheets("PRODUCTOS").Select
ThisWorkbook.Worksheets("PRODUCTOS").Range("al").End(xlDown).Activate
Dim ultimoreferencia As Integer
ultimoreferencia = ActiveCell.Value
ultimoreferencia = ultimoreferencia + 1
Me.referencia_label = "REF: " & ultimoreferencia
Whit Me.cantidad_combo
.AddItem "UND"
.AddItem "SET"
End Whit
Me.descrpcion_cuadro.SetFocus
End Sub
Espero me puedas ayudar, te agradeceria mucho, un abrazo
Hola tengo el mismo error Lograste solucionarlo?
Hola ya pudiste resolver este error?
no es porq usas activate en ves de active¿
yo en la parte de additem no puedo y encontre una posible solucion pero no se si este bien
Hola Ing Alex, yo seguí todo el proceso, pero al momento de ingresar otro producto en Excel no se baja, el ID se cambia de número, pero solo se me cambia en la misma fila, cada producto que agrego, por favor
pudiste arreglarlo
TENGO EL MISMO PROBLEMA NO SE QUE HACER
Tengo una pregunta. ¿Por qué cuando lo pruebo en otra máquina me genera errores?, por ejemplo el "fuera de intervalo" o "sub índice" y así. Espero me ayudes porque lo desarrollé en base a todas éstas secciones y me va muy bien, salvo que en otra PC genera ese tipos de errores.
Hola, una disculpa por la tardanza, lograste resolverlo?
@@ingealex No bro para nada.
@@kevinhernandez7324 mándame captura de la línea donde te salta el error a mi correo va ? alejandrohdez.ind@gmail.com
@@ingealex Perfecto.
Hola como estas?? Saludos desde Chile.
Tengo problema, si me puedes ayudar por favor :
. AddItem "Pieza" (el .AddItem en azul)
Dice "No se encontró el método o el dato miembro"
Private Sub UserForm_Activate ( ) en amarillo
Te agradezco tu respuesta muchas gracias
Hola el detalle es que excel no reconoce a qué hay que aplicarle el Additem.
Hay que asegurarnos de tener
Width Me.(nombre del Comobox)
.Additem "Pieza"
End With
Ok muchas gracias.
Lo intentare
@@ingealex definitivamente no me funciona..
Me podrías ayudar a agregar el .AddItem.
Me imagino que ese es mi problema
Muchas gracias
@@ingealex Que tal Ing me quede en esa parte ya hice esa solucion y me sigue marcando error. no hay que declara otra linea o algun libreria que se haya visto?
Buenas tardes!! antes que nada, excelente material seguro que le dedicaste mucho trabajo y te felicito porque ha sido toda una inversión de tiempo el ver lo que estas preparando. Tengo una enorme duda respecto al botón de eliminar: cuando no hay objetos seleccionados el cuadro emergente programado aparece sin problema sin embargo cuando ya esta seleccionada la fila no me permite eliminar y me aparece lo siguiente en una ventana emergente:
Se ha producido el error '91' en tiempo de ejecución:
Variable de objeto o bloque With no establecido
el código es una transcripción del tuyo:
Private Sub boton_eliminar_Click()
ThisWorkbook.Worksheets("PRODUCTOS").Select
Dim var As Integer
var = Me.Lista_productos.ListIndex
If var = -1 Then
MsgBox "Debes seleccionar primero un producto para eliminarlo", vbExclamation, "ADVERTENCIA"
Exit Sub
End If
Dim codigo As Integer
codigo = Me.Lista_productos.List(Me.Lista_productos.ListIndex, 0)
Dim fila As Object
Dim linea As Integer
------------------------------>linea = fila.Row
respuesta = MsgBox("¿Deseas borrar PERMANTEMENTE este producto?", vbYesNo, "CONFIRMACIÓN")
If respuesta = vbYes Then
Me.Lista_productos = Clear
Me.Lista_productos.RowSource = Clear
ThisWorkbook.Worksheets("PRODUCTOS").Range("A" & linea).EntireRow.Delete
MsgBox "El producto ha sido eliminado exitosamente", vbInformation, "ELIMINACIÓN CONFIRMADA"
Me.Lista_productos.RowSource = "tabla_productos"
Me.Lista_productos.ColumnCount = 5
Me.Lista_productos.ColumnWidths = "20;200;80;50;50;"
End If
End Sub
El error me lo muestra en la línea: "linea=fila.Row"
¿podrías echarme una mano?
solucionado!!!! muchas gracias!!!
Hola, disculpa la tardanza, que bueno que conseguiste solucionarlo. Mucha suerte!
@@ingealex muchas gracias
Yo tengo el mismo error, como lo solucionaste?
@@batgam4089 ..como lo solucionaste??
Saludos Alex, baje la aplicación del punto de venta para probarla pero me pide usuario y contraseña, me puedes dar alguna para abrir el archivo..Gracias
Holaaa, todo me ha funcionado súper, solo una pregunta, a mi no me cambia el ID ni me pone ningún número se quedo solo ID. Como hago para que ponga los números? Según yo escribí perfectamente igual los códigos, lo demás funciona súper pero ahí es el único problema que tengo. Espero me pueda ayudar! :)
Hola! Lo conseguiste resolver?
@@ingealex No no he podido :(
@@feygirly Al final tienes que cerrar con el movimiento de ese valor, para que cambie y cuando ingreses datos sea con el nuevo valor
Hola disculpa descargue tu archivo pero al ejecutar em pide un usuario y contraseña
hola buenas tardes, son muy buenos los videos, pero tengo una dificulta, cuando abro el programa y me dirigo a productos, dice que "no teniene permitido acceder a este apartado" algún me explica como tengo que configurar, gracias
Lo que sucede que el sistema es producto del curso, agregamos usuarios para poder evitar que personas ingresaran a ventanas. Un usuario que agregamos fue usuario:alexh, contraseña: alexh
BUENAS EXELENTE TU VIDEO. TENGO UNA DUDA PUES AMI NO ME AGARRA EL METODO ADDITEM QUE PUEDO HACER?
Hola gracias por ver! Hay que asegurarnos de que el nombre de la lista sea correcto, pudiste resolver el problema?
Inge, hay manera de obtener el sistema de vetas sin q me bloquee, le a gradeceré que me contestara
Hola, muchas gracias por ver, disculpa, el código es abierto si no me equivoco, deseas que no se pueda bloquear por usuario? O como?
Hola Alex, estoy iniciando en este mundo del visual basic he seguido pie de la letra todas las indicaciones, pero presente un error en el cuadro de texto descripción, creo que me falto vincularlo, pero no puedo escribir nada sobre el.
Hola, gracias por ver, pudiste resolver tu problema?
@@ingealex hola no no pude resolver mi problema, no puedo activar el cuadro de texto descripción, del formulario agregar productos
@@joys25 Hola, verifica que la propiedad Locked del Textbox esté en False
Gracias por estos tutoriales, tengo un pequeño problema cunado le doy guarda a un artículo me lo guarda en una misma columna siempre queda en el ID2
Hola Edwin Ruedas, a mi me pasaba igual, pero revisando los códigos vi que había un error en fila = ThisWorkbook.Worksheets("PRODUCTOS").Cells(Rows.Count, "A").End(xlUp).Row; donde la sección (Rows.Count,"A") la palabra estaba escrita como Row "sin la s", al añadirla se solucionó el problema.
Muchas gracias por el apoyo
@@ingealex al contrario, muchisimas gracias por crear, mediante estos cursos, la oportunidad de adquirir nuevos conocimientos y superarnos.
@@juniorcollado5973lo hice pero no me funcionó
Un 10 por los vídeos, pero tengo una duda. El punto de venta que dejas descargar, ¿se puede utilizar modificando los datos de empresa? gracias. Es que a la hora de crearlo tengo muchos problemas.
Porfavor me puede ayudar descargue el exel pero no puedo agregar productos
Hola si descargo el gratuito le pedirá usuario y contraseña porque ese archivo es producto de este curso completo, si lo que desea es un punto de venta funcional, te invito a obtener el punto de venta completo premium, por sólo $2 usd ua-cam.com/video/oXZP6b_m0qY/v-deo.html
Hola Alex, estoy aprendiendo con tu curso, voy siguiendo los pasos pero me encontré con este error , se a producido el error ‘13’ en el tiempo de ejecución:
No coinciden los tipos,
Enseguida le doy depurar y me envía donde se supone está el error, ultimoid = ActiveCell.value y pues no he podido continuar, me gustaría que me ayudara gracias
Hola, gracias por ver conseguiste resolverlo? Si devuelve valor Null quiere decir que no está leyendo correctamente el id
Hola yo tengo el mismo problema se ahi ya no paso
Pudiste Solucionarlo?
Hola buenos día Alejandro gracias por el aporte que da a la comunidad yo estoy intentando seguir tus tuto pero me e quedado atacado en el videos tres cuando eje cuto la aplicación me sale un erro "9" en tiempo ejecución, subíndice fuera de intervalo.
Private Sub UserForm_Activate()
ThisWorkbook.Worksheets("PRODUCTOS").Select
✔cuando pico en depurar me manda a esta linea de código
ThisWorkbook.Worksheets("PRODUCTOS").Range("A1").End(xlDown).ATVATR
Dim ultimocod As Integer
ultimocod = ActiveCell.Value
ultimocod = ultimocod + 1
Me.LBL_COD = "COD: " & ultimocod
With Me.Combo_udemedida
.AddItem "ud"
.AddItem "KL"
.AddItem "L "
.AddItem "PEZA"
End With
Me.LBL_DESCRIPCION.SetFocus
End Sub
utilizo office 216 como puedo solucionarlo gracias
y feliz Año 2021
Hola sr Germán, gracias por ver! Desconozco la expresión después de "(xlDown)" si mal no me equivoco debería ser Activate?
@@ingealex Gracias por tu pronta repuesta cierto estaba mal escrito Activate
pero el código que me da el error es concretamente esta lineal de código ThisWorkbook.Worksheets("PRODUCTOS").Select
buena comunidad me da el siguiente error se a producido el error 1004 en en tiempo de ejecución. error definido por la aplicación o el objeto. ayuda...
Hola gracias por ver... en qué momento te arroja el error?
@@ingealex vacicamente tengo lio con la id si elimino los codigo:
ThisWorkbook.Worksheets("PRODUCTOS").Select
ThisWorkbook.Worksheets("PRODUCTOS").Range("a1").End(x1Down).Activate
se ejecuta la pantalla pero el id se inicia en 1 , mas no en el ultimo que en micaso seria 3....
@@ingealex
Private Sub UserForm_Activate()
ThisWorkbook.Worksheets("PRODUCTOS").Select
ThisWorkbook.Worksheets("PRODUCTOS").Range("a1").End(x1Down).Activate
Dim ultimoid As Integer
ultimoid = ActiveCell.Value
ultimoid = ultimoid + 1
Me.id_Label = "ID: " & ultimoid
With Me.unidad_combo
.AddItem "Kg"
.AddItem "Lts"
.AddItem "Pieza"
.AddItem "Bulto"
End With
Me.descripcion_cuadro.SetFocus
End Sub
básicamente tengo lio con la id
gracia por la promta respuesta
@@anibalmartinez5442 verifica que si sea l en (xldown) porque a mí me parece 1
@@ingealex ok verificaré más tardé gracias por responder.....
Hola no puedo seguir en el botón agregar me pide una variable le pongo la variable y al finalizar me dice que no se encuentra el elemento show
Que tengo que hacer.?
Hola, ya lo conseguiste resolver?
@@ingealex BRO HERMANO AL MOMENTO DE AGREGAR TODO BIEN PERO EN MI HOJA DE EXCEL COMO QUYE SE SUBE Y SE BOORA EL PRIMERO
PRODUCTO
Hola buenas
Excelente serie de videos, solo tengo un problema: cuando agrego un producto con éxito por primera vez y vuelvo a salir al menú inicio y luego vuelvo a entrar al menú agregar, cuando doy click en guardar aparece el error "error en el método Value de objeto Range". Al depurar veo que es en la linea ".Offset.Value=ultimoid" y experimentando me doy cuenta de que ocurre si quiero grabar el dato en cualquier otro valor de offset. Espero pueda ayudarme, gracias.
Conseguiste resolverlo?
Hola buenas tardes amigo, tengo un problema el cual es, que cuando pongo un nuevo producto en este caso con ID 3, sustituye al que tiene ID2, ¿Porque pasa esto?
Hola, a mi me pasaba igual, pero revisando los códigos vi que había un error en fila = ThisWorkbook.Worksheets("PRODUCTOS").Cells(Rows.Count, "A").End(xlUp).Row; donde la sección (Rows.Count,"A") la palabra estaba escrita como Row "sin la s", al añadirla se solucionó el problema.
hola buenas tarde excelente vide pero cuando doy guardar siempre queda en la misma parte y me borra el producto anterior
Hola, gracias por ver! Conseguiste resolverlo? Es posible que no salte a la siguiente línea...igualmente te dejo un vídeo de un curso más reciente donde nuestro la forma también de agregar registros, previniendo errores ua-cam.com/video/B5d7rHbY20k/v-deo.html
@@ingealex Hola buenas tardes, tengo un problema al momento de guardar un producto, en la parte de excell se elimina el producto anterior y se agrega el nuevo, no desliza las nuevas líneas de productos agregados 😕
buenas! muchas gracias por el video.
tengo un error, el VBA no me ejecuta ".Value = ultimoid" en la parte del boton guardar. me dice que seleccione un objeto.
tengo el mismo problema, yo quiero lograr que el ultimo id no se autorellene. Quiero lograr que tenga el espacio en blanco para rellenar con el lector de codigo de barras. Lograste solucionarlo?
@@maxi2274 hola maxi! si, estaba tipeando mal el comando. en vez de usar active usaba actívate. (en mi caso)
@@leonardoarce8937 gracias!
BUENAS NOCHES AMIGO TE SALUDO DESDE EL SALVADOR.
ESTOY EN EL VIDEO 2, Y TENGO UN PROBLEMA SOLO ME GUARDA EL ID Y LOS DEMAS CAMPO NO ME LOS GUARDA.
Hola que tal gracias por ver, pudo resolverlo?
@@ingealex Buenas tardes amigo no puedo resolver el problema. Solo me agrega los campos de ID y el precio los demas campos no me los agregs.
Excelente, gracias por tus aportes, soy principiante en esto y estado siguiendo tal cual tus instrucciones pero tengo 2 errores y no me da la ejecución del 2do video y el 3ro
Agradeceré me brindes un contacto para poder escribirte y me puedas ayudar
Saludos
Hola puedes enviarme correo con capturas a alejandrohdez.ind@gmail.com. Muchas gracias por ver!
@@ingealex muchas gracias... Te estaré enviando mis consultas
EL archivo de punto de venta me pide usuario y contraseña me la puede dar gracias
Hola el archivo es resultado de un curso, pero el código es libre y editable:
Usuario: alexh
Contraseña: alexh
@@ingealex gracias
tengo un error 438 de alli no avanzo
muy bueno tu conternido, aprendi mucho, pero con mucho trabajo, la music de fondo que pones esta demasiado alta
Hola gracias por ver! Si, he tratado de mejorar eso en los vídeos futuros, saludos.
Hola, amigo pasa el código, lo ejecuto y me sale error
Hola que error te aparece?
@@ingealex Private Sub UserForm_Activate()
ThisWorkbook.Worksheets("PRODUCTOS").Select
ThisWorkbook.Worksheets("PRODUCTOS").Range("A1").End(xlDown).Activete
Dim ultimocod As Integer
ultimocod = ActiveCell.Value
ultimocod = ultimocod + 1
Me.ID_LABEL = "ID: " & ultimocod
With Me.UNIDAD_COMBO
AddItem "Pieza"
AddItem "Kg"
AddItem "Lts"
AddItem "Metros"
AddItem "Costal"
End With
(ME APARECE EL ERROR DE COPILACION: NO SE HA DEFINIDO SUB OFUNCTION)
Ing y no hay manera de obtener su sistema, este sábado tengo examen y debo de presentar uno y lo estoy haciendo pero no me corre
Claro que sí, vaya mi página personal, www alejo.page/recursos allí puede buscar el descargable del curso de punto de venta.
@@ingealex Gracias Ing, de la que me salvo
Me aparece error 13 de ahí ya no pase
Hola tengo un error
Me podrías ayudar con tu WhatsApp para que me ayudes.
el video se ve un poco borroso
YO PUDE RESOLVERLO DE LA SIG. FORMA PERO DECRECIENDO ULTIMO ES EL PRIMERO Y EL PRIMERO ES EL ULTIMO ESTO EN CUESTION DE LOS ID PASO CODIGO POR SI LES SIRVE:
Dim v As Long
With Hoja1
v = .Cells(2, 1)
.Cells(2, 2) = Me.descrpcion_cuadro
.Cells(2, 3) = Me.unidad_combo
.Cells(2, 4) = Me.precio_cuadro
v = v + 1
.Rows(2).Insert
.Cells(2, 1) = v
End With
Me sale herrror
mucha joda prefiero comprar un sistemas nomas