Genaro Espinoza

Dante Amor respondió: Lo que estás haciendo no es nada práctico. Puedes poner la fórmula directamente en la macro. Te pregunto, ¿quieres la fórmula o el resultado de la fórmula? Prueba lo siguiente, pero es complicado determinar en dónde vas a poner la fórmula. Sub...

Dante Amor respondió: Para proteger los formatos debes proteger la hoja. Entiendo que vas a poner datos en la hoja, pero puedes poner los datos utilizando macros y desde el mismo userform, por ejemplo: Antes de poner datos en la hoja debes desproteger la hoja: Sub...

Dante Amor respondió: Sheets(miHoja).Select Esa línea se utiliza para seleccionar una hoja. Si vas a seleccionar la hoja con el nombre de hoja, entonces debe ir entre comillas, por ejemplo: Sheets("Hoja1").Select Lo anterior significa que va a seleccionar la hoja que...

Dante Amor respondió: Prueba lo siguiente: Sub ciclos_for() Dim i As Long 'para las filas Dim j As Long 'para las columnas ' For j = Columns("A").Column To Columns("M").Column For i = 1 To Cells(Rows.Count, j).End(3).Row 'hasta la última fila con datos de la columna Next...

Dante Amor respondió: Te puede interesar: https://youtu.be/PupmVvM16-8 Sal u dos Dante Amor

Dante Amor respondió: Revisa el siguiente para generar pdf: https://youtu.be/j2sf0_ZCr7Y Sal u dos Dante Amor

Dante Amor respondió: [Ho la Francisco Jaimes, te anexo el enlace a un vídeo con la explicación para permitir solamente números, mínimo 4 dígitos y máximo 12 dígitos: https://youtu.be/ArZzLT6agS4 o Excel Permitir solamente números en un TextBox - YouTube Te invito a...

Dante Amor respondió: [Ho la Ariel Linarte y bienvenido a TodoExpertos! Veo que estás interesado en aprender a programar en VBA, tal vez te interese ver el siguiente vídeo: Macro Cargar Listbox con Matriz - YouTube Te invito a suscribirte a mi canal y a activar las...

Dante Amor respondió: Revisa la siguiente respuesta: Eliminar fila completa cuando en la celda columna A encuentre los valores "0" Por ejemplo, adaptando la primer macro del enlace: Sub Macro1() 'Por Dante Amor Dim uf As Long With ActiveSheet If .AutoFilterMode Then...

Dante Amor respondió: .End(3).Row o .End(xlUp).Row End(3) o End(xlup) es lo mismo, el 3 es una clave interna de VBA que sustituye a xlup. En VBA además de los parámetros en ocasiones también puedes utilizar números. Por ejemplo: Range("Database").AdvancedFilter...

Dante Amor respondió: Ho la Carolina: Revisa la siguiente respuesta: Duda en la expresión o sintaxis .end(3) o end(xlup) [Sal u dos.

Dante Amor respondió: [Ho la y bienvenido a TodoExpertos! Utiliza la siguiente función: Function CuantosDiferentes(dato As String) As String Dim c As String, x As String Dim i As Long dato = Replace(dato, ".", "") For i = 1 To Len(dato) x = Mid(dato, i, 1) If InStr(1, c,...

Dante Amor respondió: Utiliza el siguiente código. Cada que empiezas a capturar letras en el textbox1, en automático hace el filtrado en el listbox1. Revisa las indicaciones en el código para que lo adaptes a tu userform: Option Explicit ' Dim a As Variant 'Al inicio del...

Dante Amor respondió: ¿Quieres eliminar toda la fila o solamente las celdas de la A a la T y que las filas celdas de abajo se recorran hacia arriba?

Dante Amor respondió: En los controles del UserForm existe el control Frame. Con ese control puedes hacer lo que escribiste: - Por ejemplo una línea para separar 'zonas de trabajo' (a la que después daría color...). - Un rectángulo sin relleno para agrupar conjuntos de...

Dante Amor respondió: Puedes poner la macro. La imagen de cómo están tus datos Y otra imagen con el resultado que quieres.