Jump to content

waltermendez99

Members
  • Posts

    189
  • Joined

  • Last visited

About waltermendez99

  • Birthday 12/02/1992

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

waltermendez99's Achievements

  1. Muchas gracias Maestro, pero no me funciona con el número 1, me tira el error 91. variable u with no establecido. Sub ENCONTRAR() MsgBox ActiveSheet.Range("A3:A1048576").Find(Range("D4"), , , xlWhole).Row Rows(ActiveSheet.Range("A3:A1048576").Find(Range("D4"), , , xlWhole).Row).Select End Sub ese es mi código
  2. Hola amigos buenos días, Resulta que deseo usar el método FIND RANGE como alternativa para búsqueda, antes de usar un ciclo for, pues realmente pensaba se me hacia más fácil usar el método FIND . Adjunto un ejemplo, la intención de la macro es que me busque el numero de la celda D4 en la lista de números, y me indique con una mensaje en que fila esta, y la seleccione, pero resulta que al colocar el número 1 me ubica la fila de donde esta el 10 o el número 2 y ubica la fila donde esta el 12 así sucesivamente como que me hace falta algo en la sintaxis para que busque el dato exacto. https://docs.google.com/spreadsheets/d/12M2MlCV6zr5OkZEaMk0v-N6_iP7Wxhjv/edit?usp=sharing&ouid=102882238457281683815&rtpof=true&sd=true
  3. ya lo intente pero no me deja, 😅 a menos que lo esté haciendo mal Dim cnn As ADODB.Connection: Dim rst As ADODB.Recordset: Dim nCampos&, x As Integer: Dim nRegistros&, y As Long Dim sql$, BD$, Servidor$, User$, Clave$ Set cnn = New ADODB.Connection: Set rst = New ADODB.Recordset: Let Servidor = "localhost": Let BD = "prodsumaflex" Let User = "root": Let Clave = "" cnn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};" _ & "SERVER=" & Servidor & ";DATABASE=" & BD & ";" _ & "UID=" & User & ";PWD=" & Clave & ";PORT=3306;OPTION=131072" cnn.Open Let sql = "SELECT nombre_cliente FROM clientes WHERE visible='1'" With rst .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open sql, cnn, , , adCmdText End With Let nCampos = rst.Fields.Count Let nRegistros = rst.RecordCount With UserForm1.ComboBox2 For y = 1 To nRegistros .AddItem rst.Fields(1 - 1).Value rst.MoveNext Next y End With cnn.Close Set rst = Nothing: Set cnn = Nothing ese es el codigo que tengo para llenar un combobox, yo intente hacer lo siguiente: Public cnn As ADODB.Connection: public rst As ADODB.Recordset: public nCampos&, x As Integer: public nRegistros&, y As Long public sql$, BD$, Servidor$, User$, Clave$ ''''este codigo no se sipuedo dejarlo como variables públic Set cnn = New ADODB.Connection: Set rst = New ADODB.Recordset: Let Servidor = "localhost": Let BD = "prodsumaflex" Let User = "root": Let Clave = "" cnn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};" _ & "SERVER=" & Servidor & ";DATABASE=" & BD & ";" _ & "UID=" & User & ";PWD=" & Clave & ";PORT=3306;OPTION=131072" ''''' cnn.Open Let sql = "SELECT nombre_cliente FROM clientes WHERE visible='1'" With rst .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open sql, cnn, , , adCmdText End With Let nCampos = rst.Fields.Count Let nRegistros = rst.RecordCount With UserForm1.ComboBox2 For y = 1 To nRegistros .AddItem rst.Fields(1 - 1).Value rst.MoveNext Next y End With cnn.Close Set rst = Nothing: Set cnn = Nothing esa misma estrofa de código veo es la misma para todas mis consulta, por lo que no se si es posible usar de base una y solo llamar esa sentencia y por consiguiente abrir conexión, generar la consulta, realizar el proceso y luego cerrar la conexión. ahora si no me tocará dejar la sentencia completa por cada combobox que llene Gracias un saludos!!
  4. Gracias Maestro, te comento sí, va ser para uso multiusuario, lo que quiero es usar la misma sintaxis que se ve en la imagen que mandé, es decir, la estrofa de código es la misma para generar consultas, es posible que la estrofa de código esté en un módulo separado, así solo tenga que usar un nombre para llamar a estar estrofa de código, y no tener que poner la misma estrofa de código por cada consulta que realice en mi caso estoy llenando varios combobox pero estoy usando la misma estrofa con diferente consulta SQL Muchas gracias!
  5. Hola Amigos, buenas tardes, es posible utilizar la misma sentencia (variables y cadenas guardadas en variables) en varias consultas que debo hacer , ya que imagino debo usar la misma sentencia en cada procedimiento que realice y ya intenté con declarar variables como Public pero no me deja. Estos código los fuí tomando del blog de @avalencia a quien agradezco por compartir https://abrahamexcel.blogspot.com/2019/04/excel-y-mysql-2.html es posible realizar lo que deseo? usar la misma conexión e ir variando en cada procedimiento prácticamente la consulta SQL así como los datos de la tabla donde voy a consultar. adjunto imagen! Gracias!!
  6. Si voy comprendiendo, una vez mas muchas gracias por los artículos. Saludos!
  7. Hola para comentarte que hay que tener en cuenta usar un driver ODBC y adicional de prerrequisito requiere una distribución de visual studio comparto los links por si alguién mas hace las respectivas pruebas para la conexión Controlador OBDC https://dev.mysql.com/downloads/connector/odbc/ Distribución como requisito https://aka.ms/vs/16/release/vc_redist.x86.exe Espero vaya por buen camino
  8. Gracias, tengo una duda estoy probando los código que están en el blog, sin embargo aún no me conecto a la BD desde vba. Sabrás si debo instalar un driver ODBC para que funcione? cuál sería si fuece así? muchas Gracias!!
  9. Hola Avalencia, gusto saludarte, En cuanto al uso de un FOR pensé que existía otro método que fuera mas rápido para reproducir la ejecución de las líneas de código. Muchas gracias Abraham, por tus comentarios!!
  10. Hola amigos, alguién tendrá un videotutorial o tutorial de como usar EXCEL VBA y MySQL para realizar insertar, guardar, borrar, modificar y actualizar desde formularios en vba o formularios en hojas de excel? he buscado ya por mucho en la web, y solo existe poca información y no me da claridad en el proceso de aprendizaje, si uds me pudieran brindar algún proyecto de ejemplo, o enlazarme o compartime un videotutorial, sería bueno para iniciar mi proyecto. Quedo abierto a sus comentarios y sugerencias
  11. Hola amigos, espero se encuentren bien, quiero comentarles que acabo de realizar un pequeño archivo donde en una hoja tengo una tabla (pudiendo contener mas de 10,000 registros) que deseo imprimir en etiquetas, es un registro por etiqueta, para lo cuál usé la función CICLO FOR en vba y generar así la impresión. Mi impresora actual es una TSC ttp244pro, según lo que sé es que esta impresora no tiene mucha capacidad de memoria para guardar o para imprimir, por lo que las impresiones salen lentas. Me gustaría saber si alguien sabe como mejorar la macros para que pueda imprimir más rápido ya que en la cola de impresión un trabajo por etiqueta, no sé si exista forma de enviar un solo trabajo y que pueda así imprimir más rápido. Mil disculpas si las macros que verán tiene demasiado código para lo que hago. Saludos Cordial Walter proyecto.xlsm
  12. hola hermano buen dia

  13. Vé y lucha por lo que quieres, no por lo que puedes...

×
×
  • Create New...

Important Information

Privacy Policy