Como se puede adaptar este calendario a un archivo para que se pueda ver en todos los equipos en un userform. Anexo Archivo modelo con userform. Gracias

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

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. Tengo hecha una macro muy sencilla cuyo objetivo es mostrar en otra hoja aquellas celdas que están en blanco. Este es el código: Public Sub blancos() Dim f As Integer Dim f_max, c_max As Long ActiveWorkbook.Worksheets("Hoja1").Copy after:=Worksheets("Hoja2") 'Para saber cuantas filas y columnas hay como maximo rellenas f_max = ActiveSheet.Cells.SpecialCells(xlLastCell).Row c_max = ActiveSheet.Cells.SpecialCells(xlLastCell).Column 'Para situarse en la celda Range("AE").Select 'Cells(4, 10).Select 'Rows(4, 10).Select For f = 4 To f_max If ActiveCell.Value <> "" Then ActiveCell.EntireRow.Delete If ActiveCell.Value = "" Then ActiveCell.Offset(1,…

Que tal necesito realizar una macros para que me cambie el orden 31/08/2012 por ejemplo a 08/31/2012 y 1/2/2012 a 2/1/2012 automaticamente, en un rango, saludos

Buenas buenaaaas, alguien podría explicarme como programar un monthview para que la fecha seleccionada se vea en una celda de la planilla de excel determinada? desde ya muchas gracias

Hola, como están totos ? Mi consulta es la siguiente. En un userform en el hay un listview; cuando imprimo el userform el listview sale blanco (sin datos en la impresión.) como hago para ver estos datos en la hoja impresa? Saludos Sabatb.

Buenas tardes y gracias de antemano Necesito crear el código para buscar un texto en una serie de filas y si encuentra alguno de ellos, me de un resultado. Texto a buscar = autopistas autorizadas - columna E Donde buscar = autopistas realizadas - columna A Resultado = está el trayecto autorizado??- columna B como soy novato en VBA , agradecería un código sencillito de entender gracias de nuevo por vuestro tiempo. no me deja subir archivo ejemplo en Excel por lo que no puedo adjuntar ejemplo

Hola a todos! tengo esta macro: Sub loco() Dim CompareRange As Variant, x As Variant, y As Variant, contador As Double Dim RANGES As Range Set CompareRange = Sheets("PRECIOS").Range("B1:B1000") Set RANGES = Sheets("COMPRAS").Range("B1:B1000") Application.ScreenUpdating = False Sheets("PRECIOS").Select Range("A1").FormulaLocal = "=CONTARA(B1:B1000)" For Each x In RANGES For Each y In CompareRange If x = y Then contador = 1 Next y If contador = 1 Then contador = 0 Else Cells(Cells(1, 1…

Buenas: Queria saber si existe alguna propiedad tipo autosize del listbox. Un ejemplo de base de datos: PAISES ARGENTINA ARGELIA BRASIL GRAN BRETAÑA GRECIA Guayana La idea es escribir en el combobox, la letra "A", y en el listbox solo muestre los datos encontrados, en este caso solo Argentina y Argelia y en el caso que escriba "G" solo mueste, Gran Bretaña, Grecia, Guayana sin ocupar espacio de mas, o sea, que solo expanda de acuerdo a las coincidencias. Gracias

ola compañeros de excel , Estoy creando una macro excel-visual basic resulta que tengo unas pequeñas dudas , soy nueva en este tema deseo que en la cantidad OP lo digitado en el frame ejemplo (2415) me recorra en la hoja reporte campo : LOTE me Aparezca 2415-en la celda C16,C17,C18 ETC eN EL CAMPO DEL FRAME # cAJAS SEA DE 1 A 10 CAJAS POR DECIR y en la hoja reporte me recorra en el campo nº Caja ejemplo (1,2,3 etc) y poder imprimir la fecha en la hoja ... por favor colaborenme...como puedo realizarlo

Buen día a todos, un cordial saludo. En primer lugar me gustaría mencionar que no soy un experto de la programación en Visual Basic, y espero lograr explicar la consulta y/o ayuda que necesito con respecto a una macro y su respectiva programación en VBA. Para entrar en contexto, los archivos que voy a anexar corresponden a una encuesta sobre el lanzamiento de un producto al mercado. Dicha encuesta se va a realizar dentro de la compañía, y se hará por supuesto en Excel. El libro contiene dos hojas, la primera denominada "ENCUESTA", la cual es muy sencilla de responder: las personas indicarán con una X la o las respuestas que consideren correctas en cada pregunta.…

Hola buenos días Mi pregunta es la siguiente Lo que pasa es que soy principiante en esto de excel como desarrollador he creado mi primer proyecto el cual se insertan datos consulta y eliminar an estos en fin Lo que quiero es que al cerrar dicho proyecto también se cierre el proceso de excel Tengo un formulario "frmPrincipal" el cual tiene un boton salír # este boton al darle click cierra y guarda # Pero al dale salír cierra mi proyecto pero me voy al administrador de tareas y aun sigue en proceso *excel* Lo que quiero es que al darle click al botón salir me cierre, y también mate ese proceso de excel El código que tiene ese boton es el siguiente Private su…

Hola a todos de antemano gracias , quiero perdirles ayuda, ya que quiero crear , un filtro avanzado , para buscar ciertos criterios , en una hoja de productos, y quiero que cuando se ejecute el filtro con vba , si no encuentra el criterio buscado me diga que no encontro dato con un mensaje box. pero no hallo como meterle el mensaje box para que me digo ese mensaje. Gracias

Buenas tardes. He cogio un excel de un blog finanzas, que lo desarrollaron para "sorteos" en campeonatos. A raiz del mismo, he incluido un par de columnas de "datos", y necesito vuestra ayuda para: 1.- Con las columnas de la A a la G, quiero que obtener un orden aleatorio, como ya sale, pero que no salgan consecutivos 2 que coincida el club de la columna D. 2.- Con todas las columnas, quiero obtener emparejamientos, en los que se de la misma condicion anterior, o sea, que no se emparejen dos. Gracias. 15 1.xls

Buena Tarde. Actualmente estoy diseñando un proyecto con dos objetivos Mediante un Formulario Llamado Registrar, generar un registro de producción en una linea de empaque de rosas, por variedad, tamaño y empacadora. Mediante un Formulario Llamado Reportes, generar los siguientes reportes TOTAL DE PAQUETES POR DÍA TOTAL DE PAQUETES EN UN PERIODO ESPECIFICO TOTAL DE PAQUETES POR VARIEDAD POR DÍA TOTAL DE PAQUETES POR VARIEDAD EN UN PERIODO ESPECIFICO TOTAL DE PAQUETES POR EMBONCHADORA POR DÍA TOTAL DE PAQUETES POR EMBONCHADORA EN UN PERIODO ESPECIFICO TOTAL DE PAQUETES POR TAMAÑO (CÓDIGO) / DÍA TOTAL DE PAQUETES POR TAMAÑO (CÓDIGO)/PERIODO ESPE…

Hola, quiero pedir de su ayuda una vez más con el siguiente código, lo que sucede es que me marca error 91 en la 4ta linea "buscar.Activate", no tengo idea de como solucionarlo Private Sub BAgregar_Click() Dim buscar As Range Set buscar = Cells.Find(What:=TbPaciente) buscar.Activate b = ActiveCell.Row TbIMC.Text = Sheets("Pacientes_Cb").Range("Y" & .Text TbGrasaK.Text = Sheets("Pacientes_Cb").Range("AC" & .Text TbGrasaP.Text = Sheets("Pacientes_Cb").Range("AD" & .Text TbMusculoK.Text = Sheets("Pacientes_Cb").Range("AE" & .Text TbMusculoP.Text = Sheets("Pacientes_Cb").Range("AF" & .Text End Sub [/PHP] De antemano gracias

como crear una factura donde imprima y guarde de datos de la factura pero utillizando un formulario.

Buenos días Grupo Acudo a la ayuda de ustedes para realizar una conexión de un macro de excel a una base de datos de ACCESS Ademas me gustaria saber si es posible que detecte si la hoja Registro tiene mas de una fila con datos lo pase automaticamente al archivo de ACCESS. Saludos Datos.rar

Buenas tardes, tengo desarrollado una serie de formularios de búsqueda, bajo distintos criterios buscan en la tabla excel y muestran los datos de las lineas que correspondan en un listbox. El caso es que si bien la búsqueda la realiza bien, en el listbox aparecen después muchas lineas en blanco que no tengo muy claro como quitar, si alguien pudiese echarme un cable estaría muy agradecido. Un saludo Empresas.zip

Hola, soy nuevo en la comunidad y tengo el siguiente problema: Genere algunos formularios con MsgBox en Office365 en Windows OS 10, estos mensajes me aparecen delante de formulario y se ejecutan sin problemas, pero al momento de ejecutar el mismo documento en OS MAC todos los MsgBox aparecen detrás del formulario y debo correr el formulario hacia un lado para seleccionar la acción y seguir. Aplique el vbMsgBoxSetForeground dentro de la sintaxis, pero aun así persiste el incidente y esto solo pasa en MAC. Ejemplo de una configuración. Private Sub SalirA_Click() Dim Pregunta As String Pregunta = MsgBox("¿Desea salir?", vbYesNo + vbQuestion + vbMsgBoxSe…

bueno amigos tengo un problema que me gustaría resolver la verdad no se como hacerlo, tratare de explicarme bien quiero hacer una macro que al abrir el explorador de archivos yo vaya a una carpeta o ruta "X", pero yo quiero guardar esa ruta en una variable para después usar solo la variable, esto con el fin que estoy tratando de hacer un catalogo con imágenes, pero quiero que ese catalogo guarde un registro con nombre e imagen por lo tanto quiero haya un botón de buscar imagen, que se vea en un image y luego se guarde no se si me explique bien.

Buenas Tardes, No he podido revisar todos los temas existentes, asi que pido disculpas si planteo algun tema ya solucionado. Quisiera saber si puedo buscar los valores de una fila ( filtrados por la fila anterior (A) y sumar los valores hasta que el resultado se aproxime a una cantidad determinada (C1), pegar el resultado de dicha suma en otra celda y borrar dichos valores de la fila, para repetir la acción con los valores restantes de la fila (. Espero no haber sido demasiado poco explicito. Gracias por anticipado adjunto ejemplo .... Ejemplo.xls

saludos. estoy desarrollando un formulario en los deseo calcular varios textbox y mostrar el resultado en otros, el problema radica cuando los coloco con formato de miles los cálculos no funcionan; por favor si alguien me puede dar una ayuda o indicarme el procedimiento. ya he utilizado el cdbl(replace((.. obteniendo el mismo resultado. adjunto enlace. https://drive.google.com/drive/folders/1mPjlo-c7rCrwALgK9pF20e3J-XQG8Wk6?usp=sharing muchas gracias por su pronta colaboración.

Nuevamente por acá amigos, les platico sigo realizando una aplicación donde se realizara la salida de productos. Con la ayuda de varias personas del foro y lo que eh investigado ya esta un poco avanzado. Les platico como funciona en lo general: De un ComboBox se jala la información de la BD a varios TextBox y posteriormente se captura la información del cliente en los otros TextBox. Con el botón "Ingresar datos" se descarga la información a una hoja llamada "Salidas" y también lo carga en un ListBox. En caso de ingresar un producto no deseado, se puede eliminar seleccionando en el ListBox y después pulsar el botón "Eliminar datos". Hasta ahí t…