Hola estimadxs! En un proyecto he aplicado la siguiente macro para que la hoja Excel se tape, funciona pero cuando cierro la hoja y vuelvo a abrir la macro deja de funcionar, otra vez se la hoja, mi consulta ? es si pudieran ayudarme, es algo normal o falta algo en la macro para que quede fija. Gracias!!? Private Sub ocultar() Application.DisplayFullScreen = True Worksheets("Dashboard").Select End Sub

Buen día a todos, tengo un archivo donde en la pestaña DC-3 coloco el número consecutivo para que me muestre los datos de como quedaría, tiene un botón para imprimir y otro para guardar en PDF, lo que necesito es que NO me guarde en PDF uno por uno cuando le pongo el rango (de que numero a que numero quiero guardar), lo que me gustaría es que si le digo que me guarde del 3 al 5, por ejemplo, se guarde en un solo archivo PDF. Espero y me puedan ayudar por favor, se los agradezco de antemano. FORMATO DC3 ESASTECA V 03012022.xlsm

Buena tarde foristas. Acudo nuevamente a ustedes para solicitar su apoyo para ayudarme a lo siguiente. Tengo un archivo con 2 Hojas. La Hoja DATOS sirve para almacenar los datos de un inventario, y el cual tiene campos que se deben lleanar, y que tiene un rango dinámico. en cuanto a número de filas se requiere. En la Hoja CUADRO, a partir del rango C4:D4 se filtran y pegan valores únicos de la columna denominada Rodal y Especie. Luego aparecen 2 columnas más, la columna DAP que recoge el diámetro promedio de cada especie que se encontró en un rodal, y la columna VOLUMEN que suma todos los valores de cada especie por rodal. Lo que me falta es incluir una fila d…

Buenos días a todos amigos, Acudo con ustedes en este momento, me bloquié en un código que estoy realizando, Les cuento, estoy trabajando con una consulta de tipo SOAP desde vba excel, logré enviar y recibir la respuesta de los datos, sin embargo, esto fue solo una prueba, ya que valide un dato en especifico, sin embargo, lo que quiero hacer, es validar varios datos a la vez y que esos datos lo tome desde excel, adjunto parte del código en donde considero que estoy mal, ya que no me da el resultado: Según yo con esto estoy referenciando a las celdas de excel, pero no se si me falta algo. Espero contar con el apoyo de ustedes, Mis respet…

en el siguiente archivo hay dos tablas con información, la tabla de la hoja3 es la que quiero que se me actualice tomando los datos de la hoja1, el código buscará el "clues" , "mes", "anio", y la letra del abecedario que son encabezados de la matriz y que están pintados en amarillo, los buscará en la hoja3, si los encuentra entonces pegará los valores en la hoja3, en este ejemplo ya están pintadas de azul y he colocado los valores, de igual manera hará la búsqueda para todos los registros o líneas de la hoja1, no requiero que se pinte de color las celdas solo es para ayudarme a explicarme Espero me puedan ayudar, Bendiciones actualizar tabla2.xlsx

Estimados, tengo una planilla en excel 2003, a la cual quiero ponerle una especie de semaforo bajo las siguientes condiciones (info incluida en el adjunto): Si en la columna L (que indica dias desde el inicio) el valor es mayor a 30, en la columna A se debe mostrar un circulo rojo Si en la columna L el valor esta entre 15 y 30, en la columna A se debe mostrar un circulo amarillo Si en la columna L el valor es menor a 15 o en la columna N el estado es cerrada, se debe mostrar un circulo verde... Probe de muchas formas (en 2007 lo puedo hacer muyy facil!!), pero no me es posible llegar al resultado deseado en 2003...se que debe ser una macro,pero no tengo claro como …

Necesito hacer una macro que seleccione una hoja dentro de un mismo libro de excel y el nombre estara determinado por el valor que contenga mi textbox de mi formulario

Buenos Dias, el dia de ayer me arreglaron el siguiente código ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Hoja1!R1C1:R" & Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row & "C28", _ Version:=xlPivotTableVersion14).CreatePivotTable _ TableDestination:="Hoja2!R4C1", TableName:="Tabla Dinamica2", _ DefaultVersion:=xlPivotTableVersion14 y funciono perfecto, ahora quiero remplazarlo en en otra macro y remplace algunos campos : …

Buenas tardes; tengo algunos problemas tratando de diseñar esta formula, necesito que de un rango especifico, ejemplo a2:a100 me indique cuantas palabras ABIERTA, CERRADA y P.O. encuentre, pero por colores, dentro de ese mismo rango, tengo 20 celdas de color rojo, 30 de color verde, etc, y las palabras esparcidas aleatoriamente, y el problema es cuando necesito saber cuantas abierta, cerrada y po se encuentran en cada color, quizá por separado? indicar el rango total, pero que solamente que me filtre un color? estoy completamente confundido con que función usar..

Hola. Mi problema es el siguiente. Tengo una lista desplegable con 150 elementos, y deseo que en función del elemento que escoja realice una u otra función (al cual llamare con una macro). La lista desplegable la tengo asociada a la celda A1. si cambio el elemento de la lista cambia el valor de la celda a1. Pero no consigo que el Excel se de cuenta que ha habido una actualización en la celda A1 y comience de nuevo el programa. En cambio, si el valor de A1 lo cambio manualmente, es decir, introduzco yo el valor entonces si que se activa Private Sub Worksheet_Change(ByVal Target As Range) End Sub y me ejecuta el programa. Lo que me gustaría saber (para evitar poner …

Hola, tengo un formulario que he hecho, con lo que he averiguado, puedo agregar una imagen desde cualquier ruta externa, lo que no puedo hacer es que se inserte en una celda y que al insertar un nuevo miembro pase a otra celda como hace el texto insertado y que se quede del tamaño de la celda. Auxilio!!!!!!!!!!! jajajaja Miembros Pruebas.rar NO SIRVE EL OTRO SI SIRVE Miembros Pruebas.rar Miembros Pruebas EDITADO.rar

Buenas, me encuentro con el siguiente inconveniente: Tengo un archivo con diferentes hojas, las cuales quiero imprimir en PDF es un orden diferente, por lo cual cree un codigo para ello, donde puedo definir el orden de impresion segun se requiera, y asi mismo, seleccionar el rango de impresion. El problema que cuentro que es quiero que se genere un solo archivo PDF, con el codigo que desarrolle imprime N cantidad de archivos en PDF. Sub Imprimir() Dim Hoja As String Dim Rango As String Dim i As Integer Application.Dialogs(xlDialogPrinterSetup).Show For i = 1 To 5 Hoja = Worksheets("Print").Range("A" & i) Rango = Worksheets("Print").Range("B" & i) Workshe…

Estimados amigos: me permito solicitar su colaboración con respecto a lo que me esta sucediendo con el archivo (2)_Devoluciones.xlsm el cual fue un excelente aporte que realizo otra persona en el foro y que permite llevar un control de devoluciones, lo que sucede es que el funciona correctamente en una pc que tengo pero cuando trato de ejecutarlo en otra pc diferente sucede algo que no he podido identificar a que se debe, los valores de en el formulario se multiplican x 100 cada vez que selecciono la celda del formulario. espero que me puedan ayudar solucionado este inconveniente. mil gracias por su ayuda. (2)_Devoluciones.rar

hola expertos muy complacido de contar con sus conocimientos y a la espectativa de aprender sobre este maravilloso mundo de la programacion gracias por compartir sus conocimientos tan loables y eficaces. mi pregunta va encaminada a insertar los codigos de en la hoja base llamada produccion veo como inapropiado ingresar los codigos de manera manual me gustaria que se registrara automaticamente a medida que se registra un nuevo dato ejemplo ingreso un dato y su codigo se registra automaticamente asi pro-0000001, ingreso otro dato y su codigo sera pro-0000002 y asi sucesivamente; cabe anotar que tengo con un label que por parametro me avisa si el codigo es valido o no pero…

Buen dia amigos del foro amigos para que si me pueden colaborar en la siguiente formula de busqueda por nombre y codigo de empleados, lo que pretendo es que cuando realizo la busqueda por el codigo me salga el nombre del empleado y que se registre la entrada y salida y que automaticamente se registre en la planilla matriz y asi sucesivamente con las demas hojas de cada nombre de empleados Amigos gracias por su colaboracion ejemplo.rar

Buenas dias a todos los del foro Espero su ayuda que de antemano agradesco, el simple hecho de leer el topico Es un reporte de venta, que se realizara diario lo cual se hace tedioso el estar copiando y modificando las formulas de la hoja del dia anterior, por eso pido su apoyo, con la grabadora hice el formato del dia 12 de mayo, pero hacer una rutina por cada dia con la grabadora se haria extensa, - Al crearse el nuevo formato mediante un boton, la hoja lleve el nombre del dia del mes y año correspondiente. Gracias, saludos desde mexico, que sigue temblando jordddy Control venta diaria.rar

Buen dia Estoy haciendo una macro que busque una oracion en especificio y borre filas hacia abajo o hacia arriba estoy usando el bucle Do loop manejando los errores cuando no encuentre las palabras con GoTo, la macro funciona bien al ejecutarla pero cuando termina siempre termina dandome un error en la parte de enmedio que marco con negritas ya intente de muchas maneras cambiando el orden de busqueda y sigue apareciendo el mismo error me podrian decir que estoy haciendo mal. tambien eh manejado en el ultimo Do poner On Error Resume Next y lo unico que hace es crearme un bucle infinito y empieza a borrar todos los datos de la macro por que obviamente la siguiente linea qu…

hola este es mi primer post soy nuevo en este temas de macros espero alguien me pueda orientar con la duda siguiente desde vba excel intento crear y Eliminar Citas en el calendario de outlook buscando adapte este codigo y puedo crear sin problema una cita pero no puedo eliminar la cita, espero algun maestro de aqui o alma caritativa de este foro me pueda ayudar orientandome gracias Dim ol As Outlook.Application Dim ns As Outlook.Namespace Dim Respuesta As VbMsgBoxResult Dim itmApoint As Outlook.AppointmentItem Sub Botón1_Haga_clic_en() Set ns = ol.GetNamespace("MAPI") Set itmApoint = Outlook.Application.CreateItem(olAppointmentItem) With itmApoint .Start = "2…

Amigos, quiero pasar el color de fondo de una celda a un control textbox he intentado con este pero no sale, por favor sus comentarios For X = 2 To Productos.Range("A1").End(xlDown).Row If Me.CbPoductos.Text = Productos.Cells(X, 2) Then TxtLunes.BackColor = Productos.Cells(X, 2).Interior.Color End If Next[/CODE] a la espera de sus comentarios Celest3 [/b]

Estimados muy buenas tardes, tengo un problema y espero que me puedan ayudar Estoy haciendo un sistema de facturacion, y cuando busco un producto en el botón de "BUSCAR PRODUCTO", al costado sale una imagen si hacemos click la imagen me va abri un form con la imagen mas grande, el problema es que cuando lo cierro y pongo a buscar otro producto ya no se muestra la imagen de producto como que se quedo congelado con el primero que hice el click, espero que me puedan ayudar :(, los adjunto los archivos

Hola muy buenas, nose si este es el lugar, la verdad pero es que tengo un csv que esta en formato libro de excell que me pasa mi proveedor y quisiera que aparecieran tambien las urls de las imagenes y otras cosas de interes para subirlo a unas webs comerciales pero lo que ocurre es que me dan una informacion de como acceder a una API que tienen ellos para hacerlo, el tema es que no entiendo muy bien que es lo que tengo que hacer para "llamar" o algo asi dicen a esa accion, tengo que poner ese tipo de link que me dan en la API en el recuadro de el articulo el cual quiero la imagen y la descripcion? Por ejemplo para las especificaciones me dice esto: …

Muy buen día, tarde, noche. Me he buscado en la web y no he podido encontrar respuesta a lo que tengo en mente. He creado una UDF, y funciona muy bien, el problema que tengo es que al momento de usarla en una hoja, no muestra los argumentos necesarios para que funcione correctamente la fórmula. La pregunta es: ¿Se puede lograr que se muestren los argumentos necesarios de la función en una hoja? Es decir, así como cuando se usa la función BuscarV, que en pantalla se muestran los argumentos necesario ("valor_buscado, matriz_buscar_en, indicador_columnas, [ordenado]") No se si es necesario subir archivo para esto, pero pego aquí la formula que he cre…

Hola a todxs, Quiero depurar el siguiente código: ... Columns("F:F").Columns.Group Columns("J:J").Columns.Group Columns("M:M").Columns.Group Columns("Q:S").Columns.Group ... Y se me ha ocurrido aplicando un Array: ... Dim Columna As Range Set Columna = Array("F:F", "J:J", "M:M", "Q:S") For Columna = 0 To UBound(Columna) Columns(Columna).Columns.Group Next Columna ... Pero me da error. No logro identificar qué estoy haciendo mal. Necesito orientación... Gracias de antemano por vuestro tiempo.

hola buenos dias algun codigo para eliminar repetidos, pero dejando un solo numero de ellos mi rango de datos es a1:cy42 de antemano gracias Libro1.xlsm

Estimados amigos del foro saludos cordiales luego de buscar algo parecido a lo que requiero encontre un ejemplo, al cual he tratado de adaptar y ya casi funciona. En el archivo de ejemplo que subo no estan todas las hoja para abreviarlo,... pero alli se encuentra una hoja de BD del mes de octubre en la que se acumularan los registros solo de ese mes para cualquier año... luego de una busqueda con los combobox del formulario para reporte se muestra el resultado en el listbox, el mismo que debera mostrarse tambien en la hoja Info_Temas, ..alli es donde surge el problema pues se borra el encabezado del cuadro y ademas la informacion no se ubica en la linea luego del enc…