Dante Amor

Te muestro las 2 opciones: - Con Validación de datos: 1. Selecciona las celdas F2 a F5000 (o hasta la celda que quieras, después puedes copiar la validación en las celdas que necesites). 2. Entra al Menú Datos, Validación de datos. 3. Selecciona...

Pon lo siguiente en los eventos de tu hoja precios: Private Sub Worksheet_Deactivate() Call CreaPDF("precios") End Sub Pon el siguiente código en la misma hoja precios o en un módulo: Sub CreaPDF(nombre As String) Dim RutaArchivo As String...

Puedes responder en el siguiente orden: 1. Qué tienes en las celdas: A5:A2999 2. ¿Tienes fórmulas? 3. ¿Es una tabla? 4. Después de la la celda A2999, ¿qué tienes? Si estás en la hoja "DTA" y quieres seleccionar una celda de la hoja "NIT", primero es...

Pon el siguiente código en los eventos de la hoja "Portada" Private Sub Worksheet_Activate() Dim sh As Worksheet For Each sh In Sheets If LCase(sh.Name) <> LCase("Portada") Then sh.Visible = xlSheetHidden End If Next End Sub Sigue las Instrucciones...

Otra opción con tu mismo código. Para seleccionar el libro, si estás en otro libro. Seleccionar la hoja, si está en otra hoja. Seleccionar la A4, si la A3 está vacía y la celda A4 también está vacía, pero quieres empezar en la celda A4. Sub IRNIT()...

Falta que detalles un poco más en dónde quieres pegar cada imagen. Revisa el siguiente enlace: https://www.todoexpertos.com/preguntas/7stvndvcog5qxgpv/pegar-imagen-en-celda-especifica-de-excel Como esa respuesta, encontrarás varias. Alguna deberá...

Revisa los enlaces que puse en esta respuesta: Excel: Macro para filtrar entre dos fechas obtenidas de dos celdas

Necesito una macro que sea ágil y veloz Para ayudarte con la macro es preciso que indiques toda la información que sea posible de tu userform y la hoja de excel. Desde cómo se llama la hoja, hasta cómo se llaman los textbox, cuál columna de la hoja...

Si estás en una hoja, no puedes seleccionar el rango de otra hoja. Intenta lo siguiente, puedes realizar la impresión desde cualquier hoja. Public Sub Recibo1() Dim hoja As String Application.ScreenUpdating = False hoja = ActiveSheet.Name...

Pon el siguiente código en los eventos de tu hoja: Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, c As Range Dim a As Variant, b As Variant Dim n As Long ' On Error GoTo appen Set rng = Intersect(Target, Range("A:B")) If Not...