Jump to content

Forums

  1. ¿Eres nuevo? Lee las Normas y Reglas de la comunidad

    1. Presentaciones

      Preséntate, dinos quién eres. Déjate conocer un poco mejor.

      4.1k
      posts
    2. Utilización - Funcionamiento

      Temas acerca del funcionamiento y utilización de AyudaExcel

      2
      posts
  2. Excel

    1. Fórmulas y funciones

      ¿Cómo hacer cierto cálculo? ¿No encuentras la función que buscas? Te ayudamos con los errores o resultados incorrectos en tus fórmulas.

      1.8k
      posts
    2. Excel General

      Herramientas y complementos, configuración de las opciones, Validación de datos, formato condicional, rangos, formatos, protección de archivos, Buscar objetivo, Solver, consolidación, plantillas, esquemas...

      14.8k
      posts
    3. Macros y programación VBA

      Temas sobre la automatización de Excel utilizando macros y VBA. Errores de VBA. ¿No consigues que tus macros hagan lo que necesitas?

      37.4k
      posts
    4. Power Query

      Extracción de información. Fuentes de datos. Transformación de archivos. Lenguaje M. Parametrización de consultas.

      83
      posts
    5. Power Pivot

      Análisis de información. Modelado de datos. Cálculo de medidas.

      27
      posts
    6. Gráficos y visualización de datos

      Consultas sobre gráficos, minigráficos y todo lo que tenga que ver con visualización de datos en Excel. ¿Cuál es el gráfico que mejor gráfico que puedes usar en cada momento?

      28
      posts
    7. TypeScript Excel

      Automatizaciones con TypeScript para Excel versión escritorio y Excel Online.

      12
      posts
    8. Descarga y comparte plantillas y recursos   (41,706 visits to this link)

      Comparte tus plantillas o trabajos con toda la comunidad de Ayuda Excel.

  3. Power BI

    1. Power BI Desktop

      Power Query / Power Pivot - Dax - Dynamic tables / Dashboard

      644
      posts
    2. Visualización de datos

      Elección del mejor gráfico Power BI. Errores en las visualizaciones. Formatos de gráficos.

      3
      posts
    3. Modelado, medidas y lenguaje DAX

      Errores con funciones DAX. Conversiones de tipo de datos. Relaciones redundantes. Medidas. Resultados incorrectos.

      18
      posts
    4. Power Query   (3,656 visits to this link)

    5. Power BI Service

      Publicación de informes. Permisos de visualización, roles...

      • No posts here yet
  4. Automatización de Excel con otros programas

    1. Python, VB.NET, C#, VSTO, VB 6.0, C++

      Consultas relacionadas con la automatización de Excel y otros lenguajes de programación.

      14
      posts
    2. Power Apps y Power Automate

      Automatización de procesos.

      9
      posts
      • No posts here yet
  5. Otros programas

    1. Otros programas de Microsoft Office

      Outlook, Word, PowerPoint, Access

      494
      posts
      • No posts here yet
  6. Sobre ayudaexcel.com

    1. Solicitud proyectos   (35,839 visits to this link)

      Contacta con ayudaexcel si necesitas desarrollar una plantilla 

    2. Blog   (35,430 visits to this link)

    3. Plantillas   (40,422 visits to this link)

    4. Productos de ayudaexcel   (36,614 visits to this link)

      • No posts here yet
  7. Variedades

    1. Cafeteria Ayuda Excel

      Lugar donde felicitar cumpleaños, contar un chiste, agradecer, noticias interesantes y todo lo que no tenga relación con Excel

      4.3k
      posts
    2. Temas resueltos

      No pierdas el tiempo con búsquedas innecesarias. Aquí encontrarás todos los temas que, a nuestro juicio, han resuelto los usuarios del foro.

      182.4k
      posts
    3. Sugerencias - Reclamaciones

      Temas relacionados con sugerencias y reclamaciones relacionadas con la web de Ayuda Excel

      345
      posts
    4. Temas Abandonados

      Temas abandonados, que por alguna razón, no fueron solucionados o finalizados

      3.1k
      posts
  8. Resources

    1. Ideas y aportes

      Artículos, archivos, códigos, curiosidades, novedades, tópicos, .... relacionados con Excel de interés para la comunidad.

      7.6k
      posts
  • Member Statistics

    31,929
    Total Members
    12,075
    Most Online
    angiepaolaescandon
    Newest Member
    angiepaolaescandon
    Joined
  • Plantillas gratuitas

  • Top Downloads

  • Resumen de reglas y valores del foro

    • Quien más aporta, más recibe.
    • Lee con atención, pregunta con intención.
    • Todos podemos aportar.
    • No incites ni participes en debates estériles
    • Trata a los demás como te gustaría que te trataran a ti.
    • La brevedad mola.
    • Enlaza siempre que puedas.
    • Si dices "no", plantea alternativas.
    • Lee e infórmate primero.
    • No se permite la publicación de enlaces a servicios de almacenamiento de archivos.
    • No se permite ofrecer ni solicitar servicios servicios de pago sin autorización de los administradores.

    Aquí están todas las normas.

  • Últimos mensajes

    • Hola buenas, Me ha surgido un problema con la importación de hojas a excel. Tengo un procedimiento mediante el que importo hojas, el tipico: Workbooks.Open "C:\Users\Usuario\Desktop\Prueba\Prueba2.xlsm" Workbooks("Prueba2.xlsm").Sheets("Hoja1").Copy Before:=Workbooks("Prueba1.xlsm").Sheets(1) Workbooks("Prueba2.xlsm").Close savechanges:=False Mi problema es que después del Close, en VBA sigue manteniendo el proyecto con su código del libro "Prueba 2", como si siguiera abierto, pero no es el caso porque únicamente tengo abierto el Libro1. Me ha saltado alguna vez también un mensaje de aviso al intentar abrir VBA que me dice: "Memoria insuficiente" y no me permitir abrir el explorador de VBA. Aclarar que tengo más de 200 GB libres en mi equipo.  A alguien más le ha pasado? Creo que es un tema de memoria, si me podéis aclarar que puedo limpiar para resolver este error, ya que me pasa con cualquier archivo Excel, es decir, no es un error de este propio archivo si no de cualquier archivo en que realice este procedimiento. Adjunto los dos archivos, el archivo en el que se copia la hoja y el archivo que contiene la hoja a copiar. Por si queréis probarlo habrá que modificar las rutas en el código. Un saludo y gracias! Prueba1.xlsm Prueba2.xlsm
    • Hola @AndrewPh, no entiendo por qué los datos se encuentran ordenados de esa manera, pero en la hoja de resolución te doy una respuesta a tu planteamiento. ContarCodigosUnicos.xlsx
    • Muy buen día, espero se encuentren bien   Requiero de su amable ayuda con el planteamiento del siguiente problema para V. Excel 2016 ya que lo he intentado con fórmulas como EXTRAER, INDICE y COINCIDIR, BUSCAR, SUMA.PRODUCTO entre otras pero no he podido llegar a la solución, me sería de gran ayuda porque es algo que tengo que tratar todos los días en el trabajo con bases de datos.    Muchas gracias y cualquier ayuda es bien venida ContarCodigosUnicos.xlsx
    • Hola de nuevo!, y si fuesen 8 chicos y 8 chicas como seria? Gracias
    • Buen día, trate de automatizar para crear ordenes de servicio, pero me sale el error "Error de compilación: el uso de la propiedad no es válido" y me subraya esta linea "Set Application = SapGuiAuto.GetScriptingEngine"   Comparto como realice la programación:   Sub Ordenesautomaticasunapos() If Not IsObject(Application) Then    Set SapGuiAuto = GetObject("SAPGUI")    Set Application = SapGuiAuto.GetScriptingEngine End If If Not IsObject(Connection) Then    Set Connection = Application.Children(0) End If If Not IsObject(session) Then    Set session = Connection.Children(0) End If If IsObject(WScript) Then    WScript.ConnectObject session, "on"    WScript.ConnectObject Application, "on" End If Dim indice As String Dim inicio As String Dim cantidadFilas As String inicio = CStr(Selection.Cells(1, 1).Row) indice = Selection.Cells(1, 1).Row cantidadFilas = Selection.Rows.Count For i = 1 To cantidadFilas 'recorrido en la seleccion session.findById("wnd[0]").maximize session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB0:SAPLMEGUI:0030/subSUB1:SAPLMEGUI:1105/cmbMEPO_TOPLINE-BSART").Key = "PSER" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB0:SAPLMEGUI:0030/subSUB1:SAPLMEGUI:1105/ctxtMEPO_TOPLINE-SUPERFIELD").Text = "COL1" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB1:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1102/tabsHEADER_DETAIL/tabpTABHDT8/ssubTABSTRIPCONTROL2SUB:SAPLMEGUI:1221/ctxtMEPO1222-EKORG").Text = "Worksheets("NA").Range("B" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB1:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1102/tabsHEADER_DETAIL/tabpTABHDT8/ssubTABSTRIPCONTROL2SUB:SAPLMEGUI:1221/ctxtMEPO1222-EKGRP").Text = "Worksheets("NA").Range("C" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB1:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1102/tabsHEADER_DETAIL/tabpTABHDT8/ssubTABSTRIPCONTROL2SUB:SAPLMEGUI:1221/ctxtMEPO1222-BUKRS").Text = "Worksheets("NA").Range("D" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/txtMEPO1211-EBELP[1,0]").Text = "Worksheets("NA").Range("E" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/ctxtMEPO1211-KNTTP[2,0]").Text = "Worksheets("NA").Range("F" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/ctxtMEPO1211-EPSTP[3,0]").Text = "Worksheets("NA").Range("G" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/txtMEPO1211-TXZ01[5,0]").Text = "Worksheets("NA").Range("H" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/txtMEPO1211-MENGE[6,0]").Text = "Worksheets("NA").Range("I" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/ctxtMEPO1211-MEINS[7,0]").Text = "Worksheets("NA").Range("J" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/ctxtMEPO1211-WGBEZ[14,0]").Text = "Worksheets("NA").Range("K" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/ctxtMEPO1211-NAME1[15,0]").Text = "Worksheets("NA").Range("L" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/txtMEPO1211-AFNAM[21,0]").Text = "Worksheets("NA").Range("M" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/txtMEPO1211-AFNAM[21,0]").SetFocus session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/txtMEPO1211-AFNAM[21,0]").caretPosition = 9 session.findById("wnd[0]").sendVKey 0 session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0019/subSUB3:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1301/subSUB2:SAPLMEGUI:1303/tabsITEM_DETAIL/tabpTABIDT1/ssubTABSTRIPCONTROL1SUB:SAPLMEGUI:1328/subSUB0:SAPLMLSP:0400/tblSAPLMLSPTC_VIEW/txtESLL-KTEXT1[3,0]").Text = "Worksheets("NA").Range("N" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0019/subSUB3:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1301/subSUB2:SAPLMEGUI:1303/tabsITEM_DETAIL/tabpTABIDT1/ssubTABSTRIPCONTROL1SUB:SAPLMEGUI:1328/subSUB0:SAPLMLSP:0400/tblSAPLMLSPTC_VIEW/txtESLL-MENGE[4,0]").Text = "Worksheets("NA").Range("O" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0019/subSUB3:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1301/subSUB2:SAPLMEGUI:1303/tabsITEM_DETAIL/tabpTABIDT1/ssubTABSTRIPCONTROL1SUB:SAPLMEGUI:1328/subSUB0:SAPLMLSP:0400/tblSAPLMLSPTC_VIEW/ctxtESLL-MEINS[5,0]").Text = "Worksheets("NA").Range("P" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0019/subSUB3:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1301/subSUB2:SAPLMEGUI:1303/tabsITEM_DETAIL/tabpTABIDT1/ssubTABSTRIPCONTROL1SUB:SAPLMEGUI:1328/subSUB0:SAPLMLSP:0400/tblSAPLMLSPTC_VIEW/txtESLL-TBTWR[6,0]").Text = "Worksheets("NA").Range("Q" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0019/subSUB3:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1301/subSUB2:SAPLMEGUI:1303/tabsITEM_DETAIL/tabpTABIDT1/ssubTABSTRIPCONTROL1SUB:SAPLMEGUI:1328/subSUB0:SAPLMLSP:0400/tblSAPLMLSPTC_VIEW/ctxtRM11P-KOSTL[8,0]").SetFocus session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0019/subSUB3:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1301/subSUB2:SAPLMEGUI:1303/tabsITEM_DETAIL/tabpTABIDT1/ssubTABSTRIPCONTROL1SUB:SAPLMEGUI:1328/subSUB0:SAPLMLSP:0400/tblSAPLMLSPTC_VIEW/ctxtRM11P-KOSTL[8,0]").caretPosition = 0 session.findById("wnd[0]").sendVKey 0 session.findById("wnd[1]/usr/ctxtESKN-SAKTO").Text = "Worksheets("NA").Range("R" & indice).Value" session.findById("wnd[1]/usr/subKONTBLOCK:SAPLKACB:2100/ctxtCOBL-KOSTL").Text = "Worksheets("NA").Range("S" & indice).Value" session.findById("wnd[1]/usr/subKONTBLOCK:SAPLKACB:2100/ctxtCOBL-KOSTL").SetFocus session.findById("wnd[1]/usr/subKONTBLOCK:SAPLKACB:2100/ctxtCOBL-KOSTL").caretPosition = 6 session.findById("wnd[1]").sendVKey 0 session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0015/subSUB3:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1301/subSUB2:SAPLMEGUI:1303/tabsITEM_DETAIL/tabpTABIDT8/ssubTABSTRIPCONTROL1SUB:SAPLMEGUI:1317/ctxtMEPO1317-MWSKZ").Text = "Worksheets("NA").Range("T" & indice).Value" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0015/subSUB3:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1301/subSUB2:SAPLMEGUI:1303/tabsITEM_DETAIL/tabpTABIDT8/ssubTABSTRIPCONTROL1SUB:SAPLMEGUI:1317/ctxtMEPO1317-MWSKZ").caretPosition = 2 session.findById("wnd[0]").sendVKey 0 session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0015/subSUB1:SAPLMEVIEWS:1100/subSUB1:SAPLMEVIEWS:4000/btnDYN_4000-BUTTON").press session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0010/subSUB1:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1102/tabsHEADER_DETAIL/tabpTABHDT3").Select session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0010/subSUB1:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1102/tabsHEADER_DETAIL/tabpTABHDT3/ssubTABSTRIPCONTROL2SUB:SAPLMEGUI:1230/subTEXTS:SAPLMMTE:0100/subEDITOR:SAPLMMTE:0101/cntlTEXT_EDITOR_0101/shellcont/shell").Text = "Worksheets("NA").Range("U" & indice).Value" + vbCr + "" + vbCr + "" session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0010/subSUB1:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1102/tabsHEADER_DETAIL/tabpTABHDT3/ssubTABSTRIPCONTROL2SUB:SAPLMEGUI:1230/subTEXTS:SAPLMMTE:0100/subEDITOR:SAPLMMTE:0101/cntlTEXT_EDITOR_0101/shellcont/shell").setSelectionIndexes 92, 92 session.findById("wnd[0]/tbar[0]/btn[11]").press session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB1:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1102/tabsHEADER_DETAIL/tabpTABHDT3/ssubTABSTRIPCONTROL2SUB:SAPLMEGUI:1230/subTEXTS:SAPLMMTE:0100/subEDITOR:SAPLMMTE:0101/cntlTEXT_EDITOR_0101/shellcont/shell").setSelectionIndexes 0, 0 Worksheets ("NA").Range"V" & indice) = Right(session.FindById("wnd(0)/abar").text, 10) session.findById("wnd(0)").sendVKey 3 indice = indice + 1 Next1 'Pega el texto de SAP en excel, y continua con la siguiente linea      End Sub   Quedo atenta si me pueden ayduar porfa  
  • Recent Achievements

    • AndrewPh earned a badge
      Conversation Starter
    • AndrewPh earned a badge
      One Year In
    • oscarfm earned a badge
      Collaborator
    • angiepaolaescandon earned a badge
      Conversation Starter
    • oscarfm earned a badge
      One Month Later
  • Download Statistics

    • Files
      181
    • Comments
      90
    • Reviews
      27

    More information about "Gráfico olímpico animado"
    Latest File
    By pegones1

    2    0

  • Forum Statistics

    • Total Topics
      44.6k
    • Total Posts
      259.8k
×
×
  • Create New...

Important Information

Privacy Policy