Macros y programación VBA

Hola buen día masters! He seguido avanzando con una macro que me ayudaron a construir en el foro pero ha crecido el alcance y de tener 2 filtros por medio de "Combobox´s" ahora son 3 filtros pero no funciona del todo bien porque la intención es que al seleccionar cada combobox filtre los datos y los vaya mostrando en el listbox. 1er combobox_año: OK si lo filtra y muestra los datos en el listbox 2do Combobox_mes: FAIL desaparecen los datos del listbox 3er Combobox_area: OK si lo filtra y muestra los datos en el listbox La función encargada de filtrar se llama Consulta dentro del UserForm llamado "Solutek". Por otra parte una vez filtrada la…

Buenos tardes; Requiero su apoyo con el siguiente caso. Deseo saber si es posible realizar filtros entre 2 fechas en 2 textbox y con una condicion(textbox.Codigo); una vez filtrada me permita realizar el reemplazo a una de las columnas por otro campo es decir otro (textbox.ruta), si tuvieran ejemplos excelente solo llegue a realizar el filtro, agradeceria su apoyo con el caso. Private Sub CommandButton4_Click() Dim total, total1 As Integer Sheets("planificacion").Activate Call iniciar If Me.ComboBox1.Value = "" Then Exit Sub ListBox1.Clear j = 2 filaS = Range("a1").CurrentRegion.Rows.Count ComboBox2 = Range("B" & fil…

Hi Everyone My new problem is this: On an Excel sheet in Column (C) 1) I would like that every time I enter a word like ("btp fut") or write ("btp ital") the letter (L) should appear in Column (P) 2) While If in Column (D) I enter a Date less than 5 days compared to today's date We will have to create the lettara (D) in the column (P) 3) If in Column (I) the Writing ("change balance") is shown and in Column (J) it does not contain (0), the Letters (CS) in column (P) should appear 4) If in column (K) I write the word ("square *") Write the letter (Q) in Column (P) Let's say I don't expect you to do all the work for me But that you help me …

Buenas Tardes a todosNecesito de su valioso ayudaEstoy desarrollando una rutina pero , me he atorado y no encuentro la forma de resolverlo , tengo el archivo llamado Nom 6 Ejemplo de la cual ocupo las siguientes hojas:-Hoja1-CATquisiera ejecutar este macro iniciando desde Hoja1 Celda BC3 para que se ejecute mientras la celda activa ("BC3") tenga datos y la columna al lado se encuentre vacío ("BB3"),busque el dato Hoja1 de la columna BC ,relice la búsqueda en la hoja CAT columna "D" y si lo encuentra me devuelva el código de la columna "B" de la hoja CAT en este caso se cumple las condiciones a partir de la fila BC14y si no lo encuentra se siga con la siguiente fila Bc15, …

Buenos días, gusto saludarles. Tengo desactivada toda la cinta de opciones de Excel, y por medio de botones solamente tengo habilitado "Guardar" e "Imprimir", pero necesito habilitar un botón que me habrá el menú para firma digital. Usé esta sencilla macro: <Sub FirmaDigital() ActiveWorkbook.Signatures.ShowSignaturesPane = True End Sub> Y sí me despliega el menú, sin embargo me bloquea el resto de macros y hasta los hipervinculos, por lo que no puedo utilizar más el archivo. Espero me puedan ayudar. Saludos desde Costa Rica,

Estimados: Necesito su ayuda para "arreglar" una macro, sucede que mi macro envia correos desde excel a outlook, en outlook ya esta configurada de manera automatica la firma, sin embargo cuando envio el correo desde outlook.. la firma no sale, pero si el cuerpo del mensaje. Alguna ayudita? adjunto archivo prueba de correo.rar

Hola, buenas noches Estoy realizando una aplicación FLASHCARD MULTILINGUE, apenas tengo el inicio.....APARECEN LOS TERMINOS DE CADA LENGUA EN CUANTO ESTOY EN ALGUNA DE LAS FILAS pero desconozco los códigos en VB para poder hacer todo la idea del proyecto... Se trata de varias columnas; 4 lenguas, índice, nivel de dificultad (clasificación de tarjetas...sabidas o no sabidas), y columnas de Audio y Foto.... En concreto la problemática la encuentro respecto a los filtros, el poder reproducir audio y el asunto de la dificultad de cada tarjeta..(cómo marcarla..y modificarlo). Incluyo el excel, la carpeta con los archivos de imagen y audio, junto a un pdf con las instruccio…

Hola amigos! alguien me puede dar una idea como puedo hacer para que una hoja sea flotante! un ejemplo la hoja flotante sería hoja1, y quiero que al cambiarme en alguna otra oja me vaya siguiendo la hoja flotante. No se como explicar esto. pero espero que alguien me puede dar una idea.. de antemano, muchas gracias... Saludos

Buenos días a todos; -Necesito de vuestra ayuda. Para mejor comprensión adjunto enlace de un video y comentario. Saludos y gracias de antemano Adjunto también la macro. MEvento.zip

ESTIMADOS AGRADECERE ME PUEDAN AYUDAR, NECESITO CREAR UNA MACRO QUE ME REALIZE UN FOLIO AUTOMATICAMENTE, Y QUE AL MOMENTO DE GUARDAR QUEDE CON UN NUEVO NOMBRE. PERO QUE AL REABRIR UN ARCHIVO MAESTRO NO PIERDA EL FOLIO YA CONSECUTIVO. HE LEIDO VARIOS FOROS E INTENTADO PERO NO HE PODIDO SACAR ESTA DUDA DESDE YA GRACIAS

Buen día. como puedo hacer para que en el archivo adjunto me reconozca el numero el valor 4 en la columna (D40) como mes y que (B41) lo coloque en letras día: al igual que me lea el numero 3 en la columna (e3) y que en la H41 me devuelva el día. tengo una pero no me funciona esta haciendo referencia en la hoja de parámetros. por sus comentario muchas gracias.

Hola compañeros una ayuda Tengo las Siguientes Formulas en codigo: Set h1 = Sheets("Hoja1") j = "=SUMPRODUCT(--((R2C[-8]:RC[-8]&R2C[-7]:RC[-7]&R2C[-6]:RC[-6]&R2C[-5]:RC[-5]&R2C[-4]:RC[-4]&R2C[-3]:RC[-3]&R2C[-2]:RC[-2])=(RC[-8]&RC[-7]&RC[-6]&RC[-5]&RC[-4]&RC[-3]&RC[-2])))" k = "=IFERROR(INDEX(INDIRECT(Range!R9C2),SMALL(IF(INDIRECT(Range!R3C2)=RC[-8],IF(INDIRECT(Range!R4C2)=RC[-7],IF(INDIRECT(Range!R2C2)=RC[-9],IF(INDIRECT(Range!R6C2)=RC[-5],IF(INDIRECT(Range!R7C2)=RC[-4],IF(INDIRECT(Range!R5C2)=RC[-6],IF(INDIRECT(Range!R8C2)=(VLOOKUP(RC[-3],Criterios!R1C11:R13C12,2,0)),ROW(INDIRECT(Range!R9C2))))))))),RC[-1])),"""")…

Buen dia a todos, Vieron cuando uno se traba en un paso **maravilloso**, que por lo general siempre sale... bueno ahora estoy trabada en un paso desde hace 12 hs que probe varias formas y no me esta saliendo... tengo que recorrer de la hoja "atosHuellasEpicollect" , fila por fila todos los registros e ir poniendo en la Hoja BDHuellasMuestas, cada fila acomodando cada datos de la hoja de origen en la colunma que corresponda en la hoja destino. Ahora esta acomodado el resultado, me pone el dato en la hoja de destino, en cada colunma correspondiente.... el problema es que solo me trae el primer dato de la hoja de origen y no me trae el dato de cada fila…

Formulario + base de datos Amigos por favor ayudenme con este tema, Tengo en la hoja uno, un formulario para ingreso de datos, se llama orden de compra, la informacion que se ingresa en este formulario se guarda en un listado de la hoja dos, por medio de un boton. lo que pasa es que en el formulario de la hoja uno, puedo ingresar mas de un articulo en la misma orden, y cuando le doy guardar solo me gusda el primer articulo. como hago para que todos los datos de ITEM CODIGO DESCRIPCION UND CANT Vr UNITARIO Vr TOTAL, se guarden en el listado siguiente. Gracias, Adjunto archivo F.7.4.2 ORDEN DE COMPRA Rev.02-2.xls

saludos a todos, tengo un problema tengo un formulario que captura,modifica y busca datos, lo que no me queda muy claro es la parte de cuando inserto fotografias (imagenes.jpg) ya que no se me muestra en el listbox, me gustaria me pudieran ayudar con esa parte del codigo si no es molestia, anexo el formulario incompleto solo con la intension de dar la idea, esstaré esperando sus respuestas colaboradoras, gracias de antemano. formulariodefotografias.rar

Hola amigos de la comunidad AyudaExcel, Tengo el siguiente problema: "Quiero que al abrir varios libros de Excel haya un evento que recorra todas las hojas de cada libro y las aplique un formato estándar para todas igual." Para ello he desarrollado la siguiente macro, pero me da problemas: Private Sub Workbook_Open() Application.ScreenUpdating = False Dim libro As Workbook Dim hoja As Worksheet For Each libro In Workbooks Set libro = ActiveWorkbook.Name For Each hoja In Worksheets Set hoja = ActiveWorksheet.Name With Sheets(hoja).Select With Cells ' Tamaño de las celdas... .…

Buenos días a todos; -Con la macro que adjunto paso el valor formateado con dos decimales a la celda pero veo que si voy a la barra de fórmulas me siguen apareciendo más de dos decimales. Hay alguna otra solución? Me interesa que solo sean dos decimales porque después estos datos los paso a Access y me está cargando todos los decimales. Saludos Formato.xlsm

Buenas tardes Tengo un listbox donde recojo dos tiempos distintos. Uno es el tiempo estimado y el otro es el tiempo real dichos datos estan en la celda en formato [hh]:mm el problema está cuando cargo en un listbox dichos datos. Si es menor a 24h se muestra sin problemas con cdate Me.ListBox.List(Me.ListBox.ListCount - 1, 19) = CDate(HojaBase.Cells(i, "AA").Offset(0, 0)) 'TIEMPO REAL Me.ListBox.List(Me.ListBox.ListCount - 1, 20) = CDate(HojaBase.Cells(i, "AB").Offset(0, 0)) 'TIEMPO ESTIMADO pero si los valoren superan las 24h no muestra el tiempo y si una fecha (ADJUNTO IMAGEN). Que tengo que hacer para que …

Hola a todos. Después de una larga ausencia recurro a los que saben con la seguridad que encontraré la solución a mi consulta, como siempre ha sido. En esta ocasión me gustaría que alguien me ayude en lo siguiente: Tengo una macro con la cual numero y guardo un libro de Excel que contiene una factura. El caso es que al guardar el libro, en el nombre me devuelve el número de la factura en formato simple y quisiera que la devolviera en un formato personalizado. Me explico mejor: la macro me devuelve el número de la factura que se encuentra en la celda I2 pero este número quisiera que lo devolviera anteponiéndole tres (3) ceros (0), o más si fuere el caso. Por ejemplo, si e…

Hola, necesito saber cómo hacer ésto: Es parte de un inventario, en Excel, cada casilla de la columna tiene un texto como la siguiente línea 1 y el resultado final quiero que sea como el de la línea 2: el texto entre <i> e </i> en cursiva y el resto normal y cuando lo cambie, eliminar las dos marcas de inicio y final <i> e </i>. Cada línea quedaría así: 1 Hopkins, Gerard Manley. <i>The Collected Works of Gerard Manley Hopkins. Volume Iv: Oxford Essays and Notes 1863-1868</i>. Edited by Lesley Higgins. Oxford: OUP, 2006. 2 Hopkins, Gerard Manley. The Collected Works of Gerard Manley Hopkins. Volume Iv: Oxford Essays and No…

perdonen la molestia expertos queria pedirles un favor porque no logro darle formtato a un combobox y quiero pedirles su ayuda, tengo un combobox al cual quiero meterle el siguiente formato: 34-07-14-009922-X los primeros digitos son numeros el ultimo tiene que ser una letra no importa si no tienen los guiones pero si se los ponen mejor el ultimo digito debe estar precedido por un guion de antemano les doy las gracias cualquier duda estoy a la orden. Saludos

Buenas Tengo una hoja que quiero que cada vez que cierre el programa me canvie el formato de las columnas (la F y la G) a texto. Alguna idea de como hacerlo? Muchas gracias

Hola amigos tengo mi reporte que agregue activeprinter.show que me muestra la caja con las impresoras en red el cual al momento de imprimir lo hace, el problema es que cuando doy cancelar no lo hace y me manda la impresión, en el adjunto les detallo mas el problema que tengo es lo ultimo que me falta y solo es una parte de todo el sistema Se les agradecería cualquier ayuda Gracias... Formato Final.xlsm

Hola: Tengo un cronograma que se inserta en posición relativa a una tabla de datos. La tabla contiene varias columnas con nombres de personas y sus correspondientes días de vacaciones. Dichas columnas serán filas en el cronograma. Si eliminas una columna de la tabla, el cronograma se moverá un lugar más a su izquierda. La cuestión es crear un formato condicional (con macros) para cada fila del cronograma teniendo en cuenta que éste se "mueve" de lugar. (Pienso que habrá que conseguirlo en el Módulo "Año". Veréis tres botones, que son los crean el cronograma a partir de la tabla de datos.

Buenas noches. Por favor requiero ayuda para dar formato condicional a una celda de entre 10 celdas, debe ser fondo negro y letra roja. (Las celdas tienen ya diferentes colores CON FORMATO CONDICIONAL que configuré con una macro, pero requiero señalar la celda con un color especial que resalte la ubicación. La celda a11 indica dónde estará ubicada la CELDA que deberá tener ese formato diferente. Ejemplo: a1 6 3 5 0 9 2 8 7 1 4 a11 3 Agradecería la ayuda que se me brinde. Marco Porras. PD: Publiqué en dos