Antoni

Tu mismo, pero tu código es inmanejable. Así es como lo haría yo. La hoja Paises puedes ocultarla. Nacionalizar.xlsm

Pues aquí está la macro Actualizar: Sub Actualizar() Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim Sql As String Dim NumId As String Application.ScreenUpdating = False If Not [G11] = "SI" And Not [G11] = "NO" Then MsgBox "*** Moroso: " & [G11] & " valores SI/NO ***", vbCritical Exit Sub End If If Trim([C13]) = "" Then MsgBox "*** Número Patronal en blanco ***", vbCritical Exit Sub End If If Trim([E13]) = "" Then MsgBox "*** Nombre Patronal en blanco ***", vbCritical Exit Sub End If NumId = [C9] Set Cnn = New ADODB.Connection With Cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\Datos\01.Adeudos.accdb" .Open End With Set Rs = New ADODB.Recordset Sql = "SELECT Moroso, Nun_Patrono, Nom_Patrono FROM pen WHERE [Num Id] = '" & NumId & "'" Rs.Open Sql, Cnn, 3, 3, adCmdText If Not Rs.EOF = True Then Rs.Fields("Moroso").Value = [G11] Rs.Fields("Nun_Patrono").Value = [C13] Rs.Fields("Nom_Patrono").Value = [E13] Rs.Update Application.EnableEvents = False [G11] = "" [C13] = "" [E13] = "" Application.EnableEvents = True Else MsgBox "*** Cédula: " & [C9] & " no encontrada ***", vbCritical End If Cnn.Close End Sub

Te dejo la macro Consultar, cuando pueda iré por la macro Actualizar: Sub Consultar() Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim Sql As String, Datos As Variant Dim NumId As String Application.ScreenUpdating = False NumId = [C9] Set Cnn = New ADODB.Connection With Cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\Datos\01.Adeudos.accdb" .Open End With Set Rs = New ADODB.Recordset Sql = "SELECT Riesgo, [Monto Caso], Nombre FROM pen WHERE [Num Id] = '" & NumId & "'" Rs.Open Sql, Cnn, 3, 3, adCmdText Application.EnableEvents = False [E9] = "" [G9] = "" [C11] = "" If Not Rs.EOF = True Then Datos = Rs.GetRows 'Matriz columna/fila [E9] = Datos(0, 0) [G9] = Datos(1, 0) [C11] = Datos(2, 0) Else MsgBox "*** Cédula: " & [C9] & " no encontrada ***", vbInformation End If Cnn.Close Application.EnableEvents = True End Sub

Lo de formatear y el tiempo real, va a ser que no, o lo uno o lo otro, tu eliges. Te dejo un ejemplo de lo que yo haría. Libro1.xlsm

El filtro funcionaría mejor así: Sub filtro() Range("A5").AutoFilter Field:=4, Criteria1:=Sheets("base").Range("c4").Value End Sub

A veces con algún truquillo salimos del paso: Sub copiar_filtro() 'Copiamos también la fila 4 Set Rango = ActiveSheet.Range("$A$4:$D$11").SpecialCells(xlCellTypeVisible) If Rango.Rows.Count > 1 Then Rango.Copy End Sub o también: Sub copiar_filtro(): On Error GoTo SinDatos ActiveSheet.Range("$A$5:$D$11").SpecialCells(xlCellTypeVisible).Copy Exit Sub SinDatos: MsgBox "*** Sin datos***", vbInformation End Sub

Te avanzo el login. Cuando pueda, reviso el registro. Adeudos.xlsm

Otro enfoque. Filtro Antoni.xlsb

Me vais a hacer llorar. 😂😂😘😷. Suerte a todos en estos tiempos difíciles.

Es el problema de explicar los problemas por partes. Si Mauricio no te contesta, intentaré echarle un vistazo durante el fin de semana, aunque no te lo aseguro.

Esto si que es una forma de agradecer,......😅😒 Agradecimiento

Cálculo de rutas de montaña

Nada que añadir ¡Impecable! Nada que añadir. 👍🏽

Sube un ejemplo de lo que quieres hacer.

..........Tengo un formulario ............. Nosotros no.

'Posicionar después de la posición 3 TextBox1.SetFocus TextBox1.SelStart = 3 No estaría de más que que te documentases acerca de las propiedades de los controles que vas a utilizar y así te ahorrarías tiempo, tú y nosotros.

Revisa el adjunto. Observa que he relacionado el nombre del conector con la celda de la columna E. Seguro que se puede hacer con un gráfico, pero ni idea. GRAFICO.xlsm

Solo por culturilla, las variables, si están definidas dentro del procedimiento, se inicializan cada vez que se ejecuta el procedimiento, por eso están definidas a nivel módulo, pero entonces ocurre lo contrario, es decir, mantienen su valor y por eso es necesario inicializarlas en el procedimiento principal. 😏

¡Jo..!, no acierto ni una. Ahora creo que si. Planificación Formulario Final II.xlsm

¡Correjido!, atención a la nota, no es importante, que he puesto en la hoja AZIMUT. Gracias por el reconocimiento. 🙂 Nota: Chafardeando, he visto un formulario con un montón de TextBox, hay una forma de hacer un tratamiento masivo sin necesidad de ir control a control. Si llegas a usarlo, no dudes en consultar. Planificación Formulario Final II.xlsm

Te juro que funcionaba, debo haber hecho algún 'adorno' de última hora y lo he estropeado. 😬 Lo corrijo en cuanto pueda.

He eliminado todas las fórmulas y formatos condicionales a partir de la columna E y he incluido las acciones en las macros. Esto te permitirá borrar/copiar la información de entrada sin el peligro de borrar las fórmulas y los formatos. Abre el adjunto y pulsa sobre el botón Calcular, a ver que te parece. Planificación con rumbo, tiempo y pendiente-TOTAL.xlsm

Los encabezados solo son compatibles si el llenado del combobox/listbox se hace a través de la propiedad RowSource con un rango continuo. Ejemplo: ComboBo1.RowSource = "Hoja1!A2:F20"

Estoy en ello. A ver si mañana te puedo subir algo.

Nosotros vamos a por la Champios.🤪🤪😁😁