Dante Amor

Hola Cartagena Lopez, El problema está cuando hace el filtro, se conservan los cortes de hoja y es por eso que tienes cojas con 3 cuadros, o 2 cuadros, etc. Para realizar la impresión y acomodar 6 cuadros en cada hoja, se deben realizar varios pasos:...

Supongo que en la celda tienes varias líneas, cada línea la insertaste con Alt + Enter eso significa que es le caracter (10). Entonces en base al número de líneas es como vamos a ajustar el tamaño de la letra. Prueba lo siguiente: Private Sub...

Incluso no es necesario el &"" =CONTAR.SI.CONJUNTO(Hoja2!A2:A1000;"<>";Hoja2!D2:D1000;"=")

Para recorrer la columna B: Sub alarma() Dim i As Long For i = 2 To 5268 If Range("B" & i).Value <= 1 Then MsgBox "Pedir " & Range("B" & i).Address End If Next End Sub El problema con lo anterior, es que si tienes 100 celdas que cumplan la condición,...

Utiliza el formato condicional. - Selecciona las celdas de la columna donde quieres aplicar el formato condicional. - Entra al menú Inicio, Estilos, Formato condicional. - Nueva Regla. Utilice una fórmula ... - En el campo: Dar Formato a los valores...

Te explico por qué excel deja de funcionar. Con lo siguiente: Private Sub Worksheet_Change(ByVal Target As Range) Call opcion1 End Sub Sub opcion1() For Each cell In Range("C2:C13") cell.Offset(, 1) = Int(cell.Value) Next cell End Sub Cada vez que...

Está creando la carpeta ruta3 Carpeta. CreateFolder (ruta3) Pero quieres exportar en la capeta ruta4 Sheets("PDF"). ExportAsFixedFormat xlTypePDF, ruta4 En mi código utilizo la función dir( ) para revisar si existe la carpeta. arch =...

Prueba lo siguiente. Agregué unos comentarios en el código para que lo ajustes a tu necesidad. Sub SelCarpeta() Dim num As String, arch As Variant Dim carpetaInicial As String, carpetafinal As String carpetaInicial = "C:\trabajo\" num = "2568"...

Prueba lo siguiente: Private Sub CMDBuscarNormativa_Click() Dim xnum As Long, i As Long, j As Long Dim stxt As String, scel As String Dim ca As Variant, k As Variant ' If TXTBuscarNormativa.Text = "" Then MsgBox ("Por favor Ingrese el dato a...

Todo el código debe ir en los eventos de la hoja. Ya no es necesario el código que tienes en el módulo. Option Explicit Private Sub CheckBox1_Click() Call Filtrar End Sub Private Sub CheckBox2_Click() Call Filtrar End Sub Private Sub...