Hola a todos señores foristas...Estoy intentando introducir un control calendar en mi formulario pero no lo encuentro por ningun lado... mi version de Excel es la 2007. Hace tiempo ya utilice este control en otras versiones de Excel y no recuerdo de donde las saque ,pero .... no estaban tan ocultas seguro ( porque las encontre ) Muchas gracias por su ayuda Un saludo Salvador

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

Buenas Tardes!! Una vez mas solicitando de su amable ayuda Tengo Un Libro conformado así: Hoja Layout de un casino donde me muestra la distribución de los juegos, Hoja Thermo Indicador donde corresponde la Licencia de cada juego Hoja Base x maquina que contiene la base de datos correpondiente a las licencias Por medio de VB deseo que cada vez que se seleccione un juego, un Msgbox me arroje los datos de la licencia Adjunto Ejemplo De antemano muchas gracias MsgBBuscador.rar

Hola, ante nada buenas tardes. Me comunico con ustedes para ver si me pueden ayudar. Cuento con una serie de libros de excel de gestion de resultados de futbol. los mismos cuentan con una macro auto open que actualiza los ultimos partidos del equipo correspondiente y lo indexa para ser tenido en cuenta en futuras estadisticas. El problema es que luego de "indexar" una serie de resultados al cabo de algunas semanas el archivo se corrompe, mostrando un error que dice "No se puede encontrar el proyecto o la biblioteca" generando que el excel se cierre. Por suerte tengo backup de todo, y les voy a dejar adjuntos en este mensaje 2 archivos iguales, nada mas que …

Buenos dias comuninidad Ayuda Excel, estoy realizando un poryecto, en el cual estoy detenido en lo siguiente: necesito pasar de un listbox1 del userform1, a otro listbox1 del userform2, para empezar; ya que necesito realidad pasar el valor del userform1 de 4 listbox, o sea del userform1 listbox1 listbox2 listbox3 istbox4 al del user userform2 listbox1, y el valor de este userform2 listbox a una celda "x" Espero me puedan apoyar con el codigo, para poder adaptarlo al proyecto ya que estoy hecho pelotas. Saludos buen dia.

Hola a toda la comunidad, espero me puedan ayudar a un problema al parecer simple, pero no he podido darle solución a esto: Tengo un checkBox1 con esté código que al activarlo y me salga el mensaje de Ok y Cancel, al presionar el botón OK, se ejecuta la macro "ModificarFicha" (Hasta ahí todo bien).... Private Sub CheckBox1_Click() Dim respuesta As Variant respuesta = MsgBox("¿Desea registrar ahora la ficha?" + Chr(13) + "¿Desea proceder?", vbOKCancel) If CheckBox1.Value = 1 And _ respuesta = vbOK Then ModificarFicha End If End Sub El problema resulta cuando ya tengo el checkbox1 activado y ya se ejecuto la macro "ModificarFicha" porque presioné Ok. en mi f…

1. Tengo un archivo de excel con macros y estos macros despliegan un menú pero tengo un problema al hacer una busqueda en el boton de consulta de datos y anulacion de contratos, al momento que se hace la busqueda despliega un formulario que solcita el numero de contrato y luego presionamos el boton buscar; si empezamos del contrato 1 en adelante no hay problema pero si le coloco en la celda A2 un numero diferente por ejemplo que empiece del 171, (como veran en el archivo que les envío), al hacer la busqueda del contrato 172 no lo encuentra. que puedeo hacer para que haga la busqueda no importantdo el numero de inicio. 2. al momento de crear el formulario de ingreso…

Espero me puedan ayudar por favor, en una macro que rellena campos de una pagina de Internet, estoy usando este código, pero no me funciona, ya intente de varias maneras y aun no puedo. objIE.document.getElementById("reason").Value = "REDS" <select name="reason" class="__web-inspector-hide-shortcut__"> <option value="" selected=""></option> <option value="BENEFIT">Benefit Payments</option> <option value="CLIENT">Client Contribution</option> <option value="DIVIDEND">Dividends</option> <option value="DVDREINV">Dividend Rei…

Muy buenas a tod@s espero que me puedan ayudar, quisiera que desde una hoja excel , pinchando en la foto del relosj, se ejecutase el reloj -temporizador de windows 10, pero de momento no lo he conseguido , muchas gracias de antemano por sus respuestas. PRUEBA TEMPORIZADOR.xlsx

Hola amigos como estan? Aqui molestando con otra situación espero porder contar con su valioso. Tengo una hoja que se llama "Auxiliar" y tengo una hoja que se llama "XML". La idea esque en la hoja XML me valla buscando los datos en la hoja auxiliar en la columna J de acuerdo a la columna I en la hoja de XML y a la vez que me marque en cualquier color las filas que se van encontrando en ambas hojas, el pequeño detallito esque en la hoja Auxiliar no trae completo el folio solo viene los últimos digitos. Ya busque la forma pero me doy por vencido por eso me acudo con ustedes. Adjunto el archivo como debe de quedar. De antemano muchas gracias. Buscar.rar

Hola a tod@s, Tengo esta macro que funciona perfectamente, que renombra las hojas según el listado de nombres de la hoja "AA_Nombres": Sub renombra_hoja() Dim Hoja As Worksheet Dim Fila As Long Fila = 5 For Each Hoja In Worksheets Hoja.Name = Cells(Fila, 3) Fila = Fila + 1 Next End Sub ¿Se podría modificar la macro para que en vez de renombrar la hoja, pegue el nombre en la celda A2 (por ejemplo)?

Tengo una tabla en la que necesito buscar y mostrar un resultado en base al intervalo de fechas pero no tengo idea de como hacerlo, les dejo el ejemplo y un comentario adentro del mismo 1 a medias.xlsm Marcaje.dat

Buenos días foreros: Tengo un problemilla que creo que se podría resolver con un par de líneas de programación. He realizado una serie de medidas (Medidas 1, 2 y 3) que consisten en valores de coeficientes de fricción para un número fijo de frenadas por medida. El número de valores varía ligeramente ya que no todas las frenadas duran lo mismo. Esto es lo que resulta un problema para su representación después. Me gustaría que el número de valores por frenada fuese igual (aunque de una frenada a otra puede ser diferente, por ejemplo, la 2 puede tener 30 valores y la 5 puede tener 50) y podría valerme añadir ceros hasta igualar la longitud de las frenadas más corta…

Estimados, Su ayuda por favor, me considero nivel usuario ultrabasico para macros de excel y espero mi pregunta pertenezca a esta sección. Mis trabajadores trabajan con un sistema X que les pide dejar una nota de resumen de lo realizado. Dicho esto, por el momento trabajan con una planilla en excel infinita que les permite llenar los datos solicitados, para luego seleccionar las celdas, darle copiar (ctrl+v) y luego pegarlas en el programa X. Luego solo bajan con el scroll a la siguiente "planilla" y repiten el proceso. Me gustaría automatizar un poco la planilla para alivianarles la carga. Les muestro la "planilla" de ejemplo a llenar (siento no poder h…

Estimados, me pueden ayudar no se como realizar esta consulta en macros, lo que quiero es traer el codigo, descripción y precio de 2 tablas en MySQL y mediante un boton se actualice en mi hoja de Excel, ya realice mi conexion de ODBC Espero que me puedan ayudar, Muchas Gracias Actualizar BD.xlsx

Buena Noche quisiera incrustar una lista desplegable en mi hoja de calculo pero el llenado de la lista la quiero hacer mendiante codigo vba. Gracias Fernando

Eso. ¿Alguien sabe si es posible agregar una ocx que hice en vb6 a un formulario userform de VBA de excel?

Buenas tardes a todos, ¿Alguien sabría como invertir los valores de una columna? Tengo un rango que va desde A3 hasta A50 y quisiera encontrar una macro para invertir los valores y ubicarlos en el mismo rango, pero al revés..... es decir; el valor de A3 debe ser el que tiene A50, el de A4 debe ser el de A49 el de A5 debe ser el de A48 ....y así hasta llegar la final, que el de A50 sea el de A3 ¿alguna idea? Gracias por adelantado.....

Buenas a todos, acudo a su ayuda para intentar terminar una macro en la que llevo comiéndome la cabeza bastante tiempo. Resumiendo, lo que intento es hacer una hoja de firmas de profesores, en la que según los horarios de cada profesor, donde tienen clase o alguna actividad la casilla quede en blanco con la intención de que firmen y donde en su horario no tengan clase pues aparezca una X para no firmar. Por tanto, la planilla sería diaria, para firmar cada día de la semana, de manera que según el día seleccionado en la lista desplegable de la hoja "HOJA" del Archivo principal "MACRO FIRMAS", la macro abra los archivos de los horarios de los profesores, que se en…

Buenas tardes, Perdonad mi ignorància en excel pero he creado un boton para ocultar y mostrar hojas. He puesto en el VBA la macro pero supongo que la he escrito mal, me gustaría que alguien con mas conocimientos que yo me pudiera ayudar, Me pone el siguiente error: Se ha producido el error 9 en tiempo de ejecución: Subíndice fuera de intervalo gracias Sub MostraryOcultarHojas() Sheets("Hoja10").Visible = False Sheets("Hoja11").Visible = False Sheets("Hoja12").Visible = False Sheets("Hoja13").Visible = False Sheets("Hoja14").Visible = False Sheets("Hoja3").Visible = False Sheets("Hoja5").Visible…

Buen dia Tengo dos tablas en power pivot, en una tengo las ventas por canal de distribucion (tabla ventas) y en la otra tabla los que se gana el distribuidor por canal (flete), como hago para traerme a la tabla de ventas el valor pagado por canal (Ttal_Flete_Vrbl) de la tabla de fletes, teniendo en cuenta que el valor corresponda a la misma ruta y el mismo canal Agradezco su colaboración Fernando Trujillo Consulta PowerPivot.xlsx

Llevo algún tiempo probando este tema pero no lo consigo, agradezco cualquier ayuda u orientación, gracias Libro1.xlsm

Tengo una tabla dinámica con una columna que se llama servicio los cuales los nombres de los servicios son A6,50,64,69 como le puedo decir mediante una condición if que si existe el servicio ejecute la instrucción visible false y si no que no lo haga que cheque el otro servicio ActiveSheet.PivotTables("Tabla dinámica4").PivotFields("SERVICIO").CurrentPage _ = "(All)" With ActiveSheet.PivotTables("Tabla dinámica4").PivotFields("SERVICIO") .PivotItems("A6").Visible = False .PivotItems("50").Visible = False .PivotItems("64").Visible = False .PivotItems("69").Visible = False .PivotItems("(blank)").V…

Hola a todos, gracias de antemano. Adjunto archivo donde explico en lo que deseo me ayuden. En la hoja inicial tengo una tabla con encabezados y cantidades. Lo que deseo es que en las celdas donde haya cantidades, estas sean sustituidas por el encabezado. Y por último, en la hoja "Resultado esperado", está la tabla a como deseo obtenerla. Las celdas vacías sean eliminadas y ocupadas por la siguiente celda con dato a la derecha, o lo que es lo mismo, correr las celdas con datos hacia la izquierda, sustituyendo las celdas vacías. Gracias de nuevo por su acostumbrada ayuda agrupar celdas con datos.xlsx

G1 en la hoja "titulares" es la celda que quiero referenciar en mi macro, ya que quiero ingresar el nro de registros que quiero imprimir, y no salga los 15, por ejemplo si solo quiero los 5 primeros ... y si la celda g1 estuviera en la hoja gastos como lo agrego a la macro "imprimir" aquiles dejo el codigo de la macro. ______________________________________________________________ Sub Macro1() Sheets("gastos").Select ActiveSheet.PageSetup.PrintArea = "A1:D14" For i = 2 To 15 depto = Sheets("titulares").Cells(i, "A") nombre = Sheets("titulares").Cells(i, "B") porcentaje = Sheets("titulares").Cells(i, "C") …