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 "[email protected]" 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 = "[email protected]" .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 …

Buenos días estimados colegas, Requiero su valiosa ayuda con el siguiente código. Private Sub ComboBox11_Change() CommandButton1.Enabled = False ComboBox10.Clear Set ES_circuito = BD.Columns("Z").Find(ComboBox11, , , xlWhole) If Not ES_circuito Is Nothing Then x_Busco = ES_circuito.Row Do Until BD.Range("Z" & x_Busco) <> ES_circuito If ComboBox11.Value = "" Then Exit Do ComboBox10.AddItem BD.Range("A" & x_Busco) ComboBox10.List(ComboBox10.ListCount - 1, 1) = BD.Range("D" & x_Busco) ComboBox10.List(ComboBox10.ListCount - 1, 2) = BD.Range("C" & x_Busco) ComboBox10.List(ComboBox10.ListCount - 1, 3) = BD.Range…

Buen día compañeros, acabo de entrar a un nuevo trabajo y me pusieron temporalmente a programar en vba ya lo he hecho antes pero no soy un programador como ta por lo que me he topado con algunos problemas. En esta imagen utilice el grabador para general mi tabla dinámica mi problema es que me pone esa referencia especifica, como yo requiero una plantilla en la que los usuarios pegaran datos y ejecutaran la macro necesito que ese rango sea variable, pero ya utilice range y cells y no me funciona. Algún otra idea

Saludos con todos, para crear un control en los UserForm es a través de Cuadro de Herramientas, pero como crearlo a través de un modulo, que lea el codigo y que se cree en los userform ya sea un textbox, un combobox o lo que fuese, ¿Se puede hacer eso?

Buenas tardes, Soy un usuario bastante novel en este mundillo del Excel y tengo la siguiente duda: He elaborado una pequeña base de datos en excel para registrar las entradas y salidas de un pàrquing. La cuestión es que la BBDD contiene datos sensibles de clientes, por lo que me interesaría dotarla de algun mecanismo de Seguridad para evitar un mal uso. En este sentido mi pregunta es: - ¿Es possible evitar de algun modo que el libro de Excel no pueda ser extraído del PC? Es decir que no pueda ser copiado, extraído en una memòria USB o mandado por email? Por lo menos no por un usuario de nivel básico.. Sé que una opción es proger el libro con contrasen…