Dante Amor

Puedes cambiar ">=0,35" por punto, que quede en tu macro de esta forma: ">=0.35" Prueba nuevamente, si no te funciona, puedes poner una imagen, con valores de ejemplo, donde se vean las columnas 30 y 31 (AD y AE) S a l u d o s . D a n t e A m o r Si...

Puedes poner la macro "correo" Y qué es lo que necesitas, ¿qué en un solo correo se pongan todos en copia oculta? Puedes explicarlo.

Te anexo la macro para enviar correos predeterminando la cuenta. Prueba con esta opción: Sub CorreoYCuenta() 'Por.Dante Amor Set dam1 = CreateObject("outlook.application") Set dam2 = dam1.CreateItem(olMailItem) dam2.To = "[email protected]"...

Te anexo la macro, el resultado te lo va a poner en la hoja en donde ejecutes la macro en la celda D5. Cambia en la macro "c:\trabajo\fichas\", por la carpeta en donde tengas los archivos. Sub LeerArchivos() 'Por.Dante Amor Application.ScreenUpdating...

No has valorado la respuesta anterior. 1. En tu imagen no se ven las columnas, tampoco se ve el nombre de la hoja. Pon nuevamente la imagen completa. 2. ¿Tiene qué almacenarse en una tabla? El manejo de la macro en una tabla es diferente, entonces...

¿Cómo quieres formar las listas desplegables con fórmulas o con macros? Qué quieres que te aparezca en las listas, ¿los números o los nombres? Ejemplo, quieres que en la lista te aparezcan los códigos: 01 02 03 ... O quieres nombre AMAZONAS ANCASH...

Pero antes de pasar al userform2 tienes que validar que los datos del userform1 ya fueron agregados. Otra opción es, antes de pasar al userform2 validar que estén correctos los datos del userform1, después al presionar el botón insertar del...

Te anexo la macro Sub BuscarEnTodasHojas() 'Por.Dante Amor Set h1 = Sheets("Hoja1") dato = h1.[C2] For Each h In Sheets If h.Name <> h1.Name Then Set b = h.Cells.Find(dato) If Not b Is Nothing Then encontrado = True Exit For End If End If Next ' If...

Te anexo la macro actualizada Sub imprimir() If Range("F4") <> "" And Range("F5") <> "" Then inicio = Range("F4") fin = Range("F5") ExecuteExcel4Macro "PRINT(2," & inicio & "," & fin & ",1,,,,,,,,2,,,TRUE,,FALSE)" End If End Sub Recuerda valorar la...

Los otros rangos de las 6 hojas, ¿los quieres pegados en el mismo documento de word o un archivo para cada rango? Si es en el mismo word, el archivo tendrá un solo nombre. Pero si es un archivo por cada rango, ¿cuáles serían los nombres de cada...