Estimados, Junto con saludar y esperando que se encuentren bien, tengo el siguiente problema, necesito traer el código que se encuentra en la columna C9 a la B9 con la extensión (Dos últimos caracteres) que se encuentra en la columna V9 siempre y cuando cumpla las condiciones que se encuentran en las columnas W9 - X9 - Y9. Adjunto archivo para su revisión donde hay una formula pero algo le falta para que cumpla las condiciones. Gracias por todo !! Juan Ignacio. CONDICION_PAYER (2).xlsx

Buenas tardes, Estoy intentando poner un color determinado en un encabezado de página y no consigo que me coja el color que quiero poner. Le pongo el código #4F81BD que en rgb es 79,129,189(este es el que me interesa) me devuelve el color rgb(111,129,189). Saludos y adjunto el código de prueba por si alguien puede ayudarme. Gracias! PruebaCabecera.xlsm

Buen Día Debo comentarles que soy nuevo en este foro..y quiero agradecer de antemano su ayuda. Mi problema es el siguiente.. Estoy realizando una Macro en la cual a partir de una cadena necesito extraer una cifra (caracteres) en especial, para esto utilizo las formulas Hallar (Search) y MED(Mid), el detalle es que dentro de la macro al ejecutar la formula Search me muestra un error : No se puede obtener la Propiedad Search de la clase WorkSheetFunction.Les explicare que ago.. 1.- Una de las cadenas es la siguiente : "Delicados con Filtro1/8/25" "Focos Phillips 100W 1/10" *Se encuentran dos situaciones la Primera es que en la opción "Delicados con Filtro1/8/25" nece…

Buenas tardes, Tengo un excel con condicionales de colores y que por filtrar han acabado por estropearse. Me gustaría hacer lo mismo con VBA. Lo que necesito es algo que seguramente esté más que publicado, pero no hay forma de encontrarlo. Se trata de como ejemplo 5 columnas y que la columna tiene un valor especifico string "Cerrar" y otros "Abierto". Lo que busco es que cuando la columna 1 contanga "Cerrar" la fila hasta la columna 5 se ponga en rojo, y si es "Abierto" sea del color verde. Realmente sólo necesito el codigo base o una idea de como hacerlo. Saludos,

Muy buenas, agradezco de antemano la ayuda que me brindarán. mi consulta es la siguiente, Tengo un macro que me hace correr un cronómetro o temporalizador mejor dicho, este necesito que funcione con una userform la cual tiene otros botones de mi interes; los problemas que presento son 3, y los describo a continuación: 1.- al colocar el tiempo en la userform y esta colocarlo en la celda donde esta instalado el cronómetro este no corre, me imagino por que va como texto, pero al revisar la celda esta si tiene el formato establecido. 2.- y más importante, necesito que el temporalizador haga pausas, dado que necesito detener los tiempos de forma seguida y reanudarlos. 3.…

Buenos dias, tengo un problema, tengo una macro que va modificando una formula, es decir, le cambia primero la carpeta en la que busca, y luego le tiene que cambiar el mes en el nombre del archivo, pero sucede que al hacer esto, me pide actulizar valores, porque claro, logicamente no encuentra el archivo mientras esta cambiando la formula, y tengo q estar apretando ESC para seguir, siendo muchos datos (hospitales) A traves de que sentencia puedo sacar esto de "Actualizar valores" Por algun problema no me deja adjuntar el archivo, si alguien ya se da cuenta a que me refiero, gracias Intentare adjuntar el archivo Muchas Gracias.- Saludos.-!!

buenos dias al foro. he estado trabajando con formularios en vba 6.3 y por mas que reviso mi codigo y los temas que ya ha tratado no encuentro como solucionar el error que me arroja a la hora de "ejecutar" el segundo de los cuatro formularios que utilizo. basicamente la idea es que al terminar de capturar un numero en un textbox aparezca en otro el nombre asociado a ese numero que describo en una hoja del archivo de excel, como se que en el textbox pueden capturar cualquier cosa escribí codigo para forzar a que se capturen solo numeros y despues coloque cdigo para saber que hacer en caso de error y ahi es justamente donde "truena" mi formulario. anexo el archivo y col…

Saludos. Se trata de ver en pantalla, uno a uno, los diferentes cuadros de diálogo integrados de Excel. Primero se indaga sobre cuantos existen y luego se pretende ir viendo cada uno de ellos. He implementado la siguiente rutina, pero no funciona. Sub VERCUADROS() Dim Dialog As Object Dim DIALOGS As Object MsgBox " CANTIDAD DE CUADROS INTEGRADOS EXISTENTES = " & Application.DIALOGS.Count For Each Dialog In DIALOGS Dialog.Show Next Dialog End Sub Agradezco ayuda.

Hola muy buenas tardes, antes que nada quisiera agradecer por este foro y por todas las ayudas que brindan. Ahora bien, tengo un problema con un formulario de búsqueda y edición, quisiera que en el listbox que tengo dentro del formulario "BuscarV" se mostraran los datos que tengo, así como que me de la opción de búsqueda por algún criterio, ya sea por el numero de semana de registro, por unidad, importe o empresa y que adicionalmente me deje guardar los cambios, para esto he creado un Boton Guardar al cual se ligo la instrucción y que se inicializa junto con el listbox, asi como un botón modificar. Mis problemas son los siguientes, no puedo hacer que se muestren todos los…

Hola a todos, ¿Alguien sabe como se pueden recorrer los valores de los argumentos que se reciben en una función en VBA? Estoy aprendiendo a utilizar JavaScript desde el propio Excel con Script Lab y hay una sentencia que es "arguments.length" que te da el número de argumentos que recibe la función, y con un bucle puedes recorrerlos ya que a cada argumento se accede a través de un índice. arguments[1], arguments[2], etc. La verdad que no he visto nunca como hacer esto con VBA, si alguien tiene idea de cómo hacerlo, sería interesante aprenderlo (yo no lo he visto antes) Saludos.

Estimados Amigos, Saludos a Todos.- estoy intentado realizar una macro la cual consiste en mostrar un "userform de espera", mientras se esta ejecutando unas macros de actualización con de tablas de access en excel, similar a una indicador de progresos. según he investigado, en estos tipos de actualización es muy difícil medir el tiempo para un userform con indicador de progresos, es por eso que opte por simular un "userform de espera", con la única diferencia que en ves que me muestre el texto " se esta actualizando, por favor espere...", a la ves se pueda visualizar en el mismo userform una imagen animada "gif", esto para darle un estilo mas profesional y agradable pa…

Hola, quería consultarles como puedo hacer para que en mi Userform1 me aparezca una alerta o cartel (como quieran llamarlo) de la fecha vencida de mi producto y/o que me queda poco en mi stock en el caso de ser así, osea serian dos alertas distintas, una por la fecha de vencimiento y otra por la cantidad que tengo en stock, también tendrían que quedar de otro color o seleccionados los productos que estén vencidos o con poco stock. Quiero que sea algo automático, osea crear algo en visual basic y que trabaje en conjunto con mi UserForm1. INFORME DE STOCK.xls

manejo actualmente un formulario que pretende hacer que se reproduzca la vos de excel con el metodo Speech pero la reproduccion de la voz debe mencionar el valor de un combobox y eso me da error,es posible hacerlo? aqui el codigo para su evaluacion Sub voz() Dim var As String var = Userform1.ComboBox1.Value Application.Speech.Speak "var" End Sub

Hola buenos días, tengo una macro que copie de algún sitio, que se ejecuta bien, pero al final sale un mensaje de error. Espero que me podáis ayudar, un saludo. Partes.xlsm

Hola, Mi nivel de programacion en VBA es medio-bajo. Aunque no soy ajeno al mundillo de la programacion quisiera realizar una consulta a los foreros. Pongamos el siguiente ejemplo. Desde una hoja Excel quiero importar datos externos (en este caso una hoja excel). Lo que yo hago normalmente es poner a grabar una macro, simulo la importacion de los datos y despues paro la macro. Asi obtengo el "esqueleto" del codigo y a partir de ahi lo modifico hasta conseguir exactamente lo que necesito. Mi duda esta en esta parte del codigo (he recortado algunas cadenas de texto porque son irrelevantes) With ActiveSheet.QueryTables.Add(Connection:=Array( _ "OLEDB;Provid…

Estimados expertos, de ante mano muchas gracias por toda su ayuda y colaboración con todas las dudas que he planteado sus respuestas oportunas me han ayudado mucho en mi labor diaria. hoy tengo nueva mente un problema con un formato que estoy diseñando para buscar datos en una matriz de un colegio. el problema que tengo es que no se como hacer para que al seleccionar un curso"x" me salga en una celda el listado de estudiantes que están en ese curso"x", y que a su vez cuando seleccione el nombre del estudiante me salga en cada celda del formato los datos del mismo chico, no se si estoy siendo claro, por ejemplo quiero seleccionar el curso "ingles6a", al seleccionarlo…

Buenas, tengo la siguiente consulta. Tengo una serie de gráficos que vinculan de un rango de datos, los cuales se van actualizando semana a semana. El problema esque las celdas en las que el vinculo no contiene nada, se muestran en la grafica como 0, lo que queda bastante feo. Quiero saber si existe alguna macro en la que me cree un grafico eligiendo un rango, y que muestre unicamente donde haya datos introducidos y que cada semana se actualice.. Se que existe algo así, pero no tengo ni idea de como empezar.. Un saludo.

Buenas, acudo de nuevo en busca de ayuda a la página que me ha salvado ya en varias ocasiones, seguro que una vez más me sacáis del apuro. Os relato lo que me propongo y no tengo ni idea de como realizar: Tengo varias carpetas con libros como el que os adjunto, lo que necesito es una macro que me cree un libro nuevo copiando en el todas las filas a partir de la 15, necesito que copie los datos de las columnas A a la G y que en la columna H del nuevo libro me copie el contenido de la casilla A3. El mayor problema que le veo es que hago modificaciones en esos libros a menudo y lo que no necesito es que cada vez me copie los nuevos datos, sino que solo copie los que se a…

Hola, Antes de nada saludar a todos los usuarios. Acabo de vincular varias tablas dinámicas a un mismo filtro de informe con el código que vi en este foro y funciona perfectamente, el problema viene al seleccionar varios elementos dentro del filtro, si marco la opción "seleccionar varios elementos" deja de funcionar. Me podríais ayudar con el código para poder hacer filtros de varios elementos, por ejemplo si tengo el campo trimestres que pueda seleccionar T1, T2 y T3. Este es mi código: Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable) Dim TablaDinamica As PivotTable Const Filtro1 As String = "Trimestre" Appli…

Hola, Gracias a todos por la ayuda anterior de veras que si habria boton de donacion ya lo habria hecho xD Mi plantilla quedo muy bien adjuntare el resultado. Solo deseo mejorar un poco el aspecto visual, veran las historias clinicas se ordenan segun los 2 ultimos digitos de un numero de 5 digitos y me gustaria en mi plantilla resaltar los 2 ultimos digitos de cada numero y que automaticamente al escribir el numero en la celda los 2 ultimos digitos esten con un formato (negrita y color). Ejem: si el numero es 00412 se cambie automaticamente asi: 00412 Gracias por la ayuda anterior n.n Adjunto mi Plantilla n.n PD: Puse formato de numero personalizado: "00000" para …

Hola Estimados del foro , estoy buscando información y a la vez tratar de solucionar un inconveniente con mostrar una imagen donde detalle mi problema: tengo un formulario: (controles listbox,image)y una carpeta donde están todas las imagenes (miles de imagenes).,cuando yo selecciono en el listbox un codigo concatenado ejemplo ("200085-41257"), deseo que me muestre la imagen que esta alojada en la carpeta "imagenes2021" ,pero aqui viene el problema las imagenes que estan en la carpeta no tienen el mismo nombre del listbox la imagen se extrae de una web y viene de la siguiente forma : codigo+zona+fecha ejemplo "200085-41257-20210215.PNG" mi pregunta es como po…

Amigos, muy buenos días, disculpen que moleste, pero veo que saben mucho, y quisiera pedir ayuda en lo siguiente: Debo hacer una operación matemática en una macros que estoy desarrollando, la realiza bien, pero con valores mayores a 1 pero sin redondeo, es decir después de la coma no me da las valores decimales, y solo tengo esto: A modo de ejemplo que al realizar la operación de: 2 * 1.36 = 2.72, y no 2.00 , o 0.35 * 0.2 = 0.07 y no 0.00 como lo está haciendo actualmente. Solo tengo esto: Private Sub TextBox17_Enter() TextBox17 = Val(TextBox16) / 100 * Val(TextBox7) * Val(TextBox22) TextBox17.Value = FormatNumber(TextBox17.Value, 2) End Sub …

Hola a todos Tengo un problema con hipervínculos. Tengo 2 archivos excel en una carpeta llamada "Matriz de calidad" Archivo1: "Matriz de Calidad".Tiene distintas pestañas. En las celdas de la columna A de cada pestaña tiene hipervínculos apuntando al archivo "Matrix pictures". Las celdas con hipervínculos están desde la A3 en adelante, pero algunas celdas están vacías. -Archivo2: "Matrix pictures". También tiene distintas pestañas. En las celdas de la columna A de cada pestaña hay fotos (que son a las que apunta el "Matriz de calidad"). Las celdas con fotos están desde la A1 en adelante He estado trabajando en OneDrive con estos 2 archivos con hipervín…

Muy buenas, en una macro que estoy desarrollando descargo un fichero excel a través de una aplicación java y tras haber pulsado el botón abrir en la pantalla de dialogo de descarga de archivo llego a una instrucción en la cual tiene que seleccionar un rango de celdas de este nuevo archivo abierto . Ocurre que la seleccion la hace sobre el archivo excel que ya estaba abierto antes, no sobre el nuevo. Para resolverlo intente utilziar la funcion application.wait y no me funciono (parece que esta funcion para la ejecución de excel y no llega a cargar mi archivo). Tampoco me funcionó con la funcion Sleep La opcion de activar el nuevo libro sería la ideal, pero ocurre q…

Estoy tratando de hacer un código el cual use Solver para obtener una cantidad dentro de un filtro, de una pequeña base de datos. La columna "G" tiene los numero 1 (para configurarlo como binario después) La columna "D" tiene las cantidades que quiero que Solver revise para que me de una cantidad designada en la columna "i". El error que me arroja es "Error en el modelo. Compruebe que todas las celdas y restricciones son validas" Es posible que algunas celdas de variables estén marcadas como Integer, Binary o AllDiferent Sub busquedadecantidad() Dim cantidad, binario As Range Dim hoja As Worksheet Dim i As Integer Dim datobuscad…