Macros y programación VBA

Estimados, estoy comenzando con el tema de las macros y en busqueda de ayuda para resolver algunas de las necesidades di con este genial foro con el que pude solucionar varias de ellas. En esta oportunidad necesito hacer un archivo que debo completar con algunos datos y que cuando se cierre genere archivos que sean correlativos. Por ejemplo: Abro el archivo "Manzanas.xlsm" y cuando lo cierro necesito que lo guarde como "M.04-13.01.xlsm". Donde la M es de Manzanas, 04 es por el mes en curso (en este caso abril), 13 es por el año y 01 es el numero de correlatividad. Quedando en la carpeta el archivo "Manzanas.xlsm" y el "M.04-13-01.xlsm". Y que este codigo quede en una c…

Estimados: Trabajo con una planilla de control de horas de maquinas viales. Dichas horas las cargo en una base de datos manualmente y luego mediante la siguiente formula de excel: Formula Excel: {=SI(ESERROR(INDICE(Horas;COINCIDIR($F7&H$4;Equipos&Fecha;0)));"";SI(INDICE(Horas;COINCIDIR($F7&H$4;Equipos&Fecha;0))="";"";INDICE(Horas;COINCIDIR($F7&H$4;Equipos&Fecha;0))))} Extraigo las horas que ha trabajado cado equipo por día y las coloco en in informe tipo tabla dinamica, en la que hago otros calculos mas. Donde: $F7: es el equipo que se busca en el rango "Equipos" de la base de datos H$4: es el día de trabajo que se busca en el rango "Fecha" de…

Hola amigos, saludos a todos, hoy me encuentro realizando un trabajo, pero necesito de su apoyo. He creado un código para poder importar datos desde una tabla de Acces, pero al ejecutar me sale un mensaje que hasta el momento no he podido encontrar la solución, es por eso que recurro a ustedes para su valioso aporte. Además, crear un código para un segundo filtro con la columna K. Les adjunto los archivos. Proveedor Corregido.zip Proveedores.zip

Buenas tardes, Os comento, he creado un formulario para introducir unos datos en una hoja "INFORME" del libro excel en el que trabajo. Esas incidencias se escribirán a partir de la línea 36 que es donde está ese apartado, bien esto con el siguiente código bien. Worksheets("INFORME").Range("A36").Value = Me.TextBox1.Value Worksheets("INFORME").Range("B36").Value = Me.TextBox2.Value Worksheets("INFORME").Range("C36").Value = Me.TextBox3.Value [/CODE] El problema es que necesito que siga escribiendo en la siguiente fila vacía si tengo más de una incidencia y no consigo hacerlo. Gracias de antemano

Hola amigos, disculpen pues son dos en uno, el primero tengo un USERFORM pero necesito llenar unas columnas discontinuas (D:G) y de la (W:AH). En el userform si se pudiera agregar un boton para corregir datos (limpiar fila y corregir) Mil gracias. Libro1.rar

buenas compañeros. aca tengo este ejemplo de userform de divicion. lo que deseo es que cuando divido la cifra no me aparescan tantos numeros. por ejemplo cuando hago esta divicion 14000/3800 = 0.27 que me de ese resultado 0.27 me explico, actual mente como esta me tira 0.27142857142857, lo que no deseo es que me tire ese monto de numero, quiciera que redondee el resultado o que solo tire 0.27 gracias por su ayuda aca subo un ejemplo de como tengo el archivo divicion.rar

Hola de antemano muchas gracias por tu ayuda, estoy que me rompo la cabeza tratando de realizar el siguiente macros: En una hoja llamada "registro" tengo todos los datos, en la columna b (turno), columna c (fecha), columna d(cota1), columna e (volumen1), columna f (cota2) y columna g (volumen2), como son varios datos quiero que estos al momento de poner un dtpicker inicial y un dtpicker final, solamente se extraigan los datos comprendidos en dichas fechas y que se almacenen en otra hoja llamada (Registro). A su vez tengo dos turnos A y B, en los cuales se colocan diferentes datos por ejemplo: Turno Fecha Cota 1 Volumen1 cota2 VOlumen2 A 01/01/01 1000 300 2345 10…

hola necesito saber cual es el procedimiento paraa recorrer un label y que me devuelva una palabra por ejemplo en la segunda posicion, el problema es que es dinamico el texto va cambiando segun otras operaciones, entonces necesito que me devuelva la palabra en una pocicion especifica independiente del largo de la palabra o numero de caracteres proque variara la palabra que se quiere devolver. saludos

hola amigos, les comento que quiero su ayuda por favor, tengo un excel con una tabla con 270000 fila aprox, y tablas dinamicas asociadas a ese rango de manera dinamica usando ref, y necesito saber si convendría mejor tener esa tabla en otro archivo y asi alivianar el peso de 50mb a 3 mb del archivo principal con las tablas dinamicas, mejoraria el rendimiento?, y de ser así, ¿como puedo hacer una macro que lo que haga sea asignar el origen de datos a esa tabla dinamica hacia el otro archivo? pero de tal manera que si es que cambio de pc, tambien cambie la deteccion de la ubicacion del archivo de la base de datos, pensaba en algo como obtener la direcccion del archivo pr…

tengo esta macro y lo único que necesito es que una celda se desbloquee SÓLO cuando en esa misma celda apareza lo siguiente "Ingrese la Agencia" este texto aparece debido a que en dicha celda hay una fórmula que consiste en un buscar y si consigue error coloca "Ingrese la Agencia" entonces hasta ahora llevo lo siguiente, el problema ela macro que realicé, excel no la reconoce automáticamente es decir cuando cambio en la celda b12 aparece "ingrese la agencia" no se desbloquea la celda b12 esto es lo que tengo por favor espero su ayuda urgente muchas gracias! la primera macro la tengo ubicada en el objeto hoja presupuesto no se si debe estar allí o en el módulo tampoco se…

Lo que se desea es revisar si la fila de la Hoja1, se encuentra en la Hoja2. Y si no esta se copie encima del mas reciente. Esto dado que la Hoja1, es una hoja que estoy retroalimentando. Pero la Hoja2, Estoy copiando la data retroalimentada, para trabajar con otros indicadores, por eso tiene columnas estáticas. Por ello le decía si se puede buscar la fila y si no esta que lo copie. Ya que si solo trabajara con la Hoja1, las celdas se moverían. Y las celdas de las columnas estáticas no se moverían. Produciendo errores. Macro.zip

Buenos dias, tengo una celda (M4) que es donde quiero el resultado, quiero hacer que por medio de una macro recorra todos los datos que estan hacia la derecha (desde N4 hacia la derecha). El inconveniente se presenta porque no tengo un rango fijo, es variable, hoy puedo tener datos desde N4 hasta AZ4, y otro dia tener datos desde N4 hasta quien sabe donde... alguna sugerencia? Los datos siempre empiezan en N4. Gracias por el tiempo

Hola a ver si me pueden ayudar en lo siguiente. Estoy con un excel en donde la columna A me muestra los ficheros que hay en un directorio A B C 1 Equipo Numero Serie 2 1.txt 3 2.txt Lo que me gustaría hacer es que en las celdas , por ejemplo, B2 se ejecute un comando de msdos que sería para la celda B2 --------> find B1 A2 para la celda C2 --------> find C1 A2 y me muestre en las celdas B2, C2, B3 y C3 las salidas de los comandos find... espero haberme explicado, subo un archivo por si se entiende mejor muchas gracias por vuestra ayuda test.xls

Amigos que tal, estoy necesitando una guia o ayudita con esto tengo un userform donde hay un listbox al hacer click sobre este se abre un userform con los datos seleccionados, y aqui viene mi problema al modificar los datos y presionar modificar quiero se que se modifique el id seleccionado no el id 1 si yo seleccione id 7 que se modifique ese id y para eliminar lo mismo. Aguardo comentarios. Aqui les dejo mis archivos Excel+Access.rar

saludos deseo ayuda para alguna macro que me muestre en las columnas G y H de una planilla de calculo, el numero de decimales conforme al numero ingresado en la celda B3. si en la celda B3 esta 2 el numero de formato de numeros de las columnas debe estar con 2 decimales, si el valor de B3 es 5 debe mostrase 5 decimales, etc. he subido un ejemplo "mostrar Numero de decimales" Gracias MOSTRAR NUMERO DECIMALES.xls

Saludos amigos del foro, La situación aquí es que cuando doy click al spinbuton cambia el contenido de los textbox correctamente según el combobox pero solo hasta llegar al ultimo valor pues con un click mas se muestra error ya que trata de seguir avanzando y no hay mas informacción. Los valores del combobox pueden variar y ser muchos mas, y alli est el dilema entonces como puedo indicarle que funcione solo hasta el valor máximo que este en el combobox Subo el archivo para que lo vean Gracias anticipadas por el apoyo Mostrar con Spibutton los textbox solo hasta ultimo valor de combobox.xlsm

hOLA BUENOS DIAS, ESTOY DESARROLLANDO UN PROGRAMA QUE EN OFFICE 2007 ME ARROJA UN ERROR PARA GUARDAR LOS DATOS. EL MENSAJE DICE ERROR 1004, ERROR EN EL METODO PASTESPECIAL DE LA CLASE RANGE. EN DONDE DEBO ESCRIBIR LAS FECHAS ME SUPONGO QUE EL ERROR DEBE SER POR EL USO DE LOS MONTHVIEW. EN EL MODULO 2 SE ENCUENTRA LA MACRO QUE REALIZA EL PROCEDIMIENTO DE GUARDAR LOS DATOS. AGRADEZCO TODA LA AYUDA Y SUGERENCIA QUE ME PUEDAN APORTAR. GRACIAS HERMANAZOS Control de Acceso Final 6.xlsm

Buenas Tardes a todos Tengo tres listados, los cuales he de comparar entre ellos. Los dos primeros listados que llamaremos ( lista A y lista B ) a comprar tienen dos columnas ( la primera con ID y otra con números decimales), y el objetivo es poner en las dos columnas de color verde a todas aquellos registros que sean iguales y los que no son iguales se pongan en rojo, y aquellos registros que no estén en el otro listado, se quede en blanco sin hacer nada. Luego necesito que se compare los listados de ( Lista C ) con la lista A. Os dejo un ejemplo de los listados, agradezco de antemano vuestra ayuda. A ser posible necesito otra macro para …

Buenas tardes, después de haber aplicado en mi aplicación la respuesta (perfecta por cierto) que me ha dado Antoni, me pasa que en el archivo que adjunte funciona bien, pero en el mio no me deja cambiar el año, siempre busca el año actual, lo se por que he cambiado la fecha del ordenador y entonces me busca los datos del 18 o del 17 etc que es lo que he probado y no se por que pasa adjunto el código como ha quedado en la aplicación por si alguien ve donde esta el fallo Gracias de antemano Sub Resumen() Dim D As Worksheet, R As Worksheet, CIF As Range, Fila As Long Dim NUEVO As Object Dim i As Integer Dim Final As Integer Dim datamenor As Date Dim dat…

Hola muy buen dia o noche tengan, quiero pedirles un favor muy grande, si alguien tendrá por ahi entre sus archivos, uno donde tengan un combobox relacionado con otros comboboxes, ya que lo que requiero hacer es que en el comboboxPaises tenga la lista agregada de todos los paises del mundo, en el comboboxEstados tenga todas las listas de todos los estados de los paises del mundo, y en el comboboxMunicipios; disculpen mi mala cultura respecto a los demas paises pero mi idea es poder hacer que al poner el PAIS en el primero combobox llene el combobox con los estados de ese pais y al poner el ESTADO en el segundo combobox llene la lista de MUNICIPIOS de ese estado, descono…

Hola, para hacer una prueba he realizado un formulario UserForm, muy simple, solo introducir un número, y me funciona pero ... no se como hacer para que salga o se cierre, no reconoce la la instrucción "Unload Me" me dice que no reconoce el "Me" ni la instrucción "Userform.hide" ni Exit Sub. Como puedo hacer para que al <Aceptar> se cierre ? y como hacer para que el botón "Cancelar" funcione? Como siempre gracias

Hola a Todos estoy tratando de enviar un mensaje de WhatsApp desde el Excel y todo funciona bien menos el ENTER... no lo acepta la intrucción ActiveWindow.Application.SendKeys "{ENTER}" no la ejecuta.. Alguna sugerencia? Gracias y Saludos !!

Buenas noches , la tematica es la siguiente estoy desarrollando una hoja de calculo que ingresa datos de estudiante para el manejo de sus calificaciones. Cuando realizo la captura de informacion desde la hoja "INGRESO" deseo que los guarde todo en una hoja llamada "DATOS" lo cual ya he logrado pero en otras hojas llamadas "IMOMENTO,IIMOMENTO,IIIMOMENTO" en estas ultimas solo necesito guarde la cedula de identidad, apellidos y nombres, es decir, de la hoja "INGRESO" las celdas A9,C9,E9 las guarde en estas hojas en sus respectivos campos. Al mismo tiempo ordene y enumere automaticamente Alli envio el archivo, gracias de antemano NUEVO.xlsm

Hola, repasando las macros de mi libro me he dado cuenta de que tengo un IF compuesto que no lo ejecuta y no le veo la razón. ¿Podéis iluminarme? Gracias. If CeldaActual.Value >= 11 And CeldaActual.Value <= 13 Then CeldaActual.Interior.ColorIndex = None CeldaActual.Font.ColorIndex = 3 'Rojo CeldaActual.Font.Bold = True Tensión_macros_1bis.xlsm

Saludos: Ya tengo un macro donde envío el mensaje utilizando Outlook, pero me gustaría saber si se puede que el destinatario Cc (Carbon copy) salga protegido. O sea que cuando abra Outlook el usuario no pueda borrar el destinatario Cc: Eso de puede? Gracias anticipadas!!