Dante Amor

Quedaría así: Sub Splitbook() 'Updateby20140612 Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.Copy...

Lo que hace el código es copiar el rango de excel y pegar en el cuerpo del correo. Cambia tu código por el siguiente y realiza una prueba. Lo que ahora hace es convertir el rango como html y ponerlo en el cuerpo del correo. Si te funciona, cambia...

Revisa el siguiente enlace, ahí encuentras la sintaxis del método .Find https://msdn.microsoft.com/es-es/vba/excel-vba/articles/range-find-method-excel Sal u dos

Te anexo la macro actualizada Sub Macro3() Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h3 = Sheets("Hoja3") ' h1.Range("I4:J18").Copy u3 = h3.Range("B" & Rows.Count).End(xlUp).Row + 1 h3.Range("B" & u3).PasteSpecial xlPasteValues...

Te anexo la macro, solamente cambia el 2 por el número de fila donde inician tus datos. Sub Cobinar_Celdas() 'Por Dante Amor ' Application.DisplayAlerts = False ini = 2 'fila inicial de datos ' an1 = Cells(ini, "A").Value an2 = Cells(ini, "B").Value...

Con ese ejemplo de tu imagen, explica qué cálculos se deben realizar y cuál es el resultado que quieres ver.

En vba no es necesario declarar las variables, todas son declaradas en automático como Variant. Si tu macro no es muy extensa, no utilices la instrucción Option Explicit; pero si quieres declarar todas las variables, entonces deberás hacerlo de...

Prueba con lo siguiente: Después de esta línea .Importance = olImportanceHigh Agrega esta línea .SendUsingAccount = "[email protected]" O también prueba con esta línea Set .SendUsingAccount = "[email protected]" Veo que utilizaste...

Revisa mi artículo https://www.gerencie.com/enviar-varias-hojas-de-un-libro-de-excel-a-imprimir-o-archivo.html Ahí puedes descargar el archivo de ejemplo.

Haber si entendí. Prueba con la siguiente macro Sub Copiar_Valor() ' Set h1 = Sheets(1) h = 2 For i = 1 To 15 Sheets(h).Range("A1").Value = h1.Cells(i, "A").Value h = h + 1 Next End Sub copia el dato de A1 en la hoja 2, luego el dato de A2 en la hoja...