Jump to content

CarlosKurt

Members
  • Posts

    240
  • Joined

  • Last visited

  • Days Won

    1

CarlosKurt last won the day on April 29

CarlosKurt had the most liked content!

About CarlosKurt

  • Birthday 10/22/1986

Recent Profile Visitors

1,364 profile views

CarlosKurt's Achievements

  1. Hola @Antoni, había olvidado esos tipos de funciones que tiene Vba Excel. Doy por terminado el tema. Saludos.
  2. Hola @Antoni, su propuesta me serviría si la consulta Sql estuviera en un módulo, sucede que la consulta Sql esta un archivo con extension de texto (.txt). Entonces la idea es leer la consulta Sql del archivo y agregar la siguiente linea WHERE C.[CODIGO REL] = '" & TextBox1 & "' La intención es trabajar las consultas Sql en un archivo .txt y no en los módulos. Saludos.
  3. Hola a tod@s En el siguiente código lee información del archivo "ConsultaSQL.txt": Sub opentxt() Dim fileName As String, textData As String, textRow As String, fileNo As Integer Dim CodCliente As String fileName = "C:\Users\PC\Usuario\ConsultaSQL.txt" fileNo = FreeFile CodCliente = UserForm.TextBox1.Value Open fileName For Input As #fileNo Do While Not EOF(fileNo) Line Input #fileNo, textRow textData = textData & textRow Loop Close #fileNo End Sub Sin embargo, necesito que mediante un Textbox ingresar el código del cliente y este insertarse en la SQL que se encuentra en el archivo .txt para que haga el filtro correspondiente. El objetivo es filtrar por código cliente e importarlo a excel que este ultimo ya Archivo texto ConsultaSQL: SELECT C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL] FROM CABECERAMOVIMIENTO AS C GROUP BY C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL] El objetivo es el que se forme la siguiente SQL para luego importarlo a excel. SELECT C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL] FROM CABECERAMOVIMIENTO AS C WHERE C.[CODIGO REL] = "A 030-030" GROUP BY C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL] Espero haberme hecho entender. Saludos.
  4. Hola @Silvia, muchas gracias por la aclaración. Doy por terminado el tema. Saludos
  5. Hola @Silvia, gracias por el apoyo. A modo de curiosidad, sabe usted por que Excel muestra error en una función anidada con dos índice? Como indique en el primer mensaje la siguiente formula lógicamente es correcta; sin embargo, Excel muestra error #N/D. =SI(INDICE(G:G,COINCIDIR(B6,H:H,0))="PREPARA","PREPARA",SI(INDICE(G:G,COINCIDIR(B6,I:I,0))="MODIFICA","MODIFICA","DISPONIBLE")) Saludos.
  6. Hola @Silvia, me haz dado una idea que me ha resultado. =SI.ERROR(SI.ERROR(INDICE(G:G,COINCIDIR(B6,H:H,)),INDICE(G:G,COINCIDIR(B6,I:I,))),"DISPONIBLE") Aunque me gustaría encontrar otra manera sin utilizar la función SI.ERROR, por estética. Saludos.
  7. Hola @Silvia, gracias, pero, como mencione en el anterior mensaje se trata de buscar la fecha y hora en dos columnas H e I. Saludos
  8. Hola @Silvia, ehh no, es H, ya que se trata de buscar la fecha y hora en las dos columnas en caso no encuentre en la H debe buscar en la columna I. Saludos
  9. Hola a tod@s. En el archivo adjunto, se solicita extraer el estado de trabajo de una persona según la fecha y hora que coincide con las otras dos fechas que se encuentran en la otra matriz. Intente insertando la siguiente formula, pero me da el siguiente error #N/D. =SI(INDICE(G:G,COINCIDIR(B6,H:H,0))="PREPARA","PREPARA",SI(INDICE(G:G,COINCIDIR(B6,I:I,0))="MODIFICA","MODIFICA","DISPONIBLE")) Saludos. Prueba.xlsx
  10. Me gustaría comprar la licencia, pero la empresa en la que laboro es mas dura que una roca. Saludos
  11. Hola a tod@s. Tengo el siguiente código: Sub ProductoFabr(ByVal FilaDSK As Long, ByVal FilaSHM As Long) Application.ScreenUpdating = False Dim ObjExc As Object Set ObjExc = CreateObject("Excel.Application") ObjExc.Visible = False ObjExc.Workbooks.Open Filename:="\\ServidorA\Producto\Pedidos.xlsx" .... En sub Sucede que tengo Office 2016 (32bits) con la licencia no original. La macro se ejecuta con normalidad hasta que necesito extraer información de otro libro "Pedidos" que se encuentra en la otra PC, es ahí donde la macro se detiene y muestra un mensaje, tipo mensaje emergente, que menciona lo siguiente : "Hay un problema con su licencia de Office". Así que cierro ese mensaje emergente y la macro continua con normalidad. Lo que necesito saber es como cerrar el mensaje emergente automáticamente mediante macro. Saludos.
  12. Una vez mas muchísimas gracias @John Jairo V, se aprende mucho de usted. Doy por terminado el Tema. Saludos.
  13. Hola @John Jairo V, es posible mejorar la formula cuando se agrega una condición adicional que en este caso seria el numero de factura. Adjunte cuatro ejemplos, que creo que entenderás mas el asunto con el archivo adjuntado, ya que con esta nueva condición se sigue buscando el precio promedio y la cantidad total de un determinado producto sujeto a condiciones. Saludos. PD: Intente resolverlo pero no doy con el resultado, ya que la condición del numero de factura no se menciona como el tipo de Producto o Estado. PRUEBA Excel.xlsx
  14. Hola @John Jairo V, el error estaba en (F3:F20=N5) que debió ser (F3:F20=N4). Muchísimas gracias Crack Doy por terminado el tema. Saludos.
  15. Hola @John Jairo V, justo estaba viendo algunos videos de ExcelBrutal por si sacaba alguna idea para el ejercicio en cuestión. Bueno, la formula de las cantidades si resulto, sin embargo, la de el precio promedio en todas da como resultado 0. Saludos
×
×
  • Create New...

Important Information

Privacy Policy