Excel VBA and Macros - Chapter 48 - Introducction to UserForms and ActiveX controls

[@JinjinatoSMP]

No veo la hora de que entres en materia. Gracias Sergio.

[@joseantoniosanchezlopez7215]

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 🇪🇸

[@acentrenamientoscorporativ3709]

Saludos maestro Sergio muchas gracias por compartir sus conocmimientos con nosotros

[@arturomora7050]

Buenas noches Sergio, muchas gracias por tu tiempo y tus conocimientos, sigo el curso desde el primer día. Saludos

[@alejandromiguelromerojimen7215]

Mucho por que aprender y practicar, aunque este tema tiene tiempo que vengo esperandolo... Muchas gracias por el conocimiento, Saludos.

[@osvaldocortinacruz9671]

Hola Sergio muy interesante tus videos, listo para aprender formularios.

[@jesusmariafuentes3629]

Muy interesante, como siempre. Lo comparto "curso de interés público"

[@establecimientoesperanza]

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?

[@humbertochinchillamora3513]

Hola Sergio, buenas tardes. Excelente introducción y mucha expectativa. Se que será de una inmensa utilidad. Tu infaltable ¡ Manito Arriba !. Saludos

[@ericaguilar9365]

Ohhhhh Gracias Sergio Alejandro Campos. Andaba buscando información, muy amable :D.

[@eloscmao6945]

Sergio, mil manitas arriba.. jejeje seguidor numero 1 de sus vídeos.

[@oscarsantos9251]

muy buen tema EXCELeINFO.lo mejor sergio sal2 pulgar arriba..

[@maticunia1982]

Lo esperado gracias por el apoyo bendiciones

[@pilar2762]

muy buena explicación. Un saludo

[@AtindriyaDas]

Gracias Sergio!

[@leonardocontento4208]

Felicitaciones maestro

[@samuelfranciscogarcia1440]

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.

[@PQEK62]

Todo eso lo puedes hacer.

[@gonzaloalonsorodriguez4929]

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.

[@sergiodata9953]

gracias sergio

[@diegososa7797]

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

[@leonardocontento4208]

Felicitaciones maestro una pregunta el cap 48 y 49 no se puede descargar el ejemplo por favor ayudame para descargar estos ejemplos gracias

[@PaenquebeConsultor]

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

[@manolofalcaoruiuz]

uy dificil tiene muchas opciones

[@kennymanandeleon6410]

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?

[@PaenquebeConsultor]

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

[@Moremam99]

solo le falta poner ande anda Dulcinea del Toboso, andalá buscando D. Quijote (º_º)

[@juanpesev822]

Ande andará....😂