Terminado el periodo vacacional nos zambullimos en el tema de los Userform, mucho por aprender o consolidar conocimientos adquiridos. Gracias por tu tiempo. Saludos desde 🇪🇸
Estimado vi muchos videos son de muchísima ayuda. Estoy tratando de hacer un inventario de materias primas y productos terminados. Es decir, como asignar varias materias primas a un mismo producto y que luego marque la salida de esas materias primas. Tienes algo para ver?
Increíble tu trabajo. Yo no sabía que se podía hacer ese formulario que hiciste. Que probabilidad hay en que puedas crear un formulario que contenga estos botones : GUARDAR. ACTUALIZAR. BUSCAR. CANCELAR. REGRESAR. ADELANTAR. ELIMINAR REGISTRO.
Me está gustando el curso mucho, pero no me ha quedado claro cuando trabajar en modulos, cuando en thisworkbook, cuando en la hoja, :S, entiendo que en la hoja1 por ejemplo es para macros o funciones para esa hoja en concreto y thiswor... es para todo el libro, pero modulos para qué? , Muchas gracias por el curso y tu paciencia.
Hola muy buenos los videos, cnsulta tengo un archivo excel compartido, puedo hacer un formulario para que usen 4 usuarios a la ves o debo hacer 1 formulario por usuario
Gracias ingeniero por sus videos, le escribo desde colombia ya le dado aconocer su pagina a mis contatos de mi whatsapp quiero pedirle un favor especia usted me puede ayudar con un codigo visual basic para bloquear una plantilla y colocarle el seria del pc gracias
Saludos, En la version de Office 2021 dentro de la barra de herramientas (ToolBox) de los controles que se explican en este video aparece uno nuevo que se llama en inglés RefEdit, es posible adicionarlo a este video?
encontre este pero no es tan seguro, si a este se le puede agregar la serie del pc para que solo se pueda utilizar en un solo equivo mil gracias ingeniero...... Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets("Contar").Range("B1").Value = Sheets("Contar").Range("B1").Value + 1 End Sub Private Sub Workbook_Open() On Error Resume Next Usuario = Environ("USERNAME") Hora = (Now - Int(Now)) * 24 Select Case Hora Case 6 To 12 MsgBox " Buenos días " & Usuario MsgBox "ESTA PLANTILLA ES PROPIEDAD DE *************" MsgBox "TIENE DERECHO A UTILIZARLA PROHIBIDA SU VENTA, HAY UN RASTEADOR DE DATOS CUIDE MI CREACION GRACIAS POR ADQUIRIRLA " Case 12 To 18 MsgBox " Buenas tardes " & Usuario MsgBox "ESTA PLANTILLA ES PROPIEDAD DE ************" MsgBox "TIENE DERECHO A UTILIZARLA PROHIBIDA SU VENTA, HAY UN RASTEADOR DE DATOS CUIDE MI CREACION GRACIAS POR ADQUIRIRLA " Case Else MsgBox " Buenas noches " & Usuario MsgBox "ESTA PLANTILLA ES PROPIEDAD DE *************" MsgBox "TIENE DERECHO A UTILIZARLA PROHIBIDA SU VENTA, HAY UN RASTEADOR DE DATOS CUIDE MI CREACION GRACIAS POR ADQUIRIRLA " On Error Resume Next End Select cuenta = Sheets("Contar").Range("A1") Select Case cuenta Case Is = 10 GoTo bloqueo End Select Application.EnableCancelKey = xlErrorHandler On Error Resume Next Application.DisplayAlerts = False MsgBox "EN BREVE SE LE PEDIRA LA RENOVACION DE LA LICENCIA DE ESTA APLICACION" GoTo Fin ultimoaviso: Application.EnableCancelKey = xlErrorHandler On Error GoTo Ver_Error Application.DisplayAlerts = False licenciauso = InputBox("Introducir la licencia de uso") If licenciauso "********" Then MsgBox "Clave incorrecta; VUELVA A INTRODUCIR LA CLAVE" licenciauso2 = InputBox("licencia de uso 2ª oportunidad") If licenciauso2 "******" Then MsgBox "Clave incorrecta; ULTIMA OPORTUNIDAD PARA INTRODUCIR LA CLAVE, COMUNICARCE CON PABLO ENRIQUE QUEVEDO BENITO" licenciauso3 = InputBox("licencia de uso 3ª y Ultima oportunidad") If licenciauso3 "********" Then ActiveWorkbook.Close End If End If End If GoTo Fin bloqueo: Application.EnableCancelKey = xlErrorHandler On Error GoTo Ver_Error Application.DisplayAlerts = False licenciauso4 = InputBox("LICENCIA DE USO PARA DESBLOQUEAR") If licenciauso4 "*********" Then MsgBox "SE ACABO. APLICACION BLOQUEADA" ActiveWorkbook.Close End If GoTo Fin Ver_Error: ActiveWorkbook.Close Fin: End Sub
No veo la hora de que entres en materia. Gracias Sergio.
Terminado el periodo vacacional nos zambullimos en el tema de los Userform, mucho por aprender o consolidar conocimientos adquiridos.
Gracias por tu tiempo.
Saludos desde 🇪🇸
Hola Sergio muy interesante tus videos, listo para aprender formularios.
Sergio, mil manitas arriba.. jejeje seguidor numero 1 de sus vídeos.
Saludos maestro Sergio muchas gracias por compartir sus conocmimientos con nosotros
Estimado vi muchos videos son de muchísima ayuda. Estoy tratando de hacer un inventario de materias primas y productos terminados. Es decir, como asignar varias materias primas a un mismo producto y que luego marque la salida de esas materias primas. Tienes algo para ver?
Mucho por que aprender y practicar, aunque este tema tiene tiempo que vengo esperandolo...
Muchas gracias por el conocimiento, Saludos.
Hola Sergio, buenas tardes. Excelente introducción y mucha expectativa. Se que será de una inmensa utilidad. Tu infaltable ¡ Manito Arriba !. Saludos
Buenas noches Sergio, muchas gracias por tu tiempo y tus conocimientos, sigo el curso desde el primer día. Saludos
Lo esperado gracias por el apoyo bendiciones
Ohhhhh Gracias Sergio Alejandro Campos. Andaba buscando información, muy amable :D.
muy buen tema EXCELeINFO.lo mejor sergio sal2 pulgar arriba..
Muy interesante, como siempre. Lo comparto "curso de interés público"
muy buena explicación. Un saludo
Increíble tu trabajo. Yo no sabía que se podía hacer ese formulario que hiciste. Que probabilidad hay en que puedas crear un formulario que contenga estos botones : GUARDAR. ACTUALIZAR. BUSCAR. CANCELAR. REGRESAR. ADELANTAR. ELIMINAR REGISTRO.
Todo eso lo puedes hacer.
Gracias Sergio!
gracias sergio
Felicitaciones maestro
Me está gustando el curso mucho, pero no me ha quedado claro cuando trabajar en modulos, cuando en thisworkbook, cuando en la hoja, :S, entiendo que en la hoja1 por ejemplo es para macros o funciones para esa hoja en concreto y thiswor... es para todo el libro, pero modulos para qué? , Muchas gracias por el curso y tu paciencia.
Hola muy buenos los videos, cnsulta tengo un archivo excel compartido, puedo hacer un formulario para que usen 4 usuarios a la ves o debo hacer 1 formulario por usuario
Felicitaciones maestro una pregunta el cap 48 y 49 no se puede descargar el ejemplo por favor ayudame para descargar estos ejemplos gracias
Gracias ingeniero por sus videos, le escribo desde colombia ya le dado aconocer su pagina a mis contatos de mi whatsapp
quiero pedirle un favor especia usted me puede ayudar con un codigo visual basic para bloquear una plantilla y colocarle el seria del pc gracias
Saludos, En la version de Office 2021 dentro de la barra de herramientas (ToolBox) de los controles que se explican en este video aparece uno nuevo que se llama en inglés RefEdit, es posible adicionarlo a este video?
uy dificil tiene muchas opciones
encontre este pero no es tan seguro, si a este se le puede agregar la serie del pc para que solo se pueda utilizar en un solo equivo mil gracias ingeniero......
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Contar").Range("B1").Value = Sheets("Contar").Range("B1").Value + 1
End Sub
Private Sub Workbook_Open()
On Error Resume Next
Usuario = Environ("USERNAME")
Hora = (Now - Int(Now)) * 24
Select Case Hora
Case 6 To 12
MsgBox " Buenos días " & Usuario
MsgBox "ESTA PLANTILLA ES PROPIEDAD DE *************"
MsgBox "TIENE DERECHO A UTILIZARLA PROHIBIDA SU VENTA, HAY UN RASTEADOR DE DATOS CUIDE MI CREACION GRACIAS POR ADQUIRIRLA "
Case 12 To 18
MsgBox " Buenas tardes " & Usuario
MsgBox "ESTA PLANTILLA ES PROPIEDAD DE ************"
MsgBox "TIENE DERECHO A UTILIZARLA PROHIBIDA SU VENTA, HAY UN RASTEADOR DE DATOS CUIDE MI CREACION GRACIAS POR ADQUIRIRLA "
Case Else
MsgBox " Buenas noches " & Usuario
MsgBox "ESTA PLANTILLA ES PROPIEDAD DE *************"
MsgBox "TIENE DERECHO A UTILIZARLA PROHIBIDA SU VENTA, HAY UN RASTEADOR DE DATOS CUIDE MI CREACION GRACIAS POR ADQUIRIRLA "
On Error Resume Next
End Select
cuenta = Sheets("Contar").Range("A1")
Select Case cuenta
Case Is = 10
GoTo bloqueo
End Select
Application.EnableCancelKey = xlErrorHandler
On Error Resume Next
Application.DisplayAlerts = False
MsgBox "EN BREVE SE LE PEDIRA LA RENOVACION DE LA LICENCIA DE ESTA APLICACION"
GoTo Fin
ultimoaviso:
Application.EnableCancelKey = xlErrorHandler
On Error GoTo Ver_Error
Application.DisplayAlerts = False
licenciauso = InputBox("Introducir la licencia de uso")
If licenciauso "********" Then
MsgBox "Clave incorrecta; VUELVA A INTRODUCIR LA CLAVE"
licenciauso2 = InputBox("licencia de uso 2ª oportunidad")
If licenciauso2 "******" Then
MsgBox "Clave incorrecta; ULTIMA OPORTUNIDAD PARA INTRODUCIR LA CLAVE, COMUNICARCE CON PABLO ENRIQUE QUEVEDO BENITO"
licenciauso3 = InputBox("licencia de uso 3ª y Ultima oportunidad")
If licenciauso3 "********" Then
ActiveWorkbook.Close
End If
End If
End If
GoTo Fin
bloqueo:
Application.EnableCancelKey = xlErrorHandler
On Error GoTo Ver_Error
Application.DisplayAlerts = False
licenciauso4 = InputBox("LICENCIA DE USO PARA DESBLOQUEAR")
If licenciauso4 "*********" Then
MsgBox "SE ACABO. APLICACION BLOQUEADA"
ActiveWorkbook.Close
End If
GoTo Fin
Ver_Error:
ActiveWorkbook.Close
Fin:
End Sub
solo le falta poner ande anda Dulcinea del Toboso, andalá buscando D. Quijote (º_º)
Ande andará....😂