Tengo ésta Macro que copié de un aporte del Maestro Ioyama,la estoy adaptado un poco a mis necesidades, pero ahora veo que necesito algo más,como podría ingresar desde un libro a otro dos filas, una fila a una tablahoja1 y otra a otra tabla hoja2, las filas del libro de partida serían siemprelas mismas, osea que serían siempre los mismos rangos que se transferirían, nocomo en la macro adjunta que se selecciona la fila a transferir. Salud_2 Sub INGRESAR_DATOS() Application.ScreenUpdating = False ruta = ActiveWorkbook.Path fila = ActiveCell.Row cod = Range("C" & fila) Range("A" & fila & ":X" & fila).Copy Workb…

Hola amig@s: Tengo la siguiente dato en la columna C =A!O10 , la cual esta en la hoja con el nombre MENU , lo que quiero es que la celda cambie segun el nombre de la hoja que voy a aumentar, saben tengo una macro que crea nuevas hojas y al mismo tiempo toma el nombre de la celda B2, y asimismo en la hoja MENU registra a la nueva hoja con su nombre correspondiente, y en la columna C quisiera que la formula que les indico cambie y asi poder relacionar la nueva hoja creada con su respectivo nombre en la columan C en la fila del nuevo registro creado. Saludos cordiales Jesús

Saludos amigos foreros De nuevo recurro a su ayuda para resolver un problema que me tiene atrancado por mucho que me esfuerzo, intento sumar las horas trabajadas desde 2 listbox los agrego a unos textbox y sumo estos, aqui tengo el problema, tambien me sucede que dentro del list el formato de hora no me aparece Espero que puedan eharme una mano Gracias por anticipado, saludos Prueba.xlsm

Hola, buenos dias, Les paso una duda que se me plantea y que aunque se me antoja sencilla, mis desconocimientos de las macros no me permite conseguir el resultado óptimo. Se tarta de conseguir que cuando ejecute una macro, en las celdas vacías de la columna E, se incorpore un texto fijo "Material de Oficina" pero solo si en la misma fila de la columna D hay contenido. No me sirve poner una formula SI porque solo quiero que se autorrelleno al ejecutar la macro, ya que podría querer incorporar un texto distinto y el autorrelleno inmediato podría llevarme a errores. Muchísimas gracias noir adelantado por la ayuda. Saludos, Material.xlsm

Buenas, mi consulta es la siguiente: Como puedo configurar un calendario Estudiantil. Ósea: Está dividido en trimestre que son 3 y vacaciones, Cada año varían las fechas de los trimestres puede que un trimestre aumente días o disminuya días, al igual que los 2 trimestre restantes y los días de vacaciones. Ósea que si inserto (30) solo me habilite 30 celdas (Días), seguido de eso ingreso el 10 que equivalen a las vacaciones de (10) solo me habilite las 10 celdas (Días) seguidas del 1er trimestre, seguido ingreso 80 que equivalen al 2do trimestre seguido de los días del 1er trimestre (30) y vacaciones (10) y para completar ingreso 34 que equivalen al 3er trimestre…

Hola, tengo una macro que envía directamente un rango a "prueba@prueba.com" pero me gustaría que lo enviara al mail que hay en una celda en concreto (B7) Sub Send_Range() ' Select the range of cells on the active worksheet. ActiveSheet.Range("D2:J22").Select ' Show the envelope on the ActiveWorkbook. ActiveWorkbook.EnvelopeVisible = True ' Set the optional introduction field thats adds ' some header text to the email body. It also sets ' the To and Subject lines. Finally the message ' is sent. With ActiveSheet.MailEnvelope .Introduction = "Buenas tardes, adjuntamos última proforma." .Item.To = "prueba@prueba.com" .Item.Subject = "Asunto prueba" .Item.Send E…

hola a todos. necesito hacer un macro al cual le ingrese 6 números del 0 al 9 y de esos 6 haga combinaciones con 3 números. que a la final serían 60 combinaciones de los 3 numeros. muchas gracias...

hola soy nuevo en este foro, asi que les agradecere la ayuda prestada. actualmente tengo el problema que hay un catalogo de internet del que tengo que descargar informacion, pero lo actualizan constantemente, por lo que pierdo horas enteras en actualizar la informacion. lo que me gustaria es crear un macro que me ayude a pasar y organizar esta información dentro excel. aqui les dejo un esquema de la configuracion que tiene la pagina. [ATTACH]34815.vB[/ATTACH] como pueden ver en la tabla 1 (t.1), es donde estan las categorias y al dar click en estas aparecen los diferentes artículos (t.2, t3, etc.) y al final, anda la lista de paginas que compone esa categoría. lo q…

Hola Amigos, si alguien me puede ayudar con esto estare muy agradecido, es algo pequeño solo es un detalle, lo que pasa que tengo una macro que me muestra filas ocultas, cuando se completan las filas anteriores, la macro la tengo hecha pero lo que me falta es poder dejarla automatica, para que cuando van cambiando los datos y completando las filas, no tenga que ejecutarla de forma manual, una muestra de ella la voy a adjuntar, ojo que solo necesito mostrar no necesito ocultar saludos y gracias a quien me pueda ayudar mos.rar

Buenas Tardes: Tengo estos valores: <=80%, entre >=81% y <=90%, >=91%. Lo que necesito es que cuando digite un valor en una celda aparezca una flecha asi: Flecha apuntado hacia abajo cuando es valor es <=80% Flecha apuntado hacia la mitad cuando el valor esta entre >=81% y <=90% Flecha apuntado hacia arriba cuando es valor es >=91%

algun codigo para eliminar filas vacias en una columna?

Hola a Tod@s. Necesito ver si me podéis ayudar, la idea es hacer una Macros donde me pueda Borrar los dos últimos Rangos ocupados a partir de la Fila 218 de la Hoja1, según el ejemplo, los primeros son CA218:CB424 para ya después dar clic en la Macros5. He adaptado una Macros que tiempo atrás me facilito el Amigo @Gerson Pineda pero no se ejecuta, supongo que he trasladado algo mal a esa Macros, pero no le encuentro el error. En el ejemplo que subo muy pequeño está sombreado en Amarillo ese primer Rango a Borrar en la Hoja1. Agradecido de antemano por sus respuestas. Un Saludo. Lázaro PRUEBA-1.rar

BUenas noches, por favor su apoyo con esta consulta, quiero redondear decimales de una formula al momento de hacer una macro en excel por ejemplo n*3*0.7, supondiendo que n es igual a 5, el total me sale 10.5, ahora le pongo delante Int(n*3*0.7) y me 10, pero quiero que se redonde a 11, como puedo hacer para que cuando el decimal es mayor o igual a 5 se redonden al mayor, esto lo estoy poniendo como parte de un programa en vb. Gracias

Hola foristas, tengo un listbox "Plan" que se va llenando gracias al listbox "Ali".... En el listbox "Plan" se va a agregando un indice (que hace referencia al numero de fila que se encuentra el alimento en la hoja "Alimentos"), la cantidad y la unidad.... Dependiendo la cantidad y del indice, hago unas cuentas y me da un valor de carbohidratos, lipidos y proteínas que tiene y se agrega estos valores a los labels (tanto a la comida y al valor total) Lo que quiero hacer es como hacer que cada items que se va agregando al listbox realice esta cuenta, y si la modifico que también modifique esta cuenta. Function ProporcionDia y ProporcionComida la realiza siempre y cuando…

He querido adecuar un cuadro que sirve para recibir el reporte de varias ciudades, la ideas es obligar a que mensualmente registren el reporte y no hagan un copy page del mes anterior, Con el boton "Registrar" debe cargarse la info en la hoja BD, con el boton "Eliminar ultimo regostro" puedan borrar por si cometieron un error, las macros "Abrir, Cerrar masestro y enviar por correo" estan bien. muchas gracias por el apoyo que puedan darme Monthly report.xls

Estimados Estoy de a poco entrando en el fascinante mundo de programar en VB, pero me falta mucho por aprender. Por esta razon , necesito ayuda para crear la siguiente macro: - Realizar una macro que permita ingresar la edad de una persona a través de un inputbox y Muestre un mensaje si es mayor de edad o no. Tengo este codigo, pero algo le falta al parecer: Public Sub prueba() X = MsgBox("Desea Continuar", vbYesNo + vbQuestion, "Opción") End Sub Muchas gracias saludos meggido

Hola, Al cambiar de formulario lo hago asi F_Citas.Hide y abro el otro con F_principal.show El problema es que cuando cambio de formulario ejecuta el Userform.activate y me iniciliza el formulario, pero quiero que se quede como estaba al cambiarme. Espero haberme explicado. Gracias.

Buenos días: Necesito, si es posible, crear una macro con las especificaciones que indico en el archivo adjunto. Gracias por anticipado. esquema.doc

Estimados, tengan todos ustedes muy buenos días... El problema que tengo es el siguiente, cuento con un libro de excel donde están una lista de equipos con sus respectivas especificaciones, para una mejora del trabajo estoy aplicando el VB y ayudandome de la herramienta ComboBox logre extraer los datos de una determinada fila, sin embargo quisiera que una vez seleccionado un Item en el combobox automáticamente se rellene los TextBox con los datos de la fila que fue seleccionada previamente... Espero puedan encontrar la solucion a mi problema. Saludos :acne: FORO.rar

Buenas estimados: Esta vez vengo para que me ayuden con algo que no encontre información. resulta que tengo un formulario con un combobox que carga los años, desde el 2013 hasta 2020, lo que quiero es que al momento que el formulario cargue, automaticamente se seleccione el año en curso. en este caso seria 2013. Esto seria para no estar seleccionando a cada momento 2013. Espero haberme explicado bien. Les agradezco. Saludos

Buen dia, necesitaria que me ayuden con esto la idea es buscar un dato y que en la ultima fila me agregue una x cuando encuentre el mismo adjunto un ejemplo en el cual me colorea pero despues no me sirve para filtrar por eso es la idea de agregar la x ahh en el ejemplo se repiten los datos necesitaria que me marque todos y que el comand but se mantenga siempre al frente ejemplo.rar

Buenas tardes, Hola amigos del foro, gracias al aporte de tierra_pampa en este foro estoy intentando aplicar el siguiente código con formula a mi archivo, en la hoja llamada BD, la formula la he logrado aplicar acorde a su evaluación pero no consigo que evalúe las celdas restantes hacia abajo para las columnas E, G e I a partir de la celda# 4 de cada columna, adjunto el código: Sub convertir2() 'V11/03/2016 - macro para jose-bn.80149 Hoja1.Activate ufila = Cells(Rows.Count, 1).End(xlUp).Row With Hoja1.Range("E4:E" & ufila) .FormulaR1C1 = "=IF(RC4="""","""",(IF(RC4<=RC14,1,0)))" End With With Hoja1.Range("G4:G" & ufila) .FormulaR1C1 = "=IF(RC6=…

Buenas tardes, un gusto enorme ser miembro de este foro. Les pido su ayuda por favor, tengo cinco hojas y en cada una de ellas un rango y modelo de planilla diferente que se completan y se diferencian por fecha, la idea es que una vez que termino una planilla en la hoja, pueda copiar la misma planilla debajo de la primera ( pero vacia) y empezar el proceso de carga nuevamente, el problema es que no logro hacer que el foco del cursor se posicione en la primera fila de la planilla copiada y asi sucesivamente o en todo caso en la ultima fila de la nueva planilla copiada. Desde ya agradecido Remito codigo a modo de indicar lo que pretendo hacer Sub copiaryp…

Buenos días: Dentro de un libro tengo una hoja "Datos" en la cual tengo referencias a una ruta "B4" y archivos a abrir (columna C), con una macro puesto en thisworbook (llama a otros archivos), este funciona bien. Los archivos los tengo en la misma carpeta guardadas en mi USB, trabajo siempre en la misma Laptop y por defaul asigna la letra D:, pero por nuevas necesidades debo trabajar en diferentes equipos pc o lap. y mis archivos no abrieron. tube que cambiar la letra de la ruta asignada, con la actual a mi usb manualmente. Se que puedo poner con una macro la ruta actual de un archivo abierto. Worksheets("Datos").Range("B4").Value = ThisWo…

Hola tengo un código en excel para transferir datos a una tabla en access, la configuración de la tabla es: Campo llave es numérico; y los otro dos campos son tipo texto. En excel la primer columna es una fórmula de conteo correlativo y el resultado es un número por fila: =SI.ERROR(SI(B2="","",FILA()-1)+PARÁMETROS!$B$5,"") antes de agregar esa columna en mención, la transferencia funcionaba muy bien, de no poderse corregir el código, quisiera optar por controlar dicho error, y quisiera saber si es posible saltarlo y que continúe la ejecusión, gracias por su ayuda de antemano. Saludos!!! Sub ExcelaAccess_ADO() Dim Conn As ADODB.Connection, RecSet As ADODB.Recordset …