Dante Amor

Prueba lo siguiente. La declaración de la variable debe ir al principio de todo tu código. Dim salir As Boolean Sustituye tu código por lo siguiente: Dim salir As Boolean ' Private Sub cui_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim uf As Long,...

Puedes poner imágenes de cómo están tus datos en la hoja1 y cómo están en la hoja2. Necesito ver en cuáles celdas tienes los ID y en dónde quieres el resultado. Lo que debe tener cada imange:

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...

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,...

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...

Nota: Una cosa que debes tener en cuenta cuando haces una pregunta en un foro ... las personas a las que solicitas ayuda no saben absolutamente nada acerca de tus datos, absolutamente nada sobre cómo están en el libro de trabajo, absolutamente nada...