Abraham Valencia

[Hola Excel no tiene un evento que detecte el cambio de programa/ventana; se puede hacer algo similar/parecido pero hay que usar funciones de la API de Windows además de usar "Hook" y/o crear algún módulo de Clase. A eso súmale que si un "UserForm"...

[Hola ¿Que hay en el módulo de esas hojas ¿algún evento o una rutina? De ser un evento lo que está en el módulo de tus hojas (de ser el mismo), si es que tuvieses, digamos, una hoja "modelo" y lo que haces, en lugar de crear/insertar hojas nuevas, es...

[Hola Lo que pasa es que por la forma en que eliminas filas y sumas y restas tus variables en tu bucle, el "If" nunca evalúa la última celda, por eso al estar vacía queda tal cual. Una forma en que puedes mantener tu forma de hacerlo es "ajustar" la...

[Hola Solo para estar seguro ¿en esa celda hay una fórmula? ¿Cierto? De se sí la respuesta, de preferencia comenta cuál es. Abraham Valencia

[Hola Usa lo siguiente: CreateObject("wscript.shell").Popup "Todo listo", 1, "Msgbox con tiempo" Comentas Abraham Valencia

[Hola Hasta la versión 2003 de Office era relativamente fácil usar controles "heredados" del viejo amigo fiel llamado "Visual Basic 6.0" (incluyendo sus últimas actualizaciones - SP6) . Si tenías dicho programa y/o conseguías algunos de sus controles...

[Hola No me quedan claras algunas cosas pero prueba colocando esto en el módulo de tu "UserForm": Private Sub ComboBox1_Change() Range("ar1") = ComboBox1.Value End Sub Private Sub UserForm_Initialize() ComboBox1.RowSource = "as3:as" & 3 +...

[Hola Hace algunos meses Microsoft anunció la posibilidad de lanzar versiones de Excel móvil para Android y que soporten macros pero al día de hoy aún no existe tal versión. Tendremos que seguir esperando :/ Saludos] Abraham Valencia

[Hola No queda lo suficientemente claro ¿te refieres a un mensaje que tú has escrito y que antes de enviarlo quiere modificarlo a través de VBA? ¿O entendí mal? Abraham Valencia

[Hola Esto está basado en tu misma idea: Sub Prueba() Dim FilaULTIALBARAN As Long, SIGALBARAN As Long Dim ULTIALBARAN As String, iSIGALBARAN As String FilaULTIALBARAN = Cells(Rows.Count, 2).End(xlUp).Row ULTIALBARAN = Cells(Rows.Count,...