Dante Amor

Podrías poner un par de ejemplos reales de lo que tiene el código de barras y en cuáles celdas quieres cada dato. No es necesario utilizar un textbox, se puede hacer directamente en una celda en la hoja. También dime en cuál celda capturarías el...

Envíame 3 archivos a mi correo: archivo txt1, archivo txt2 y un archivo de excel. En el archivo de excel pon la información del archivo txt1 y la información del archivo txt2 ta l y como deseas importar los datos. La información del txt1 la marcas de...

Partiendo de esta base: Morales: Se compone de 3 letras seguidas por 6 dígitos y 3 caracteres alfanumericos =12 Físicas: consta de 4 letras seguida por 6 dígitos y 3 caracteres alfanuméricos =13 Entonce podemos saber si es física o moral por el...

Prueba lo siguiente. Cambia en la marco "C:\trabajo\" por el nombre de tu carpeta donde tienes el archivo. Cambia "libro5" por el nombre de tu archivo sin extensión La macro busca libro5.xls si lo encuentra, lo abre, si no lo encuentra lo busca como...

Antes de ejecutarla tienes que revisar lo siguiente: La versión de programa Adobe, entra al explorador de archivos, sigue la ruta: Archivos de programa\Adobe\Reader . En mi ejemplo puse Reade 11.0, pero debes poner en la macro la versión que tú...

Te anexo el código para la primer pregunta: "me tome los valores de la hora y la fecha que están en las casillas a15 hora y c2 fecha y los ponga en en un textbox 4 y texbox5" Private Sub UserForm_Activate() TextBox4.Value = Format(Cells(2,...

Este sería un método o una forma de combinar "correspondencia" de excel con word. Esta macro crea los documentos de word pero no utiliza propiamente la correspondencia de word, lo que hace, es tomar tu documento de word y crear un documento por cada...

H o la: La única macro que tengo para enviar correos desde Gmail es esta: Sub EnviarGmail() 'Por.Dante Amor correo = "[email protected]" passwd = "pwd" ' Application.DisplayAlerts = False Application.ScreenUpdating = False ' Dim Email As CDO.Message...

Te anexo la macro actualizada Sub macro1apdf() 'Act.Por.Dante Amor carpeta = ThisWorkbook.Path & "\" archivo = "PROGRAMACION.pdf" ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=carpeta & archivo, _ Quality:=xlQualityStandard,...

Pero qué funcionamiento esperas. Si quieres ver los cambios en la pantalla entonces debes poner primero True y al final del código False Private Sub CommandButton1_Click() Application.ScreenUpdating = True ActiveSheet.DisplayPageBreaks = True ' 'el...