Jump to content

Antoni

Members
  • Content Count

    10,386
  • Joined

  • Last visited

  • Days Won

    583

Everything posted by Antoni

  1. Tu mismo, pero tu código es inmanejable. Así es como lo haría yo. La hoja Paises puedes ocultarla. Nacionalizar.xlsm
  2. 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
  3. 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
  4. 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
  5. El filtro funcionaría mejor así: Sub filtro() Range("A5").AutoFilter Field:=4, Criteria1:=Sheets("base").Range("c4").Value End Sub
  6. 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
  7. Te avanzo el login. Cuando pueda, reviso el registro. Adeudos.xlsm
  8. Me vais a hacer llorar. 😂😂😘😷. Suerte a todos en estos tiempos difíciles.
  9. 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.
  10. Esto si que es una forma de agradecer,......😅😒 Agradecimiento
  11. '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.
  12. 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
  13. 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. 😏
  14. ¡Jo..!, no acierto ni una. Ahora creo que si. Planificación Formulario Final II.xlsm
  15. ¡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
  16. Te juro que funcionaba, debo haber hecho algún 'adorno' de última hora y lo he estropeado. 😬 Lo corrijo en cuanto pueda.
  17. 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
  18. 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"
  19. Estoy en ello. A ver si mañana te puedo subir algo.
×
×
  • Create New...

Important Information

Privacy Policy