Silvio Moraga Belaunde

Dante Amor respondió: H o l a: Te anexo la macro actualizada Sub PDF() 'Act.Por.Dante Amor Application.ScreenUpdating = False ' conf = MsgBox("Desea Crear un PDF de la '" & archivo & "' ?", vbQuestion + vbYesNo, "IHL Publicidad") ruta = "C:\Users\Silviom\Dropbox\IHL...

Elsa Matilde respondió: Luego de guardar datos en hoja Indice preguntas si desea guardar. Entonces si la respuesta es SI a continuación podrás agregar lo que necesitas. If Confirmacion = vbYes Then ' 'aquí agrega las nuevas condiciones, puede ser mediante un InputBox o...

Dante Amor respondió: Te regrese la macro actualizada, marqué el lugar donde tienes que poner la celdas a borrar antes de guardar. No mencionaste de qué hoja ni cuáles celdas, así que te puse unos ejemplos para que cambies los datos con las celdas que necesitas. Sub...

Alexis Picado Brenes respondió: Tube un caso parecido en un BMW y lo resolvimos removiendo los conectores de la computadora a bordo y le pusimos Dielex liquido en spray para eliminar oxido y suciedad en componentes electronicos. En clima frio, las computadoras suelen oxidarse...

Programar Excel respondió: Este ejemple si foen tiene formulatio que silicita password para realizar procedimiento. En procedimiento esta lo que necesitas sobre ocultar fila. http://www.programarexcel.com/2013/03/formulario-solicita-password.html Este verifica si existe una...

Elsa Matilde respondió: Debes colocar la decisión que tomes en el cuadro de diálogo, en una variable y luego consultar por su valor impreso = Application.Dialogs(xlDialogPrinterSetup).Show If impreso <> "Falso" Then Selection.PrintOut Copies:=1, Preview:=True,...

Dante Amor respondió: Te cambio la forma de guardar el PDF por esta, también cambié el formato de fecha, quité las "/" porque no se permiten en los nombres de archivo y le puse "-" Sub PDFActiveSheet() Dim ws As Worksheet Dim strPath As String Dim strFile As String Dim...