Dante Amor

Prueba esto: Sub Macro1() Call ImprimirHorizontal End Sub Sub ImprimirHorizontal() With ActiveSheet.PageSetup .Orientation = xlLandscape End With ActiveSheet.PrintOut Copies:=1 End Sub

Pero si los duplicados están en la libro 2, no es necesario buscarlos en el libro 1. Puedes aplicar un Formato condicional en el rango de celdas de las columnas A, B y C. 1. Selecciona el rango de celdas A2:C17 2. Entra al menú, Inicio, Formato...

Prueba esto: Sub Reemplazar_En_Formulas() 'Por Dante Amor Dim wb As Workbook Dim sh As Worksheet Dim ruta As String Dim arch As String ' Application.ScreenUpdating = False Application.DisplayAlerts = False ' ruta = "C:\trabajo\" If Dir(ruta,...

H o l a Eduardo y bienvenido a todoexpertos. Puedes poner una imagen con el resultado que deseas. Sigue las siguientes instrucciones: Tu imagen deberá tener los siguientes elementos:

Te propongo lo siguiente. Pon tus datos como se muestra en la imagen: En la celda E12 capturas la fecha y en la E13 el porcentaje. Las fórmulas pondrán los resultados en las celdas E15, E16, E17 Fórmula celda E15:...

Pon imágenes de cada hoja con ejemplos. Revisa lo siguiente para que veas cómo debes poner tus imágenes.

Faltan algunos valores en tus condiciones. Por ejemplo si en B2 tienes "PC" y en la celda C2 tienes 15, ¿entonces no se rellena de color? Lo puedes hacer con formato condicional, utilizando la funcionalidad de excel.

Revisa esto: Capturar click sobre shapes en Excel con VBA

No lo he probado. Prueba lo siguiente, cambia esta línea Set b = Columns("A").Find(TextBox1, After:=Range(celda), Lookat:=xlWhole, SearchDirection:=hacia) Por esta: Set b = Sheets("Hoja1").Columns("A").Find(TextBox1, After:=Range(celda),...

Prueba esto: Sub Recorrer_Valores() Dim iRange As Range, c As Range Set iRange = Evaluate(Range("B4").Validation.Formula1) For Each c In iRange Range("B4").Value = c Call MacroGuardaPdf Next End Sub Cambia MacroGuardaPdf por el nombre de tu macro