Luis Mondelo

Te mando mi solución Con esta macro, justo al inicializar el formulario te pondrá el resultado de esa fórmula en el textbox1 Private Sub UserForm_Initialize() TextBox1.Value = Application.WorksheetFunction.Max(Range("e2:e1000")) + 1 End Sub no...

Prueba con el evento after_update de dicho control

Te mando mi solución. Ejecuta esta macro: Sub prueba() 'por luismondelo Range("b1:z" & Range("b65000").End(xlUp).Row).AutoFilter field:=3, criteria:=Range("aa1").Value, Operator:=xlFilterValues End Sub recuerda finalizar la consulta

Mándame el archivo con los datos y así podré trabajar sobre él. [email protected]

Usa la macro así: Private Sub CommandButton2_Click() Dim valor, final As String valor = ListBox1.Value set busca = sheets("hoja1").range("a1:a" & sheets("hoja1").range("a65000").end(xlup).row).find(valor,lookin:=xlvalues,lookat:=xlwhole) if not busca...

Te mando mi solución. Posiciónate en la celda K1 y ejecuta esta macro: Sub ejemplo() 'por luismondelo Do While ActiveCell.Value <> "" If Right(ActiveCell.Offset(0, -1), 7) = "general" Then ActiveCell.Offset(0, 1).Value = suma Exit Sub End If If...

Ya te he enviado algunas ideas por mail

Para eso es buena idea programar el evento change de la hoja que tu quieras. Por ejemplo yo lo he hecho para la hoja1 de mi libro y quedaría sí: En el momento que se modifique la celda A1 de la hoja1, el archivo se autoguardará. Private Sub...

Te mando mi solución, ejecuta esta macro y todo solucionado. He supuesto que los códigos empiezan en todas las hojas desde A1 hacia abajo Sub ejemplo() 'por luismondelo For Each hoja In ActiveWorkbook.Sheets If hoja.Name <> "nombres" Then hoja.Select...

Escribe el código así para que la celda quede marcada de un color. La línea nueva está en negrita Dim l As Integer Dim tes As String For l = 5 To 9999 tes = TextBox1 If Cells(l, 1) = tes Then cells(I,1).interior.colorindex =3 Exit For End If Next l...