jairo retorno

Tengo un libro el cual hay una hoja que tiene macro en evento de la hoja, lo que necesito es que se guarde y se envíe por correo respetando las macros que contiene... Osea quiero que esa hoja se guarde en el escritorio se envíe por correo con rangos...

Tengo un libro el cual quiero guardar la Hoja5. NAME muy aparte del libro, osea que la macro cree una copia de la hoja por aparte, esta hoja tiene macro en el evento de la hoja entonces me gustaria que las conserve al momento de crearse la copia y...

Quisiera una macro que me oculte TODAS las hojas de un libro en especifico.. Actualmente manejo esta ActiveWindow.DisplayWorkbookTabs = False Pero al tener abierto otro libro "X" y abrir mi libro con la macro, entonces me oculta todas las hojas de...

Tengo una hoja la cual contiene 3 columnas S T V con filas hasta la 7 Entonces quisiera que al poner una "X" en cuaquilera de las celdas de estas columnas, estas rellenen las filas a partir de la 7 de las columnas A y B en el color que tienen S7, T7...

Tengo 2 macros que alentan un poco el proceso espero ayuden a volverla un poco más efectiva La primera es esta Sub OCULTAR_TARDE() ' ' OCULTAR_2 Macro ' Application.ScreenUpdating = False 'OCULTA 1ER TARDE Range("P1:AA3").EntireColumn.Hidden = True...

Tengo este código el cual es de un formulario y funciona bien 'Cerrar formulario Private Sub CommandButton2_Click() Unload Me End Sub ' 'Abrir el formulario para modificar Private Sub CommandButton3_Click() If Me.ListBox1.ListIndex < 0 Then MsgBox...

Tengo este código: Sub ANTERIOR() Application.ScreenUpdating = False Application.OnKey "{f3}", "WAO" End Sub Sub WAO() 'Por.Dante Amor hoja = Sheets("temporal").[A10] If hoja <> "" Then Sheets(hoja).Select Else MsgBox "No hay hoja anterior" End If...

Tengo un formulario el cual contiene 5 frame En cada frame hay 5 textbox osea que en total tengo 25 textbox (wao je je) Lo que necesito es que cuando llene los primeros 5 textbox del primer frame Entonces al activarse de nuevo mi formulario el set...

Recientemente me ayudaron con este codigo hecho por el experto DAN Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor 'ActiveWindow.DisplayVerticalScrollBar = False 'ActiveWindow.DisplayHorizontalScrollBar = False...

Tengo este código hecho por el experto DAN Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor 'ActiveWindow.DisplayVerticalScrollBar = False 'ActiveWindow.DisplayHorizontalScrollBar = False 'ExecuteExcel4Macro...