Dante Amor

Si lo quieres al momento de imprimir en la impresora, utiliza la siguiente macro Sub Macro2() Dim n As Long With ActiveSheet n = .PageSetup.Pages.Count .PageSetup.LeftFooterPicture.Filename = "" If n > 1 Then n = n - 1 .PrintOut From:=1, To:=n...

Prueba esto: Sub Copia_Plantilla() Dim xRg As Excel.Range Dim wSh As Excel.Worksheet, sh1 As Worksheet ' Application.ScreenUpdating = False ' Set wSh = ActiveSheet Set sh1 = Sheets("Master") ' For Each xRg In wSh.Range("B8:B35") sh1.Copy...

Vamos a mover esta línea al inicio del código: Application.ScreenUpdating = False Prueba nuevamente: Sub AutoSuma() Dim FilaSumas As Integer Dim sngAnchoTotal As Long, sngAnchoCelda As Long, sngAlto As Long Dim n As Long, i As Long '...

¿Ya con un macro anterior sí pudiste imprimir? ¿O siempre has tenido el problema? A manera de prueba, intenta imprimir la hoja sin pegar datos. Sub FORMULA Dim ruta As String Dim WordApp As Object ruta= "C:\Users\Laura\Dropbox\FORMULA.docx" ' Set...

Falta la imagen de la hoja "TOTALES" donde se vea el campo crotal . Ya con las 2 imágenes, explica con un ejemplo, que obviamente aparezca en las 2 imágenes, cuál dato o datos quieres pasar de "TOTALES", y en dónde, en la hoja "Entradores" quieres...

Prueba esto, va de la fila 13 a la 50 Sub combinar_celdas() Dim sngAnchoTotal As Long, sngAnchoCelda As Long, sngAlto As Long Dim n As Long, i As Long ' Application.ScreenUpdating = False For i = 13 To 50 If ActiveSheet.Range("B" & i & ":J" &...

Prueba esto: Private Sub UserForm_Activate() lblCOUNTDAYS.Caption = Date - Sheets("Hoja1").Range("A1") End Sub No entendí a qué te refieres con : para funcionarlo con la indicación: Pero si te refieres a concatenar el número de días y un texto....

H o l a Encarni Rabancho y bienvenido a TodoExpertos. Sí es posible hacerlo con macros. Con gusto te ayudo. Responde lo siguiente y en este orden: Con respecto al libro "Hoja de ruta" 1. Cómo se llamas las hojas, pon 3 ejemplos 2. Cuáles celdas de...

En la siguiente respuesta explico, cómo insertar una imagen al pie del correo. Envío de emal por Outlook desde excel En lo sucesivo, procura poner el código utilizando el icono para Insertar código fuente.

¿La fórmula empieza en la celda A6? ¿Qué tienes en F6, letras o números o cualquiera? Prueba la siguiente fórmula: =SI(F6<>"";CONTARA($F$6:F6);"")