Abraham Valencia

[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 Solo para estar seguro ¿quieres qué el "USerForm" con los datos se conviertan en pdf? ¿Es eso? 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 Pues sigue usando el evento "Open" pero agrega lo siguiente, al inicio: ActiveWorkbook.Protect Password:="TuClave", Structure:=True, Windows:=False Hoja1. Protect "TuClave" La primera línea protege el libro impidiendo que se inserten más hojas;...

[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 Vamos a suponer que tienes esos números en la columna "A" y que el primer dato está en la celda "A1", entonces en "B1" colocas: ="ABC" &A1 Luego copias/"jalas" a las celdas inferiores y listo. Si lo quieres como valores y no como fórmulas, solo...

[Hola Solo por si acaso, el control Monthview ha dejado de ser compatible con las últimas versiones de Excel por lo que, de seguir usándolo, es muy probable que no puedas funcione en las PC de otros usuarios con los que quizá quieras compartirlo. Ya...

[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,...