Isaac Reyes

H0la hacandiam: Podrías encerrar todo tu bloque With en el siguiente IF If IsNumeric(Me.TextBox1.Value) Then End If

Héctor: Prueba esta macro. Si son más de 10.000 filas, puede tardar un tiempo considerable, sobre los 60 segundos. Sub subRellenar() Dim lngUltFila As Long, i As Long Application.ScreenUpdating = False lngUltFila =...

H0la Felipe: Supongamos lo siguiente: Tu botón se llama cmdBuscarLa hoja en la que están los datos se llama AlumnosLa lista en donde se selecciona el nombre del estudiante se llama lstEstudianteLos cuadros de texto tienen por nombre...

Intentemos lo siguiente, suponiendo que en la tabla de arriba la primera fila con valores es la 2 y la última es la 6, en la celda que tienes marcado en amarillo agrega la siguiente fórmula =SUMA(SI((E2:E6="si")+(C2:C6="si");H2:H6;0)) Ahora, en lugar...

H0la Chrisr: Supongamos que en A1 tienes las categorías de gasto (en adelante categorías) y que en B1 deseas agregar aquello que le llamaremos subcategorías de gasto (en adelante subcategorías). Para poder realizar lo que pides, crearemos una hoja en...

Para avanzar un poco, supongamos que tu formulario de clientes se llama frmClientes y el formulario de pagos frmPagos. Si tu intención es que frmPagos se abra cuando frmClientes se cierre, entonces puedes usar este código en frmClientes Private Sub...

H0la José: Puedes utilizar esto en el evento Change del ScrollBar Private Sub ScrollBar1_Change() ActiveWindow.ScrollRow = Me.ScrollBar1.Value End Sub Debes definir el valor mínimo del ScrollBar en 1 y el máximo en 1048554 o la fila a la que quieres...

Suponiendo que vas ingresando los datos uno a uno, quizá esta macro te pueda servir Private Sub Worksheet_Change(ByVal Target As Range) Dim Duplicado As Long Application.ScreenUpdating = False 'MsgBox Target(1).Row & " " & Target(1).Column If...

H0la Cristian: El 1 sale de acá Range("A7").Value = 1 lo marqué en negrita dentro del código. Sub OrdenItemEspecialidad() On Error GoTo error Dim ContNum As Long Dim ultimalinea As Long ultimalinea = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row...

H0la Ramiro, Intenta con esto Sub html() Open ThisWorkbook.Path & "\" & Range("A1").Value & ".html" For Output Lock Write As #1 i = 2 Do Until (Cells(1, i).Value = "") Print #1, Cells(1, i).Value i = i + 1 Loop Close #1 End Sub Crea un archivo en el...