Jump to content

marcosab

Members
  • Content Count

    42
  • Joined

  • Last visited

Everything posted by marcosab

  1. Hola a todos Requiero de su ayuda para completar el siguiente macro Private Sub UserForm_Initialize() Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset, Sql As String Dim Hoja As Object ComboBox1.ColumnCount = 4 ComboBox1.ColumnWidths = "50;40;100;150" Set Cnn = New ADODB.Connection Cnn.Open "Driver={SQL Server}; Server=10.15.50.50; Database=pruebas; Uid=sa;Pwd=123456" Set Rs = New ADODB.Recordset Sql = "SELECT Usuario, Contraseña, Hojas_Activas, Nombre, Unidad FROM Usuarios" Rs.Open Sql, Cnn, 3, 3, adCmdText If Not Rs.EOF = True Then ComboBox1.Column = Rs.GetRows
  2. Buenos días Tengo que agradecer por toda la ayuda brindada en el pasado Tengo un proyecto de completar un archivo de Word con información de Excel para eso he tratado con el siguiente código: Sub A_crear_word() mi_carpeta = ActiveSheet.Range("A2") Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.Documents.Add Template:=mi_carpeta, NewTemplate:=False, DocumentType:=0 For I = 3 To 8 busqueda = ActiveSheet.Range("B" & I).Text remplazar = ActiveSheet.Range("A" & I).Text With objWord.Selection.Find .Text = busqueda
  3. Hola. Les comento que he llevado varias horas intentando hacer que funcione. Sin embargo no logro avanzar. Mucho agradezco si alguno de ustedes me puede ayudar con la macro para cambiar contraseña. Saludos
  4. Hola grupo recurro a ustedes para la ayuda para completar un Macro Tengo este macro que me valida desde Excel si un dato ya existe en la base de datos de ACCESS. Set Rs = New ADODB.Recordset Sql = "SELECT Count(*) FROM a_revisiones WHERE [cedula]='" & .Range("J2") & "'" Rs.Open Sql, Cnn, 3, 3, adCmdText Datos = Rs.GetRows If Datos(0, 0) > 0 Then MsgBox "El registro ya existe en la base de datos!!!", vbCritical, "Sistema" Else Nombre de base de datos en Access "a_revisiones", campos "cedula, nombre y estado" Me funciona bien cuando solo solo r
  5. Hola grupo Quiero felicitar a todos son de gran ayuda. Tengo un archivo con macros y varias hojas de cálculo. Necesito que cuando abro la hoja 1 ejecute el macro 1 y cuando abro la hoja 2 ejecute el macro 2. Esto es posible? Saludos
  6. hola gracias por su tiempo y respuesta. Revisando el archivo tiene contraseña para ingresar a revisar el macro, por esta razon no puedo observar el código. saludos
  7. hola tiene razón mejor adjunto el archivo para que lo puedan observar https://mega.nz/file/4FBQgCpa#VrXomOq-yDOXvQjLAU6HozVO21MwEPUOsNQ1lyHg7cI Saludos gracias por la ayuda macro.zip
  8. Buenas Estoy intentando crear un macro para generar un reporte entre periodos que están en las celdas " D5 " y " F5 " de una tabla de Access, pero no logro que funcione. acudo a ustedes para que me ayuden a definir cual sera el error. Formato de la fecha en Access "29/07/2020 10:48:51" Application.ScreenUpdating = True NumId = (Format(Worksheets("usuarioF1").Range("D5").Value, "DD-MMM-YYYY") & "# ") NumIh = (Format(Worksheets("usuarioF1").Range("F5").Value, "DD-MMM-YYYY") & "# ") Set Cnn = New ADODB.Connection With Cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .C
  9. Un saludos a los miembros del grupo Requiero que me ayuden con el siguiente Macro. Cuando se ejecuta debe buscar en la base de datos "Registro.accdb" y devolver los datos que coinciden las columna estado con ingreso y la columna nombre con "Carlos" He intentado con el siguiente macro pero me da error Application.ScreenUpdating = True NumId = "ingreso" NomId = "Carlos" Set Cnn = New ADODB.Connection With Cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\Datos\Registro.accdb" .Open End With Set Rs = New
  10. Buenos días Muchas gracias por todas las ayudas brindas en el mi proyecto. Acudo a ustedes para que me ayuden con un nuevo formulario para que el cada usuario pueda cambiar la contraseña sin necesidad de hacerlo desde la base de datos. https://mega.nz/file/cVpgDIaK#92-eFaVsW8t493NeL7GWT5YLy6dyn641Gl72fbe3FqU Saludos.
  11. Gracias por la ayuda. Seguramente algo tengo que estar haciendo mal. Lo puse de la siguiente forma y me da error con depurador al parecer es en esta parte del código " .Open Sql, Cnn, , , adCmdText" Sub crear() Application.ScreenUpdating = False If Trim([C9]) = "" Then MsgBox "*** Cédula en blanco ***", vbCritical, "Alerta" Exit Sub End If If Trim([E9]) = "" Then MsgBox "*** Riesgo en blanco ***", vbCritical, "Alerta" Exit Sub End If If Trim([C11]) = "" Then MsgBox "*** Nombre en blanco ***", vbCritical, "Alerta" Exit Sub End If Set Cnn = New ADODB.Conne
  12. Buenas tardes Gracias por el consejo así lo aplicare para casos futuros. Este el código que tengo para crear el registro de Excel a ACCESS y funciona bien para crear el registro. Sub crear() Application.ScreenUpdating = False If Trim([C9]) = "" Then MsgBox "*** Cédula en blanco ***", vbCritical, "Alerta" Exit Sub End If If Trim([E9]) = "" Then MsgBox "*** Riesgo en blanco ***", vbCritical, "Alerta" Exit Sub End If If Trim([C11]) = "" Then MsgBox "*** Nombre en blanco ***", vbCritical, "Alerta" Exit Sub End If Set Rs = New ADODB.Recordset Set cn = New ADODB.Conn
  13. Hola a todos Tengo el siguiente macro que crea los datos de Excel a ACCESS. Ocupo de la ayuda de ustedes para que el macro crear revise primero si existe la cédula en el campo "Num Id" si existe debe alertar y no crear la fila. sino existe debe crear todos los datos. https://mega.nz/file/hQIwHaSJ#2rkHUCQHiKFAvsUAbkm4MCHuVUrkdEMhBafuyABgYEk Muchas gracias por toda la ayuda
  14. Hola Funciono, muchas gracias por toda la ayuda saludos.
  15. Un nuevo aporte para finalizar el proyecto Tengo el archivo funcionando cuando el usuario requiere solo una hoja activa. cuando se requiere que mas hojas estén activas no funciona. Ejemplo el user marco pass 123 debería tener activas las hojas "Registro, Registro1, Registro2". Con el codigo actual solo funciona la hoja "Registro" Ademas un favor extra que dependiendo el usuario que inicie sección ponga el Nombre de la columna "Nombre" en ("01.Adeudos" tabla "usuarios") del archivo en ACCESS y lo pegue en la hoja "Principal" celda C7 del archivo de EXCEL. en el siguiente enlace
  16. Muchas gracias Estaba revisando la información y requiero de la ayuda en lo siguiente: 1 Requiero que esa información la tome de la base de datos "01.Adeudos" tabla "usuarios". Además que que dependiendo las hojas activas sean visualizadas o ocultas. solo el administrador debe tener acceso a todas las hojas. Esto funciona solo si hay solo si el usuario activa una hoja pero si se requiere que estén activas mas de una hoja no funciona. ejemplo el user marco pass 123 debería tener activas las hojas "Registro, Registro1, Registro2". como esta ahorita solo visualiza la hoja "Registro"
  17. Muchas gracias por el aporte He estado trabajando en el registro tengo este codigo para agregar datos pero no logro que me los agregue favor ayuda para detectar el problema Function ingesarDatos_01() As Boolean Dim sSQL As String Dim sSQLIngreso_01 As String Dim nResultado As Long Dim nFila As Double Dim rCelda As Range Dim sTexto As String ingesarDatos_01 = False '-------------------------------------------------------------------------------- 'obtenemos la ultima fila con datos '----------------------------------
  18. Buenos dias Muchas gracias por su respuesta, disculpa si enfoque mal la pregunta fue que tenia la duda de que se pudiera hacer eso desde excel, gracias por aclarar y tener certeza de que si es posible. Es un proyecto grande resolviendo esas consultas me parece puedo completar hacer de mi parte el resto del proyecto. Gracias por sus aportes. Saludos
  19. Buenas tardes. Consulta lo que estoy intentado hacer es posible desde excel? Saludos.
  20. Buenos días Primero que todo debo dar gracias por toda la ayuda de los miembros del foro. Estoy iniciando con un sistema para registrar información de un proceso con macros en EXCEL que utiliza información de ACCESS, el sistema se debe utilizar por varias personas. Tengo las siguientes dudas que acudo a ustedes para resolverlas. Usuario admin Contraseña 123 1 Logre que detecte usuario y contraseña de una hoja de Excel. requiero que esa información la tome de la base de datos "01.Adeudos" tabla "usuarios". Además que que dependiendo las horjas activas sean
  21. Muchas gracias revise el archivo muy buen aporte. saludos
×
×
  • Create New...

Important Information

Privacy Policy