Dante Amor

Estimado ya te envié 2 respuestas y no has valorado las respuestas, incluso una de ellas ya no se ve.

Envíame tu archivo y la hoja del archivo me explicas claramente con ejemplos.

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: Puedes poner la macro completa para revisarla. El tiempo de impresión no se puede reducir, eso es de windows y el tiempo en que la impresora tarda en responder.

H o l a: Sustituye todas las macros solamente por esta: Sub filtro() 'Por.Dante Amor Set h1 = Sheets("Saldos") u = h1.Range("C" & Rows.Count).End(xlUp).Row If u < 24 Then u = 24 h1.Range("C24:I" & u).ClearContents If h1.[D3] = "" Then Exit Sub If...

H o l a: Existen varias formas de obtener el último registro de una hoja. Pero no pusiste si quieres saber el dato contenido en una columna de la última fila, o si quieres solamente saber cuál es la fila que tiene el último registro. Para encontrar...

H o l a: Te anexo la macro para guardar cada 30 minutos. Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal _ lpTimerFunc As Long) As Long Declare Function KillTimer Lib "user32" (ByVal...

Para enviar un correo en automático se tiene que hacer con una macro. Envíame tu archivo para adaptar la macro. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “David Lezcano” y el título de esta pregunta.

H o l a: Te anexo la macro actualizada. Cambia la macro anterior por esta nueva: Private Sub Worksheet_Calculate() 'Por.Dante Amor Application.ScreenUpdating = False For i = 1 To 8 ActiveSheet.DrawingObjects("CommandButton" & i).Visible = False Next...

H o l a: Te anexo la macro: Sub OcultarColumna() 'Por.DanteAmor Application.ScreenUpdating = False For Each c In Range("C11:AR11") If c.Value = 0 Then c.EntireColumn.Hidden = True Else c.EntireColumn.Hidden = False End If Next End Sub