Buenos dias Compañeros estoy intentando optimizar un archivo el cual tiene muchas formulas en varias hojas y a llegado a pesar 15 MB, solo pongo una en la cual explico mi inconveniente,( se podrá hacer click en la celda F4 y este me muestre mi formulario ?), si es asi ... quisiera ingresar el ruc y automáticamente me jale los datos de el proveedor y detalle cuando selecciono el botón buscar y me manda un error quisiera saber si se puede obviar el seleccionar buscar y automáticamente al terminar de escribir el ruc jale los datos, si no se puede quisiera que me digan porque me sale error al momento de buscar. luego ingresar el valor base y valor adquisitivo y al seleccio…

Hola, a partir de un listado de códigos o lista de palabras clave pre-existente, se trataría de: PRIMER PARTE (FÁCIL) 1. Buscar en una columna con tweets si aparece o no esa palabra o código. 2. En caso de que no aparezca, en otra columna se indicaría '0' 3. En caso de que sí aparezca se indicaría '1'. SEGUNDA PARTE (MÁS COMPLEJO) En el contenido de un tweet pueden mencionarse varios temas. Tenemos un libro de códigos con varios temas. Por ejemplo: 1. Tema 1 2. Tema 2 etc. Se trataría entonces de hacer una clasificación o codificación múltiple. 1. Buscar en una columna con tweets si aparecen o no esa palabras o códigos. Las mayúsculas y minúsculas y las til…

hola a todos! les comentos, tengo una macro en el cual me calcula las cantidades de combinaciones de 8 numeros pero quiero que no me aparescan numeros repetidos, es decir: ejemplo si tengo estos numeros: 1 2 3 2 3 4 3 4 5 4 5 6 sus combinaciones serian: 1 2 3 1 2 4 1 2 5 1 2 6 1 3 3 <--- se repite el 3 1 3 4 1 3 5 1 3 6 1 4 3 1 4 4 <--- se repite el 4 1 4 5 1 4 6 1 5 3 1 5 4 ...............(mas combinaciones...) adjunto archivo. de ante ya, muchas gracias. AyudaCombinacionesEstadisticas.zip

Buenas, vuelvo a publicar el mismo problema; talvez el otro por haberlo dejado bastante tiempo ya se cerro el tema.El problema es el siguiente:Tengo este problema, al abrir un archivo de Excel (Macro), me sale como cortado o en blanco al momento de ejecutar las macros, sin ejecutar las macros me aparece el archivo completó, ya sea los botones, el formato de la hojas, etc.Cuál podría ser el problema, probé con Office 2016, 2019, 2021, actualmente tengo Windows 10 (x64) pero aún persiste el problema. Pero en otras computadoras me corre bien el archivo. Link del archivo: SIN ERROR (SIN EJECUTAR LA MACRO): (Hoja Principal) (Hoja de Afiliación) …

Buenos días @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar RCS PRUEBA …

Hola a todos!!! Les cuento que tengo un Excel con una Macro que saca precios de una base de datos TopSpeed (TPS) la cual me estrae los datos y arma un Word con carteles de precios para nuestros productos. En Win Xp con Excel 2003 funcionaba a la perfeccion, peeeeeeero al migra a Win 7 con Excel 2007 me comienza a tirar errores por todas partes, primero con la falta del archivo ODBC de Clarion, lo cual solucione y ahora con un 1004 "error en el metodo opendatabase del objeto workbooks" Alguien me puede ayudar?? sin esta macro no se de que me disfrazo.... Gracias cartel.xls

hola resulta que con este codigo se crea una tabla dinamica en macros Sub PivotTable() Dim PTCache As PivotCache Dim PT As PivotTable Set PTCache = ActiveWorkbook.PivotCaches.Create _ (SourceType:=xlDatabase, SourceData:=Range("A1").CurrentRegion) Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PTCache, _ TableDestination:=Range("F1"), TableName:="Ventas") With PT .PivotFields("Zona").Orientation = xlPageField .PivotFields("Mes").Orientation = xlColumnField .PivotFields("Nombre").Orientation = xlRowField .PivotFields("Ventas").Orientation = xlDataField .DisplayFieldCaptions = False End With End Sub [/CODE] y en mi excel cree u…

Hola me podrian ayudar a corregir esta macro, ya que que he puesto la condicion que no se ejecute por si hay valores vacios en 6 celdas y siempre se ejecuta, comparto codigo: Selection.ClearContents Range("C5").Select Selection.ClearContents Selection.ClearContents Range("C7").Select Selection.ClearContents Selection.ClearContents Range("C8").Select Selection.ClearContents Range("C23").Select Selection.ClearContents Range("C24").Select Selection.ClearContents Range("C39").Select Selection.ClearContents Selection.ClearContents …

Saludos compañeros, Necesito recorrer un rango de celdas en una hoja "PLANTILLAS" y validar cuáles son distintas de cero, las que cumplen el criterio uso esa referencia y el contenido en otras celdas (en esa misma hoja) para llevarlas a una tabla en una hoja "TABLA_DATOS" . Soy novato en esto, hice una macro pero no se comporta como espero puesto que copia los datos que cumplen con los criterios y los que no también, además que la información la exporta cientos de veces (seguramente hay algo que no está bien definido con los bucles) . De antemano agradecido, espero puedan ayudarme. A continuación la macro: Public Sub enviar_datos() Application.ScreenU…

Hola Soy Roberto y haciendo un trabajo me surgio la siguiente duda: La idea consiste en que con macros abro, desde mi Libro, un archivo excel, el cual después copio su unica hoja(importo) hacia mi libro que usa la macro. El problema es que tengo una Restricción, la cual es que solo copia el archivo que tenga de nombre en su unica hoja como "Libro1", es decir, si se llama de otra forma, entonces no lo puedo importar. Acá envio la macro que tengo, porfavor si me pueden ayudar :C Sub copiarhoja1() Set l1 = Workbooks("Programa Backlog") With Application.FileDialog(msoFileDialogFilePicker) .Title = "Seleccione archivo de excel" .Filters.Add "Archivos excel", "*.xls*" .…

tengo un problema en la arquitectura de la macro, todo funciona bien hasta que intento bajar las filas hasta el A3, y lo trato de configurar y no hay caso, bueno ese es un problema , pero también me gustaría que filtre los tipos de archivo sin necesidad de incluir fechas o buscar por nombre sin la necesidad de fechas, la verdad lo necesito para un libro de mas de 87 paginas pero acá les va una idea el que es "funcional" es ORIGINAL 1 y el no funcional es OBJETIVO 1 gracias de ante mano ARCHIVOS.ZIP

Saludos, Quisiera asignar a esta tabla la opcion de modificar Al seleccionar Buscar aparece la siguiente tabla donde quiero obtener la posibilidad de modificar No sé si es posible que al pulsar dos veces dentro de la fila de la lista me permitiera el poder modificar sin tener que pulsar en el boton pero si no fuera posible pues al pulsar el boton de modificar. Mil Gracias DIAGRAMA DE TRABAJO PRUEBA 01.rar

Buenas tardes espero se encuentren muy bien al igual que toda su familia, quisiera saber si alguien tiene idea de como escribir en una celda una función que tenga como referencia una tabla (pero de nombre variable). Adjunto un ejemplo corto de como sería con la función IF en una celda. (Realmente es para una formula más compleja y una macros mas extensa pero presento un problema como este al querer referenciar tablas que se crean al clonar una hoja de trabajo). Cabe aclarar que la tabla existe y tiene el nombre de las dos ultimas letras de la hoja trabajo. He intentado ya .Formula .FormulaLocal .FormulaR1C1 y nada me funciona. ¿Que podría hacer? Ag…

Hola un saludos a todos de nuevo se que esta pregunta no correponde, pero no encuentro como colgarlo de foro correcto pero espero puedan ayudarme estoy trabajando con imágenes en word, se trata de insertar una imagen y que luego esta sea seleccionada y modificada en cuanto a su tamaño, utilizo el siguiente código para insertar la imagenSelection.InlineShapes.AddPicture FileName:= _"C:UsersArturoDesktopFotosListasFoto d (" & nf & ").jpg" _, LinkToFile:=False, SaveWithDocument:=Truela imagen queda insertada en una tabla pero el problema es que se pierde su selección es decir que necesito seleccionarla con el mouse para modificar su tamaño, y como son bastantes …

Buenas noches a todos, cuento con una macro que funciona muy bien, basicamente lo que hace es rellenar notas de estudiantes a una pagina web, situada en un boton, la cual va tomando sus valores de un textbox3 y combobox1. entonces al escoger el numero de estudiantes en una lista de 1 a 45 situada en el combobox1, la macro comienza su funcionamiento y rellena la nota en la pagina web. ahora la pregunta es: ¿Como hacer para que una vez escogido el numero 1 en el combobox1 y terminada su ejecucion, pase automaticamente al numero 2 de la lista, hasta el numero final establecido en la celda "AO1", de la hoja "Sigep"? la macro es la siguiente On Error Resu…

Buenas, mi consulta es la siguiente: En un excel tengo una base de datos los cuales se pasaran a un Word y llenaran formularios, y esto lo estoy haciendo mediante correspondencia. Mi duda entra en que cuando por ejemplo una celda del excel este vacia (o con un "-") al pasarlo al word en ves de pegar el espacio, borre cierta cantidad de texto. Gracias.

hola experto la idea es como reducir o modificar este codigo byfejoal ya que lo que realiza es resaltar en la hoja 2 las celdas azules que estan cerca de la celda de borde grueso ejemplo2.xlsm

Hola, tengo una consulta relacionada con la numeración de Botones. Al crear un Botón (al que luego asigno un Macro), este asume el nombre "Botón 1", el siguiente "Botón 2", etc ..... Por la estructura de de mi hoja, una macro borra estos botones y luego los vuelve a crear. El problema es que los nuevos botones tienen el nombre "Botón 3", "Botón 4", etc. Como esta operación la repito muchas veces, luego de un par de semanas, el nombre de los botones llega a "Botón 65536", etc., luego de esto, me arroja error, me imagino por que llegó a número máximo de botones. Existe alguna forma de "Resetear" o Limpiar esta numeración en algún momento, para …

Hola EXCELENTES. Heredé este código. Yo no tengo NI IDEA de programación. Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo errorfecha If Not Intersect(Target, Range("A1830")) Is Nothing Then If Range("A1830").Value <> "" Then If Application.WorksheetFunction.Weekday(Range("A1830").Value, 2) >= 6 Then On Error GoTo 0 MsgBox "No puede ser sábado o domingo", vbCritical Range("A1830").EntireRow.Delete Range("A1830").Select ElseIf (Range("A1830").Value < Date - 7 Or Range("A1830").Value &gt…

Buenos dias, tengo creada la función ContarColor, pero me cuenta todas las celdas de ese color, y lo que necesito es que me cuente solo las que tienen datos, alguien podría ayudarme. Graciasexcel.2.xlsm

Hola a todos, Tengo que hacer un trabajo en excel. Necesito crear un hypervinculo que me muestre un msgbox que contenga una serie de datos. No encuentro nada en google. Es posible crear un hypervinculo que podamos que nos habra un mensaje pop up. Gracias,

Buenas Noches. Navegando por este foro encontré 2 archivos el cual permite modificar el valor de la referencia es decir: conserva el valor antiguo y al costado pone el nuevo valor, por lo tanto agregue unas opciones mas, pero cuando ejecuto la macro me arroja un error, para el cual en el archivo USUAL en la hoja 2 (RESULTADO) muestro el resultado que debería obtener pero solo me muestra 2 (resaltado de color rojo) mas no los otros (resaltado de color amarillo), por lo que solicito de su colaboración. Archivo NUEVO (están los valores antiguos) que se agregan al archivo USUAL Archivo USUAL (están los nuevos valores) los que muestra el valor antiguo y nuevo. Moficando re…

estimados amogos tengo un problema con un formulario he acoplado a uno que encontrado le agregue 7 texbox y ahora no ingresa datos sale un error haber si me pueden ayudar con problema adjunto el archivo para que lo vean es solo la parte que tengo el problema lo reduci por que es demasiado grande dejando la parte a solucionar antetodo mis saludos y agradecimientos de ante mano por la ayuda que me brinden FORMATO DE MULTA.xls

Buenas, He intentado realizar una macro pero no lo consigo. Adjunto un ejemplo donde se explica y se pone un ejemplo de lo que se busca. Se trata que mediante una macro busque en una tabla los meses de producción y te escriba una "p" cuando haya habido dos meses con producción (pueden ser no consecutivos). Muchas gracias Ejemplo celdas foro.xls

buenas noches, tengo una macro para navegar por paginas web, la cual siempre me ha funcionado bien, pero siempre me ha costado dar con los objetos web he intentado con las siguientes sentencias sin éxito para el color: c.Value = htmlDeRespuesta.getElementsByName("_ngcontent-hhw-c116")(0).innerText y para el valor 1,99 c.Value = htmlDeRespuesta.getElementsByName("_ngcontent-xsn-c116")(5).innerText c.Value = htmlDeRespuesta.getElementsByClassName("col-xs-2 price")(0).innerText c.Offset(0, 3).Value = htmlDeRespuesta.getElementsByClassName("tableHere")(0).innerText pero no he podido dar con el valor de ninguna form…