Dante Amor

H o l a: Puedes enviarme un archivo con ejemplos de lo que tienes y de lo que esperas como resultado. Con 2 ó 3 productos que me expliques, para poder crear la macro. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario...

H o la: Recomendaciones: No deberías utilizar las sentencias On Error, ya que al existir algún error, no podrías identificar cuál realmente es el problema. La lógica de un programa debería contemplar todas las situaciones y no brincar de un lado a...

H o l a: Envíame tu archivo y me explicas con ejemplos qué fórmula se tiene que aplicar. En tus imágenes no se ven las filas y las columnas de excel, tampoco pusiste ejemplos en los Terceros, entonces en tu archivo, pones varios ejemplos y me...

H o l a: Te anexo 3 versiones para tu excel. Si tu excel es versión 2007 o superior y quieres guardar el excel como xlsx: Sub Guardar_Hoja_Pdf_Xls_2007() '--- ' Por.Dante Amor '--- Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") ruta =...

Te anexo las macros de mi aplicación para enviar correos masivos: Macro en un módulo: Sub correo() 'Por.Dante Amor col = Range("H1").Column For i = 2 To Range("B" & Rows.Count).End(xlUp).Row Set dam = CreateObject("outlook.application").createitem(0)...

Esta puede ser una opción, agrega el siguiente código a tu formulario: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1 = "" Then Cancel = True End Sub Lo que hace tu código es limpiar el textbox1 y luego poner el foco en...

H o la: En la siguiente macro actualiza estos datos: Set h1 = l1.Sheets("Hoja1") 'hoja destino col = "A" 'columna destino rango = "B3:D5" 'rango a extraer num = "Hoja1" 'hoja origen, nombre de la hoja especial Pon la macro en un libro nuevo y la...

Puedes poner nombre de todos tus datos. ¿Cómo se llama el libro1? ¿Cómo se llama el libro2? ¿En cuál libro va a estar la macro? ¿De cuál libro a cuál libro se va a copiar? ¿De cuál hoja a cuál hoja? En dónde tienes los códigos. ¿Etc? Ayudaría si...

Puedes poner en qué columnas tienes los meses de enero a diciembre. Y puedes explicar cómo vas a poner la "opción", es decir en 12 celdas, una por cada mes, vas a poner qué columnas quieres mostrar. ¿O cómo vas a indicar qué meses mostrar? Una opción...

Prueba con lo siguiente: Private Sub Pdf_Click() 'Act.Por.Dante Amor archivo = ComboBox2.Value If archivo = "" Then MsgBox "Selecciona un archivo" ComboBox2.SetFocus Exit Sub End If Ruta = "D:\Data\" If Dir(Ruta, vbDirectory) = "" Then MsgBox "No...