Dante Amor

H o l a: Te anexo la macro, debes tener creadas las hojas Hoja1, Hoja2 y CONSOLIDACION. Sub CopiarRango() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") Set h3 = Sheets("CONSOLIDACION") u =...

H o l a: Por la posición de las columnas, tal vez, te refieres a una de mis macros para enviar correos: La macro para la aplicación es la siguiente: '***Macro Para enviar correos Sub correo() 'Por.Dante Amor col = Range("H1").Column For i = 2 To...

H o l a: Puedes enviarme tu archivo y me explicas cómo están tus datos y qué quieres contar y qué esperas como resultado y en dónde quieres el resultado. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Santiago...

H o l a: Te anexo la macro actualizada, le hice algunos cambios. En la "hoja1" te va a poner la información. En el mismo libro crea una hoja llamada "Hoja2", en esta hoja2, en la celda A2 pon la el nombre completo de la carpeta; en la celda B2 pon el...

H o l a: No entiendo lo que quieres hacer con la macro. Mejor explícame qué necesitas con ejemplos. Pon una imagen de tu hoja Cotizaciones. Si tienes 3 clientes y cada cliente con 4 cotizaciones cómo quedaría la numeración, pon ejemplos en la hoja; y...

H o l a: Tienes que cambiar esta línea dam.body = "Ultimo estado del proyecto" & vbCr & h.Range("F" & i) & vbCr & h.Range("C1") & vbCr & h.Range("C" & i) Por estas: Cuerpo = "Ultimo estado del proyecto" & vbCr & h.Range("F" & i) & vbCr &...

H o l a: Puedes poner una imagen con ejemplos de lo que se va a sumar Y en dónde quieres el resultado de la suma. En la imagen se tienen que ver los números de filas y las letras de las columnas.

Cambia CR Por VbCr R ecuerda valorar la respuesta y la que tienes pendiente. sal u dos

H o l a: ¿Lo quieres para todas las hojas o para todas las celdas de la columna K? Puedes poner tus macros y decirme en cuál macro quieres el cambio.

H o l a: En esta línea, te falta una diagonal al final ruta = l1.Path & "C:\11Noviembre" Debe ser así: ruta = l1.Path & "C:\11Noviembre\" Para revisar lo que quieres hacer, necesito que me digas lo siguiente: De los otros archivos, ¿de cuál columna a...