Hace un tiempo pedí ayuda para que me ayudaran a resolver un problema con una nomina realizada en excel, lo cual he resuelto por mi cuenta y les dejo el archivo para quienes deseen consultarlo, puede ayudarle a alguien, el código lo he tratado de reducir siempre más y más, ya que hacia uso de muchos (IF) cosa que elimine con los Case rompiendo los ciclos y casos, les dejo el archivo alojado en mediafire, para quienes gusten checarlo. Simple File Sharing and Storage. El archivo esta realizado con Macros por lo cual tendrán que activar las macros en excel, el código es accesible sin protección y confiable, puede alargarse para más empleados o acortarse, también se ha de p…

Me ha ocurrido algo muy raro, en las hojas excel que habro las columnas van numeradas 1, 2, 3 así sucesivamente y las columnas igual 1, 2, 3 así sucesivamente, pero hasta hace unos días las filas estaban numeradas con a, b, c .... Como puedo cambiarlo. Envío adjunto. Gracias Pitidos.xls

Hola, Tengo una duda a la hora de evaluar una expresión booleana, siempre para saber si es verdadero o falso, directamente pongo (if Variable) a secas, sin =, pero sin querer le puse = True y no entraba en la condición, tras quitarle el true ya entraba. Sé que el valor verdadero de un boolean es -1, pero entonces, ¿por que cuando pones (if NumeroInteger) sin =, cuando NumeroInteger<>-1 & <>0, lo toma como -1? ¿Sabéis qué tipo de conversión ha realizado por sí sola la función IF? y en caso de "Si", ¿Podríais indicarme cual es esta función de conversión booleana? Sub PruebasBoolean() Dim VarInteger As Integer VarInteger = 100 If VarIntege…

Hola!! Desarrollé un libro de excel con algunas formulas de uso común para mi y lo grabe en mi computadora como "COMPLEMENTO DE EXCEL" dejé que excel lo colocara en la carpeta por default que utiliza. Para trabajar ocupo el equipo de mi oficina, un equipo de escritorio en casa y una laptop, los tres con Excel 2016 MSO. Actualmente estoy desarrollando una solución utilizando VBA y dentro del código hago referencia a un par de formulas de las que contiene mi complemento utilizando la función Application.Run llamando al archivo mediante la ruta completa hasta la carpeta donde Excel guardó el complemento, en la computadora. El archivo de trabajo que estoy des…

Muy Buenas Tardes, Estuve indagando y hasta ahora no he podido solucionar mi problema, se trata de un filtro que necesito hacer a una data que esta en una hoja, y mostrarlo a un listbox , lo que sucede es que este libro tiene 12 columnas y deseo que se muestren en un listbox luego de hacer el filtro necesario con los siguientes criterios que son "Customer", "Fecha desde" "Fecha hasta" . y al realizar la consulta me filtre de manera automática los digitado en cada uno de los textboxes que tengo en mi Formulario. Espero su pronta respuesta. Saludos Facturacion_de_Boletas_CAS_Updated.rar

Estimadísimos amigos, este seria mi primer post, luego de meses de sacar soluciones, hoy me veo obligado a molestarlos...les cuento, estoy confeccionando un sistemita de controlde facturas y cotizaciones para el negocio de un amigo, pero al ejecutar una macro, en ocasiones me arroja el error de comando de seleccion multiple, el problema es que incluso al seleccionar solo 1 celda copiada en libro2 y pegarla en libro1 me arroja dicho error...no logro entender el por que de esto...les agradeceria si me pudiesen ayudar con esto. Aprovecho de subir los archivos por si los quieren ver, el problema esta en la Hoja Facturas del libro Formulario en el Boton Ver pagos Formulario…

Buenas tardes me pueden colaborar con este problemita que tengo: Tengo que realizar 440 graficos o mas en excel de una tabla. La macro que tengo los realiza pero en diferentes hojas del libro pero me solicitaron que mejor sea en varias hojas pero en cada hoja esten 50 graficos en dos columnas la macro que tengo es: [COLOR=#333333][FONT=arial]Sub principal()[/FONT][/COLOR] [COLOR=#333333][FONT=arial]Dim fila As Integer[/FONT][/COLOR] [COLOR=#333333][FONT=arial]Dim Rango As String, Rango1 As String[/FONT][/COLOR] [COLOR=#333333][FONT=arial]Range("A3:A3").Select[/FONT][/COLOR] [COLOR=#333333][FONT=arial]Selection.End(xlDown).Select ' Ubico el último registro de la col…

Hola intento guardar el documento en Sharepoint como compartirlo en una carpeta que otras personas puedan ver, pero no sé cómo hacerlo. Es posible hacer un código que guarde mi documento excel en Sharepoint.. osea estar trabajando en este documento y luego de dar click en un botón o antes de cerrar el archivo que este se guarde en Sharepoint o en la nube?.. les agradezco si alguien me puede guiar.

Tengo una celda D5 cuya formula es =C1. En la Celda C1 introduzco el texto y quiero que en D5 aparezca lo mismo pero con el texto estirado, o sea que se ajuste al tamaño de la celda, ya sea en ancho como en alto y no haya margenes. El objetivo de esto es que en C2 la fuente sea la de Codigo de Barras, pero quiero que siempre los codigos tengan el mismo tamaño. Adjunto archivo, el cual tiene la fuente especifica de codigo de barras, pero creo que lograndolo con cualquier fuente es lo mismo. Aclaro que esta forma de hacerlo es la que se me ocurrió, si existe otra forma dentro de excel para hacerlo, sientanse libres de modificar todo. Gracias por la ayuda.- EJEMPLO.xl…

Amigos, Buenas Tardes... Quiero Pedirles ayuda con una planilla para generar finiquitos, quiero hacerla lo mas automatizada posible, para que cuando la usen otras personas en la oficina, no intervengan en la estructura de la planilla ni de la combinacion de correspondencia con word... El Problema: tengo un codigo para abrir un documento "x" que tome de aca y adapte para usarlo en mi planilla, el problema es que cuando aplico la macro, abre el documento, pero sin la combinacion de correspondencia, lo que inutiliza la planilla completa, que modificacion se puede hacer para que al abrir el ".doc" mantenga la combinacion de correspondencia que yo le asigne?, les dejo el cod…

Hola Buen día Si alguien fuera tan amable de ayudarme, nos migraron de sistema de administración de información y me sería muy útil me apoyaran a resolver este dilema (para mi). De antemano, gracias. CalificacionesBanner.xlsb

Hola buenas, estoy haciendo una planilla de control de partido de balonmano i no sé cómo hacer lo siguiente: Un cronometro que empiece de 00:00 hasta 30:00 son dos partes de 30:00 que tenga cuatro botones (iniciar crono ,pausa crono i resetear para que vuelva a 0 el crono i seleccionar parte 1ª o 2ª ). Después hacer unas casillas de control de resultado cada cinco minutos ( 5,10,15,20,25,30) primera parte i segunda parte (5,10,15,20,25,30) me guastaría que cada 5 minutos se pusiera solo el resultado en cada casilla que toque a partir del crono. Tengo hecho dos celdas donde representa el marca…

Estimados, buenas tardes. Tengo una Macro que ubica a una persona en un cuadro o matriz según los siguientes datos. a) Nivel de una persona (puede ir del 2 al 7) Desempeño (NS, NM, CP, SA, EX) c) Estrato (puede ir del 2 al 5) d) Sub-estrato (puede ir del 1 al 3) e) Propósito y Balance emocional (puede ir del 1 al 3) Al ejecutar la macro me funciona bien, solo que deseo generar algo y no estoy pudiendo lograrlo. Lo que quiero es que según sea el valor del "Propósito y Balance emocional" de una persona (1, 2 o 3) pinte el texto de esa persona de un color determinado. Si es 1 (rojo), si es 2 (anaranjado) y finalmente si es 3 (verde) Adjunto el archivo …

Hola compañeros, Tras varios intentos devanándome los sesos de cómo modificar un registro existente, lo intentaré por aquí a ver si puedo encontrar la solución. Tengo un formulario en el que puedo registrar la entrada de un nuevo alumno, si este alumno está en la base de datos me devuelve al formulario todos los datos existentes. Ahora bien quisiera poder modificar esos datos del alumno existente sin que me cree un nuevo registro. Adjunto el archivo. Muchas gracias de antemano Un saludo registro modificacion.rar

Hola: Necesito eliminar estas columnas ("A:E, G:G, I:J, L:M, O:Q, S:T, V:W, Y:Z, AB:AC, AE:AF"), pero no lo consigo con ninguna de las macros que he visto. Por ahora he conseguido una que funcione que aquí adjunto: Sub Eliminar_Col() Range("A:E").Select Selection.Delete End Sub pero solo elimina, lógicamente, las primeras 5 columnas porque no sé cómo se pueden añadir las otras. He intentado múltiples formatos para añadirlos a "Range" pero siempre me da error. Muchas gracias

Estimados. Estuve leyendo varios post y no logro encontrar especificamente con una solución. En primer lugar necesito mandar un email con una macro con un contenido de excel. Logro armar los distintos emails para cada destinatario especifico, ponerle un subject, pero no logro poner el cuerpo del mensaje. NO necesito enviar una celda sola, ya que con .body = Range (Celda) lo envia, sino que necesito que envie toda una tabla entera. Probe varias formas y no logro dar con la correcta. .body= Range("A1:I11") .body= Range("A1:I11").Value .htmlbody=... También he intentado con lo siguiente: Sub EnviarEmail(Destinatario As Variant) With ActiveSheet.MailEnvelope …

Buenas tardes, recién estoy iniciandome en VBA y quisiera saber si alguien me podría dar una mano con este pequeño inconveniente que tengo. Resulta que tengo una tabla matriz de compras de la que se exportan datos a otras tablas. Estas tablas las tengo filtradas de diferentes maneras por lo que al modificar datos en la tabla matriz tengo que actualizar manualmente los filtros para que quede de la forma que deseo. Encontré una manera de hacerlo, pero me parece que esto tiene que ser aplicado para cada tabla: With ActiveWorkbook.Worksheets("HOJA").ListObjects("TABLAX") .AutoFilter.ApplyFilter End With Mi duda es si de alguna manera se podría actualizar l…

hola buenos días, tengo un formulario que encontré en este foro y quisiera adaptarlo a una una tabla que ya manejo pero no e podido... el formulario tiene cuadro de filtro pero me gustaría tener dos filtros mas y poder seleccionar que columnas quiero filtra en cada uno de ellos. dejo una ejemplo en la tercera hoja con el nombre R-SI-019 que es donde quiero aplicar el formulario. Gracias por su ayuda ejemplo.xlsm

Buenas, escribo este tema para ver si a alguien más le ha pasado y sabe el motivo por el cual sucede o como corregirlo. Desde ayer, cuando ejecuto cualquier macro (de un mismo archivo o cualquier otro archivo), la misma se “para” sin motivo aparente, y sale el recuadro de “La ejecución del código se ha interrumpido”; le doy a continuar y todo finaliza sin problemas; si le doy a depurar la macro se para el cualquier línea de código (nunca es la misma línea); si la macro es larga, el recuadro de interrupción sale varias veces hasta que finaliza la ejecución del mismo (dandole a continuar). El problema, según lo que yo he logrado detectar, sucede cuando la ejecución del a…

Buenas noches, Consiste en lo siguiente: Este archivo tiene 2 botones, uno es para agregar nombres y datos de las personas en las celdas y el otro es para consultar todos los datos mediante el nombre de la persona y que esta informacion salga en textbox y listbox pero el error proviene cuando busco un nombre y un "código",( así se llama en el formulario pero en realidad tiene términos como referencia para buscar) que no existe apareciendome así un diálogo mostrando el error "desbordamiento". La posible solución que planteo es que al momento que coloque un nombre y el código que no existe en las celdas cumpla la función de mostrarme un mensaje que diga "No hay pacient…

Hola a todos y todas. Como otras veces hice, acudo a este foro para solventar una duda, porque hasta ahora, me habéis ayudado rápidamente y siempre dando en el clavo. Tengo un libro de excel y quiero que con una macro se copie la hoja en el mismo libro y con el nombre de unas celdas en concreto. La hice y hasta ahí todo bien. La dificultad se presenta cuando vuelvo a ejecutar la macro. Al intentar crear otra hoja con el mismo nombre, me da un error. Si le doy a depurar me resalta lo que sigue: **************************************************** Sub Guardar_copia_convalor_celda() ' ' Guardar_copia_convalor_celda Macro ' ' Sheets("Hoja1").Select Sheet…

Buenos dias expertos: Solicitando su ayuda con un pequeño problema el cual explico brevemente Tengo una macro que abre un numero determinado de archivos con un bucle con la instruccion Worksheet.open extrae infromacion y cierra dichos archivos mi problema es que cuando alguno de estos archivos trae formulas relacionadas con otros archivos al momento de abrirlo la macro me envia el sig mensaje y se detiene hasta no dar clic en actualizar o no actualizar, pudiera haber una manera de que no aparezca dicho mensaje o que se pueda dar clic automaticamente al abrirlo para que no se interrumpa el proceso. PD no considero necesario adjuntar algun archivo …

Saludos a todos, con la siguiente disyuntiva quiero con macros filtrar una base de datos para quitarle todos los espacios en blanco y copiar los valores restantes a otra hoja. Pero al momento de estar grabando la macro me marca este error "Demasiadas continuaciones de linea". Anexo archivo de ejemplo. De antemano muchas gracias. demasiadas continuaciones de lineas .xlsm

Buenos días! Amigos del foro quisiera solicitarles el apoyo para resolver el siguiente problema, necesito una macro que me permita copiar de una hoja a otra si se cumplen los siguientes criterios: Si el valor en la columna G de la hoja Diario es mayor que cero, se copien los datos de Diario(hasta la ultima celda con datos) a la hoja BD pegando los datos en la ultima celda vacía de BD. Al copiar aquellos valores mayores a cero en la hoja BD quitarlos de la hoja Diario, solamente dejando los datos que contengan cero o se encuentren vacios en la columna G de la hoja Diario. Lo estuve intentando de la siguiente manera: Sub copiar2() Set …

Buenas tardes amigos, espero que estén todos bien Después de revisar el foro a fondo no encontré nada parecido a ver si me pueden ayudar con esta problematica que tengo. Tengo un listado de fondos y quiero mediante una macro crear una hoja por cada fondo distinto que tenga en el listado. He visto propuestas por internet como esta: [CODIGO]Sub CreateSheets() Dim rng As Range Dim cell As Range On Error GoTo Errorhandling Set rng = Application.InputBox(Prompt:="Select cell range:", _ Title:="Create sheets", _ Default:=Selection.Address, Type:=8) For Each cell In rng If cell <> "" Then …