Hola, veréis tengo una idea para ejecutar una macro que no se como resolverla. Me explico, tengo un libro con siete hojas de las que necesito eliminar, en cuatro de esas hojas, las filas en la que al menos una de sus celdas no tenga contenido. Hasta el momento lo vengo realizando con la macro: Sub EliminarRegVacios() ActiveSheet.Columns(ActiveCell.Column).SpecialCells(xlBlanks).EntireRow.Delete End Sub Pero el problema que me encuentro con esta macro es que tengo que ir hoja por hoja ejecutando la macro y mi idea es poder realizarlo en todas las hojas automáticamente de una sola vez. Además se da la circunstancia que una de las hojas no cumple la condición de …

Buenas Tardes: Otra vez necesito de su ayuda, quien tiene un codigo para que me busque lo que escriba dentro del textbox y que si no lo encuentra limpie y reinicie la busqueda, gracias

Estoy acá nuevamente para plantearles un problema que tengo: Resulta que tengo un código VBA el cual se encarga de enviar en el cuerpo de un mail en Outlook, un rango de celdas específicas además de enviar un archivo adjunto. Este código me funcionaba perfecto en un libro Excel, pero al copiar y pegar dicho código en otro libro éste no envia el mail. Al momento de ejecutarlo en teoría funciona correctamente, no me lanza errores ni nada, pero simplemente no me envía el correo. Les adjunto el código: Sub Mail_Range_Outlook_Body() ' Don't forget to copy the function RangetoHTML in the module. ' Working in Office 2000-2010 Dim rng As Range Dim ruta As Workbook …

Buenas tardes tenga todos! Bien ya le eh dado mil vueltas al tema y no logro automatizar este archivo. Todo lo realizo de manera manual y es mucho trabajo me llevo hotras, entonces quisiera pedir de su ayuda, veran tengo que lograr lo siguiente. -Tengo 4 hojas en un libro: *Hoja1,Hoja2,Hoja3(no siempre se llaman igual, tienen el mismo formato) *Resumen Sumas.(tiene el mismo formato a las otras hojas, pero ya esta estructurado como deseo) Las 4 hojas siempre deben de tener el mismo acomodo para poder asi en la hoja "RESUMEN SUMAS" poder realizar la sumatoria de las hojas anteriores en la celda, fila, que le corresponda. Ya utilice la grabadora, haciendo est…

uenas tardes una consulta y disculpen la molestia: pretendo que a la hora de abrir el libro de Excel me solicite introducir la clave de tres usuarios ya establecidos, los cuales seria: 1) YORDIN 2) YHOAN 3) OMARILYN Cuya clave de acceso sea “123” para luego yo modificarla en la macro. gracias. FILTRO.rar

Buenas tardes gusto saludarles. ¿Alguién conoce alguna opción o Macro, que le de una ubicación determinada a un ComboBox? El asunto es que tengo problemas con una macro que oculta un rango que va de fila 10:40, pero que en las filas 41 y 42 tiene un ComboBox en cada una (mas otros que han quedado ocultos en las primeras filas), y cuando la macro corre me indica que "no puede desplazar objetos fuera de la hoja", aun y cuando esos objetos tienen como propiedades "Mover y cambiar tamaños con celdas". Lo que pasa es que ya no quedan filas en la parte superior para alojar esos comboBox, por eso es que se me ocurre que tal vez exista una forma de ubicar dichos objetos en un …

Buenos días deseo colocar un sonido en un UserForm pero no he podido. Que cuando se ejecute suene. Musica-Balota.rar

Buenas, Quisiera que me ayudaran con mi proyecto, quiero hacer un formulario que llevará varias preguntas. Lo que necesito es que al meter una carga de datos (codigos de clientes) estos se vuelquen automáticamente al formulario, y despues de llenar la encuesta, darle al boton "guardar" y que me pase al siguiente registro de la carga. Es posible?

Hola. Necesito gran ayuda. Cópmo hacer una macro que se accione con doble click en una celda generando un envío de correo de outlook, con el campo para, asunto, y texto ya diligenciados, y con un pdf temporal adjunto que desaparece cuando se envía, y que tiene como rango fijo los rótulos de columna y un rango variable (que es el que voy a cambiar dependiendo de a quien se envia el correo) He visto macros que hacen esto, mas no sé como juntarlas en una sola macro. Agradezco cualquier acercamiento a la función. Gracias.

DUDA. Adjunto Código. Tengo casi tres semanas de trabajar en este proyecto para aprender. El usuario al digita el primer valor en C2, entonces A2 muestra la fecha de Hoy. Luego digita un valor en B2, este valor solo se escribe una vez al ingresar el primer dato en C2. Luego el usuario digita un valor en E2 y da clic a botón Run que calcula valores en D2 y F2, pero, muestra en B3 muestra el valor de B2 + 1, que no debe ocurrir. El botón Run, también, debe mostrar en la fila 5 (no en la 4) los totales de las columnas C,D,E y F. Así, cada ves que se digita un valor en C la fila con los totales se va incrementado en 1 hacia abajo. La Fila de Totales también debe mostar…

Hola a todos, bueno necesito ayuda para una pequeña macro, lo que haría ésta macro es lo siguiente: -En la hoja Stock Almacén se encuentra el listado de productos en stock, cuando no queda stock de un producto, en la celda correspondiente al producto en la columna de Stock se pone a cero, lo que necesito es que cuando esto ocurra inmediatamente ( ó usando algún botón para la macro) el rango de celdas desde la columna A a la J de ese producto cuyo Stock se ponga a cero se corte y pegue en la hoja Stock Finalizado en la primera fila, y por tanto en la hoja de Stock Almacén el rango de esas celdas cortadas se elimine y se desplacen las celdas hacia arriba. Sólo necesito cop…

Amigos, Quisiera saber si alguno de uds sabe la línea de código que necesito para colocar "Importancia Alta" al enviar un Correo desde Outlook 2010. Si pudieran ayudarme se los agradecería un montón. Les envío el código con el que estoy trabajando, por si le sirve a alguien: Sub EnviarEmail() Dim objOutlook As Object Dim objItem As Object Dim objNamespace As Object Dim ADJUNTO As Variant Set objOutlook = CreateObject("Outlook.Application") Set objNamespace = objOutlook.GetNamespace("MAPI") Set objItem = objOutlook.CreateItem(olMailItem) objNamespace.Logon "EXCELSPACE", , True, True ADJUNTO = "Destino.xlsm" With objItem .Attachments.Add (ADJUNTO) .Display .…

Buen dia tengo este diseño pequeño de entrada y salida de personal, lo que requiero de ustedes es que cuando el trabajador escoja su nombre y darle click en registrarse pida que digite el numero de documento de identidad que esta en la hoja empleados, si es el correcto al nombre pues permita que los datos sean registrados en la hoja registro. Ademas necesito que en la hoja registro coloque en color verde si la entrada es igual o inferior a las 7:30am de lunes a viernes y en rojo si es superior y los dias sabados coloque la misma condicion si es igual o inferior a las 8:00am ahora para la salida de lunes a viernes debe ser en verde despues de las 5:00pm y los sabados igual…

Buen dia, en mi trabajo ocupamos una macro que se creo en office 2010 y a la hora de querer correrla en office 2013 nos muestra un error de codigo oculto: Thisworkbook Ya estuve checando y encontre la "solucion" de deshabilitar el complemento de convercion a euro pero no me da resultado. Tambien descargue el office 2010 pero ya tampoco me deja correr la macro. Que puedo hacer?

Hola, buenos días a tod@s! Estoy trabajando con un libro de Excel que genero tras un código desde Access mediante VB. En este fichero, una vez abierto, quiero incluir un segmento de código que lea unos valores de texto y los vaya escribiendo, de manera vertical, en una línea. Mi problema es que la primera vez que lo ejecuto funciona y me genera un Excel tal y como lo quiero. Pero (bien cierre el informe Excel que se acabe de generar o lo deje minimizado) a la segunda vez que ejecuto el código ya no funciona y no hace nada, o bien me da el error: <Object variable or with block variable not set> ¿Alguien sabe por qué podría ser? mi segmento de código es el sigui…

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…

Hola amigos. por favor si pueden darme una ayuda. es q con la macro que va en el libro adjunto, puedo iserrtar dos columnas cada 8 especies , en cuyas columnas insertadas quiero que se copie los valores de las primeras dos columna y no sé como hacerlo. Los resultados que se busca figura en la hoja "Modelo". Gracias por anticipado. Copia celdasautomaticamente.zip

Buenas tardes, me gustaría ver como podria hacer una macro en la que bloquee y desbloquee varias hojas (por ejemplo 3) con una clave que yo ponga (por ejemplo "pepito", la misma para todas las hojas bloqueadas). Nada más, un saludo y seguid asi.

Hola a todos. Quizás mi pregunta anterior no estuviera lo suficientemente clara. Mejor subo un ejemplo de la macro. La hoja está protegida por contraseña (es : "cuad" sin las comillas) como veréis en el código, excepto las celdas A23, B23, C23 y E23. Si l a celda A23 está vacia o hay escrito algo distinto de "prueba" (sin comillas), dichas celdas quedan desprotegidas y puedo insertar cualquier valor, pero si escribo "prueba", deben protegerse (Locked) las celdas B23 y E23. Pues bien la macro dá error y me salta el depurador en la linea de Range("E23").Locked = False o en Range("E23").Locked = True y lo único que sé es que el motivo es por ser E23 una celda combinada…

Buen día a todos, Tengo este problema y me gustaría recibir su ayuda, por favor. La idea es la siguiente: En la Hoja1 mediante un botón se copie los valores de la celda ( A7,B7,C7,D7) a la Hoja2 celdas (B6,C6,D6,E6). Ahora, si modifico el contenido de la Hoja1 en las celdas ( A7,B7,C7,D7) y presiono el botón , quiero que agregue estos nuevos datos debajo,es decir en las celdas (B7,C7,D7,E7) de la Hoja2, y así sucesivamente se vayan agregando como si se tratase de una lista. Posterior a ello en la Hoja2, se muestre una imagen de "check list" si tiene un dato escrito en las celdas (B6,C6,D6,E6). de lo contrario que no se muestre nada. PD: Mi explicación esta acorde …

Saludos a todos, buenas noches desde México Espero alguien me pueda apoyar, ahora con esta situación Tengo un archivo con varias hojas. las cuales fueron creadas en el proceso de conversion de pdf a excel, que en gral tienen la misma estructura (hoja 1, hoja2), pero rara vez por la magnitud del nombre del cliente la estructura cambia (hoja3), bueno la información de estas hojas las necesito concentrar, también hacer mención que en las hojas viene en la misma celda el concepto y la información junta anexo archivo. Mucho agradeceré su apoyo, comentarios, sugerencias, etc y pues a veces son bastantes hojas y pues realizarlo a pie, pues si cansa, ojala ustedes me echen …

Saludos: Primero, excelente foro para ayudar con excel. He revisado si mi problema se parece a otro, no encontrando resultado satisfactorio. Archivo contiene columnas: numero, fecha, nombres, ap. paterno, ap. materno y titulo. El dilema es comparar todos los valores de la Col Numero entre Hoja 1 y Hoja2 y copiar la fila a Hoja 3. El problema surge porque este valor puede estar repetido en ambas columnas de ambas hojas y debo copiar todos las filas distintas encontradas, además de chequearlas gramáticamente en Nombre, ap. pat. y ap. mat. ( si el apellido en una columna posee tilde y en la otra hoja el mismo apellido no, son filas distintas y debo elegir la que tiene …

Hola a todos. Sé que es una tontería pero no doy con la solución. ¿Alguien me ayuda un poco? Necesito proteger varias celdas por macro. La macro que he hecho es esta: Private Sub Worksheet_Change(ByVal Target As Range) If [b19*C19*E19*B20*C20*E20] <> 0 Then ActiveSheet.Unprotect Password:="cuad" Range("B3:B6").Locked = False ActiveSheet.Protect Password:="cuad" ElseIf [b19*C19*E19*B20*C20*E20] = 0 Then ActiveSheet.Unprotect Password:="cuad" Range("B3:B6").Locked = True ActiveSheet.Protect Password:="cuad" If [A23] = "Sólidos" Then ActiveSheet.Unprotect Password:="cuad" Range("B23").Locked = True ActiveSheet.Protect Password:="cuad" ElseIf [A23] <&…

Buenas dias a todos los del foro Espero su ayuda que de antemano agradesco, el simple hecho de leer el topico Es un reporte de venta, que se realizara diario lo cual se hace tedioso el estar copiando y modificando las formulas de la hoja del dia anterior, por eso pido su apoyo, con la grabadora hice el formato del dia 12 de mayo, pero hacer una rutina por cada dia con la grabadora se haria extensa, - Al crearse el nuevo formato mediante un boton, la hoja lleve el nombre del dia del mes y año correspondiente. Gracias, saludos desde mexico, que sigue temblando jordddy Control venta diaria.rar

Hola a todos los colaboradores de este fabuloso foro, vuelvo nuevamente con un problema que se esta presentando para buscar un registro determinado en una base de datos; resulta que cuando deseo buscar un numero que he registrado previamente en la base de datos y este contiene mas de cuatro digitos el macro que se encuentra asociado al boton "eliminar registro" no lo busca y se salta al mensaje no se encuentra. El macro esta adaptado para que dependiendo de la opcion que este marcada busca en una determinada hoja sobre la columna G, ejemplo si marco la opcion remisiones busca el dato a eliminar en la hoja rrem (hoja oculta) los codigos de la remision o pedido que e ingre…