Jump to content

All Activity

This stream auto-updates     

  1. Past hour
  2.    Antoni reacted to a post in a topic: Comparación de nros. de cuenta
  3. Today
  4. ADRIANITA started following AÑADIR FILAS AUTOMÁTICAMENTE
  5. ADRIANITA
    Buenas tardes, Quería consultaros a ver si es posible lo siguiente: En la hoja que adjunto se hace un control de un producto. El control se refiere al color, numero de unidades con piel y número de unidades quemadas. Se hace control para cada calibre (una fila). Pero en ocasiones nos interesa hacer 2 controles para el mismo calibre (como ocurre en el ejemplo del día 14/10/2019) y otras veces nos interesa hacer 3 controlespara el mismo calibre (como ocurre en el ejemplo del día 11/10/2019). Me gustaría saber si hay alguna manera para que a la persona que mete los datos le salga solo una fila si quiere meter solo un control, pero que pueda salirle otra o otras filas si necesita meter 2 o 3 controles por calibre. La persona no está acostumbrada a andar cpn excel entonces no me gustaría ponerla a insertar filas. Muchas gracias. Un saludo. CONTROLES.xlsx
  6. Fabio Fabio joined the community
  7. TREBUR
    Hola JSDJSD, lo revisé, aunque demasiado lento... funciona, el resultado es el que se busca. ¡Mil gracias!
  8.    TREBUR reacted to a post in a topic: Comparación de nros. de cuenta
  9. Haplox
    Sube tu archivo como te han indicado, pero viendo tu pregunta... ¿No te valdría con algún formato condicional?
  10. cvaldes cvaldes joined the community
  11. Yesterday
  12. meggido

    macro para completar una cotizacion de forma automatica

    Estimados 

     
    Muchas gracias por vuestra ayuda
    En la  planilla  adjunta hay que realizar una macro (por medio del método de grabación), con las instrucciones necesarias para completar esta cotización de forma automática, 
    adjunto las 2 planillas

    CP3 - copia.xlsx CP1_Manuel Contador.xlsx

  13. alistair
    Doy por cerrado este tema ya. Gracias por los aportes. Me quedare por ahora con lo que he realizado, y seguire indagando sobre el tema. Saludos
  14. avalencia
    No tengo nada escrito/hecho como para mostrar y/o ejemplificar (hacerlo conllevaría a usar un tiempo que va más allá de la ayuda), pero algunas cosas que sí creo importantes a tomar en cuenta: - Como ya comentó Héctor Miguel, al ser retirada la opción de conectarse a través de ODBC, el ideal es: Convertir los archivos de Project a otros formatos que sí permitan su importación desde otros programas; intentar con convertir a versiones anteriores de Project 2003 y descargar el ODBC necesario para conectarse (yo no lo he intentado y no sé si daría resultado). - A mí lo más fiable me parece, usando VBA, hacer todo desde Project, una (creo yo) buena alternativa es la siguiente: Enlace - En base al enlace enviado, y si se insiste en hacerlo desde Excel, intentar adaptarlo al VBA del Excel. - Simplemente usar las herramientas de exportación de Project
  15. avalencia
    Hola. Pues no debería haber dilema, pero el dilema es ese enlace es que al menos en Chrome no carga y Edge lo coloca como "sitio no seguro".
  16. JSDJSD
    Hola TREBUR, prueba el adjunto y comenta Prueba5.xlsm
  17.    Silvia reacted to a post in a topic: Cuadrante y formulas
  18. afigueroaf
    Sólo una consultilla más, Para sitios con HTTPS, debería haber alguna consideración respecto del código VBA? Ejemplo: https://mpe.enlazza.net:5906/login.asp Grax
  19. Antoni
    He supuesto que las hojas a tratar no empiecen con la palabra Balance en el nombre y tienen la palabra TOTAL en la columna I. También he supuesto que las columnas con fórmulas, J y L, no deben borrarse. Sub BorrarHojas() Dim Hoja As Worksheet, Total As Range Application.ScreenUpdating = False For Each Hoja In Sheets If Not UCase(Hoja.Name) Like "BALANCE*" Then Set Total = Hoja.Columns("I").Find("TOTAL") If Not Total Is Nothing Then If Total.Row > 4 Then Hoja.Range("B4").Resize(Total.Row - 4, 8).ClearContents Hoja.Range("K4").Resize(Total.Row - 4, 1).ClearContents Hoja.Range("M4").Resize(Total.Row - 4, 2).ClearContents End If End If End If Next End Sub
  20. Gerson Pineda started following Macro no recorre todas las hojas del Workbook
  21. Gerson Pineda
    Hola! Una variante mas Sub ExcluirHojas() Application.ScreenUpdating = False veh = "Balance" For Each h In ThisWorkbook.Worksheets If Not VBA.InStr(1, h.Name, veh, vbTextCompare) > 0 Then VBA.MsgBox h.Name 'TU MACRO AQUI End If Next Application.ScreenUpdating = True End Sub Saludos a ambos!
  22. alistair
    En este momento logre este avance, pero no es lo que busco. Sub Nombre_Tabla() 'Declaracion de variables Dim Nombre_Tabla As String Application.ScreenUpdating = False 'Borrar contenido actual On Error Resume Next Range("Calidad").ClearContents SelectTaskColumn Column:="ID" ActiveCell.Select EditCopy 'Almacenamos en la variable la tabla activa en ms project Nombre_Tabla = ActiveProject.CurrentTable 'Preguntamos si la tabla que se desea copiar es = Entrada If Nombre_Tabla = "Entrada" Then Set ws = Worksheets("Calidad Cronograma") Set Rng = ws.Range("A12") Rng.PasteSpecial xlPasteValues ActiveCell.Select MsgBox "Data importada exitosamente" Else MsgBox "Verifique la vista de MS Project que desea importar. Esta ubicado en: " & Nombre_Tabla, vbExclamation, "Validación de datos" End If Application.ScreenUpdating = True End Sub Pero como vez, primero debo ubicarme en ms project en la vista que deseo importar.
  23. alistair
    Lo active y funcione, no sabia que cada vez que crea un archico para manejar este tipo de macro debia activarla. Gracias
  24. alistair
    Lo que deseo es sacar los datos de algunas tablas especificas. EJemplo , hay una tabla llamada "Entrada" Es ubicarla y luego bajar todas las columnas que tenga actualmente con sus registros a una hoja de excel. En este caso en la vista 'Entrada" tiene 8 columnas y 13 registros.
  25.    Sergio reacted to a post in a topic: Saludos
  26. avalencia
    Hola Esa forma de tener los datos te va a traer (más) dilema aún. Lee esto: Enlace Sobre tu caso particular, en tu archivo no solo hay hojas con números y la palabra "Balance" sino también hay algunas llamadas "Sheetxx". Igual mira, con algo así solo se interactua con las hojas que no tienen la palabra "Balance" en el nombre: Dim nHoja As Worksheet Dim Palabra$ Palabra = "*" & UCase("balance") & "*" For Each nHoja In Worksheets If Not UCase(nHoja.Name) Like Palabra Then Debug.Print nHoja.Name End If Next nHoja Ahí solo hago que el nombre aparezca en la "Ventana inmediato", pero ya tú con eso deberías poder adaptarlo.
  27. avalencia
    No hay ningún archivo ahí.
  28. avalencia
    Jejeje, de nada estimado. Saludos
  29. avalencia
    Hola Dado que trabajas con macros de este tipo, suponía que sabías que tienes que activar, en el editor de VBA, la referencia a "Microsoft Office Project 16.0 Object Library" (en donde ese 16.0 puede variar dependiendo de tu versión de Office). Actívala y ya.
  30. betoaurimza betoaurimza changed their profile photo
  31. EnriqueAperribayAzpeitia
    Bueno: Me he incorportado hoy a vuestro foro y creo que va a ser de gran ayuda, principalmente mi trabajo es administración de empresas, por eso Excel es muy importante para mi. Estoy intentando traspasar ficheros xml a la contabilidad de la empresa, que estan en dbse. Alguna cosilla he conseguido mediante programas intermedios. Paso de xml a Excel y luego importo los campos que me interesan. Estoy actualmente intentando importar facturas de ventas electronicas de España. Saludos Aperry
  32. EnriqueAperribayAzpeitia EnriqueAperribayAzpeitia joined the community
  33. Juan Pelfort
    Hola, como mi tema de pregunta ya está cerrado, no quiero dejar una cosa por resolver. A Héctor Miguel le digo lo siguiente: no me gustó el lenguaje que empleaste conmigo. 1º en tu última respuesta ya te di la razón y agradecértelo. 2º un lenguaje VBA debe ser lo suficientemente potente y de calidad como para no tener que ir a programas por la Web que hacen cosas con iconos e imágenes, para luego tener que volver al VBA (si es que sabes como se hace) 3º En Excel amigo mio, el tema de copiar - pegar (lo has hecho tú un millón de veces) y no es una "chapuza" como dices. Y te lo digo con todo el respeto del mundo. Antoni, si vuelves a ver alguna pregunta mía, aunque veas que me responden otras personas, me gustaría que me contestaras igual, cuento contigo, me has ayudado un montón. Gracias
  34. alistair
    hola @avalencia esos son los conceptos. Estoy probando pero me marca un error de compilacion.
  35. calzado903 calzado903 joined the community
  36. afigueroaf
    MARAVILLOSO!!! De 40 min aproximadamente, ahora se demora 4min Muchas gracias Abraham
  37. avalencia
    Tienes razón, hubo un mensaje en que colocaste una web similar. Probando puedo ver el error que mencionas y al parecer está relacionado a las cookies y/o la seguridad de la web y/o el usar http en lugar de htpps y/o la API de la web (o simialres) y/o la estructura dada por Net a dichas web ¿soluciones? Limpiar cookies o usar https en lugar de http, si no resultan, Power Query no tiene otra forma directa de extraer los datos, con lo que estaría descartada esta herramienta para casos como el tuyo. Una alternativa si en todos lo casos esa frase corresponde con el título de las páginas, pues sería usar algo así: Dim Titulo$ Dim objHttp As Object Set objHttp = CreateObject("MSXML2.ServerXMLHTTP") objHttp.Open "GET", "http://wr31solek.enlazza.net:6400/login.asp", False objHttp.Send "" Titulo = objHttp.ResponseText If InStr(1, UCase(Titulo), "<TITLE>") Then Titulo = Mid(Titulo, InStr(1, UCase(Titulo), "<TITLE>") + Len("<TITLE>")) Titulo = Mid(Titulo, 1, InStr(1, UCase(Titulo), "</TITLE>") - 1) Else Titulo = "" End If MsgBox Titulo El enlace puede ser reemplazado por una variable que use todas tu web, y del resultado de la variable "Titulo" pues no debería serte difícil extraer lo necesario, incluso solo usando fórmulas de Excel (después de colocar en celda/s dicha variable) si es que se te complica con VBA. Comentas.
  38. Johan Ventosilla
    Amigos, Consulta, en la columna MONT2 Los subtotales no me están sumando correctamente, sino suman el monto de los tres paises. Algún apoyo con esto? https://1drv.ms/x/s!AghsMJsDVZP5gmjkZNiUuxopc-zn?e=y7j3Ve Gracias!
  39. avalencia
    Hola nuevamente Solo para estar acordes con los conceptos: Project, si mal no me equivoco, tiene dos tipos de tabla: De tareas y de recursos. Por lo que comentas, tú usas de tareas. Las vistas (también hasta donde recuerdo) son solo formas "ordenadas" (de acuerdo al programa) de ver las tareas, sus campos y sus registros; en donde las tareas son una suerte de "Id" de cada registro. Entonces, como para ir entendiéndonos, tú lo que muestras es los nombres de las tareas además de un identificador (wbs) y un campo más que es algún tipo de costo. ¿Es posible extraer lo que consideras son campo de las vistas? Creo que no, ya que eso son: Vistas. ¿Qué podrías hacer? Quizá sí te interese tener todos los campos de todas las tablas., no olvidando que el nombre "predeterminado" de los campos no se leerá/extraerá con esto, más sí los personalizados: Dim oproject As MSProject.Application Set oproject = MSProject.Application Dim y As Integer, z As Integer For y = 1 To oproject.ActiveProject.TaskTables.Count Debug.Print "Tabla " & oproject.ActiveProject.TaskTables(y).Name For z = 1 To oproject.ActiveProject.TaskTables(y).TableFields.Count Debug.Print "Campo " & z & " " & oproject.ActiveProject.TaskTables(y).TableFields(z).Title Next z Next y Si lo que te interesa son los mismos campos que has usado pero de todas las tablas, pues no necesariamente coinciden ¿o qué quieres en realidad extraer? Saludos
  1. Load more activity
×
×
  • Create New...

Important Information

Privacy Policy

  I accept