Adriel Ortiz Mangia

Dante Amor respondió: Revisa el siguiente: https://youtu.be/QqbCkHsetXU

Dante Amor respondió: Te anexo la macro, creo que lo más conveniente es que se actualice todo hasta que capturas el dato de la columna G. Pero revisa el resultado y me comentas. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor clave = "abc" ' If Not...

Dante Amor respondió: Entiendo que en alguna parte del formulario se debe poner el siguiente número de un consecutivo. Pero necesito conocer lo siguiente: 1.- En qué control quieres el nuevo consecutivo, en un textbox, ¿en un label? 2.- En dónde encuentro el último...

Elsa Matilde respondió: Debes colocar la decisión que tomes en el cuadro de diálogo, en una variable y luego consultar por su valor impreso = Application.Dialogs(xlDialogPrinterSetup).Show If impreso <> "Falso" Then Selection.PrintOut Copies:=1, Preview:=True,...

Luis Mondelo respondió: Te paso la solución con un ejemplo. Estas son las macros necesarias para conseguirlo dentro de un formulario. Si quieres dime tu mail y te mando el archivo completo Private Sub CommandButton1_Click() ListBox2.Clear End Sub Private Sub...

Dante Amor respondió: Envíame tu archivo y me explicas cómo funciona tu formulario y de esa forma adaptar el código.

Dante Amor respondió: Te anexo la macro Private Sub CommandButton1_Click() 'ESTE COMANDO ES SOLO PARA INSERTAR LA APLICACION 'Por.Dante Amor Application.ScreenUpdating = False For Each h In Sheets n = h.Name If UCase(h.Name) = UCase(ComboBox1) Then existe = True Exit For...

Dante Amor respondió: Tienes que poner la siguiente macro en los eventos del libro Private Sub Workbook_Open() 'Por.DAM Application.OnTime Now + TimeValue("00:00:05"), "cerrar" End Sub Instrucciones para poner la macro en ThisWorkbook 1. Abre tu libro de excel 2. Para...

Dante Amor respondió: ¿Quieres qué se llene el ancho de la celda? Pero eso depende del tamaño y tipo de letra. Lo que puedo hacer es rellenar con puntos hasta un número total de caracteres. Por ejemplo, si quieres que la longitud máxima sea de 15, para el caso de juan...

Dante Amor respondió: Pon el siguiente código en los eventos de la hoja donde quieres que funcione: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B3")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit...

Dante Amor respondió: Tendrás que utilizar matrices y diccionarios. Revisa los ejemplos: https://youtu.be/bmCJzc59K3I https://youtu.be/FRvI9loM7ns :)

Dante Amor respondió: Para eliminar cualquier error. Si tienes el error como valor: Sub Borrar_filas_v3() Application.ScreenUpdating = False On Error Resume Next Range("C1", Range("C" & Rows.Count).End(3)).SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete...

Elsa Matilde respondió: En el apartado de 'datos origen', a continuación de la instrucción uFila =, agrega las líneas que dejo a continuación: uFila = vbhojaorigen.Range("a" & Rows.Count).End(xlUp).Row 'filtrar x col 1 (A) con criterio ??? AJUSTAR ESTOS 2 ARGUMENTOS With...

Dante Amor respondió: Te anexo la macro Sub CrearTabla() 'Por.Dante Amor Application.ScreenUpdating = False If [C2] = "" Or [C3] = "" Then MsgBox "faltan fechas" Exit Sub End If If Not IsDate([C2]) Or Not IsDate([C3]) Then MsgBox "fechas inválidas" Exit Sub End If If [C3]...

>Prueba esto Private Sub CommandButton_aceptar_Click() '>Adriel Ortiz ' Set h = Sheets("Datos") ' dni = Val(TextBox_dni) Set col = h.Columns("A") Set b = col.Find(dni, lookat:=xlWhole) ' If Not b Is Nothing Then MsgBox "En dni ya existe" Exit Sub...

Dante Amor respondió: El problema puede ser porque en alguna de las celdas tienes error, por ejemplo #N/A, #¿NOMBRE?, etc Para resolverlo puedes poner lo siguiente: If Not IsError(Range("D7")) And Not IsError(Range("D9")) And _ Not IsError(Range("D10")) And Not...