Dante Amor

Te refieres a cambiar el nombre que se muestra en el botón. Si es así, pon el siguiente código en los eventos de tu hoja: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C5")) Is Nothing Then If Target.Count > 1...

Puedes poner en una columna los 4 dígitos y realizar un filtro sobre la columna. Por ejemplo, si tus números están en la columna A y empiezan en la fila 2, entonces en la celda B2, pon la siguiente fórmula: =DERECHA(A2,4) En pantalla se vería así:...

Sí, ya ha pasado algo de tiempo. Te anexo la macro Sub Copiar_Celda() For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "B") <> "" Then fila = i Else Cells(fila, "B").Copy Cells(i, "B") Next End Sub [sal u dos

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...

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...