Buenas tengo un problema con una macro, cuando mando a impimir (ctrl+p) imprime todo bien dejo de trabajr o de usar el libro de trabajo por unos 10 minutos o mas y se vuelve todo blanco el libro, cuando entro a otras hojas todas me salen en blanco, ojo no se cuelga el libro ni se bloquea, solo se vuelve blanco todas las hojas y el libro.Este esta es la macro que estoy utilizando:-----------------------------------------Sub Imprimir()Resultado = MsgBox("¿Estás seguro que deseas imprimir la hoja?.", vbQuestion + vbOKCancel, "Registro Pedagógico v5.2 By Luish@o")If Resultado = vbOK ThenApplication.CommandBars.ExecuteMso ("PrintPreviewAndPrint")MsgBox ("DEBES DE CONFIGURAR LA…

Muy buenos días, tardes, noches compañeros. Disculpen que los venga a molestar, pero estoy realizando un proyecto que es sencillo, pero de alguna manera se me complicó, jejeje. La cuestión está, en que necesito validar un rango de celdas, y que estas no se encuentren vacías (en el archivo adjunto sería de la celda B6 a la B17). El problema está en que en medio de dicho rango de celdas, hay 3 que son "opcionales" o hay una "excepción", es decir que se pueden o no llenar, pero no logro correr una macro para que valide que las celdas estén vacías, pero que omita estas 3 celdas que son opcionales (en el archivo adjunto van marcadas en color amarillo). Actualmen…

Hola buenas tardes Después de mucho tiempo vuelvo a necesitar de vuestra valiosa ayuda, mi problema es el siguiente: Tengo un libro excel el cual al introducir datos en la columna "A" pone datos de fecha y hora en las columnas "C" y "D" y en la columna "E" pone "ENTRADA" si introducimos un dato por primera vez en columna "A", y "SALIDA" si el dato de columna "A" se repite Quisiera saber como hacer que si en la columna "A" se repite un dato y en la columna "D" de las filas en las que se repite el dato coinciden los datos "ENTRADA" y "SALIDA" elimine esas dos filas de Hoja1 y las pegue en la Hoja "SEGUIMIENTO" del mismo libro. .....A................B................C...…

facturar impresa y en PDF Estoy trabajando con mi factura Mi primer trabajo en excel 2010, pero no se como hacer que se guarde en PDF con el nombre que esta en la hoja "Imp_Fac" celda "M3" que se compone del No. factura, Nombre del cliente y Fecha de emision de la factura, tengo amyuni PDF converter y y poder asignar la ruta donde se guarde la factura en PDF, y que se imprima en la impresora default, espero haberme explicado correctamente captura los datos a facturar en la hoja "factura" y quiero que se imprima los datos de la hoja "Imp_Fac" Slds y gracias por valiosa ayuda FACTURA1.zip

Tengo excel con varias columnas: Fincas/Polígono/Parcela/Titular/Domicilio Se trata de una Macro que identifique los datos repetidos de la columna "Titular" y agrupe en una sola fila los datos que tenga de Finca/Polígonos/Parcelas.. en otra fila diferente. Finca Pol. Parc. Titular Agrup. Finca/s Pol. Agrup. Parc. Agrup. Titular 1 12 35 Abdon Terrades 1,5 12, 12 35, 41 Abdón Terrades 5 12 41 Abdon Terrades

Buenos días, tengo un pequeño sistema de almacén que funciona aparentemente bien pero cuando voy registrar ingreso de materiales se vuelve bien pesado y genera mucho archivos temporales en la carpeta lo mismo pasa en registro de salida de materiales, agradezco que me digas que es lo que esta pasando con mi proyecto o que me falta poner por favor gracias por sus tiempos. Adjunto el archivo Usuario y Contraseña: ADMIN Sistema de Entradas, Salidas y Almacén.xlsm

Tengo un libro con varias hojas. Con el editor de VBA tengo uno o varios módulos en cada hoja de ese libro. Necesito declarar una constante que sirva para todos los módulos de todas las hojas de ese libro. ¿Dónde se declara y Cómo lo hago? He intentado declarar n=12 para leerla en cualquier módulo del libro de la siguiente forma: Public Const n As Integer = 12 Const n As Integer = 12 Public n As Integer: n = 12 Private Const n As Integer = 12 Esas declaraciones las he escrito tanto en uno de los módulos de cualquier hoja como en ThisWorkbook pero la única forma que funciona es la última pero sólo se declara en el módulo de la hoja en la que est…

Hola, Me gustaría saber si es posible que con una formula escriba en diferentes celdas, es decir, en mi caso encontré una fórmula que me concatenaba resultados respecto a un rango (que también me valía), pero ahora querría modificarla para que me "extrajera" los resultados a partir de la celda donde pongo la formula. Pego aquí el código. Function MULTCONCAT(lista As Range) Dim ncell As Range Dim m_concat As String m_concat = "" i = 1 For Each ncell In lista If ncell <> "" Then If i = 1 Then m_concat = m_concat & ncell.Value i = i + 1 Else m_concat = m_concat & " or " & ncell.Value End If End If Next ncell m_concat = …

Hola que tal., antes que nada los felicito por esta pagina tan ilustrativa, me ha ayudado mucho con los pendientes del trabajo. El asunto que traigo hoy es el siguiente, he conseguido esta macro que me convierte una hoja de excel en txt,. En las columnas 13 y 14 existe una formula que dice que si no existen caracteres, inserte x numero de espacios en blanco, y al momento de convertir el archivo en txt no me los considera, es decir termina la cadena de texto donde termina el ultimo carácter de la columna 12,, adjunto el archivo de excel y un ejemplo del txt que genera. Ante todo muchas gracias por su ayuda. Saludos desde AGS., MX. txt de ejemplo.tx.txt Macro Carga.xls

Muy Buenas amigos del foro: Estoy intentando capturar datos mediante un formulario pero al gardar los datos me presenta un error, el codigo que he escrito es el siguiente: Private Sub CommandButton6_Click() Dim fecha As Date Dim sucursal As String Dim ingpart As Double Dim factpart As Double Dim inginst As Double Dim factinst As Double Dim exapart As String Dim exapsv15 As String Dim exapsv10 As String Dim exaemp As String Dim exaprom As String Dim exacort As String Dim exaoftalm As String Dim valexapart As Double Dim valexapsv15 As Double Dim valexapsv10 As Double Dim valexaemp As Doub…

hola como puedo hacer para que al presionar un boton me sume ejemplo: la celda D1:E1 y me la guarde en la celda F1 y si ingreso nuevos valores a las celdas d y e me las sume con un for aqui mi codigo : suma= WorksheetFunction.sum(Range("D1:E1")) Worksheets("Hoja1").Range("F1") =suma donde hace la suma pero la quiero para mas celdas sin repetir el codigo ya que quiero sumar mas de 100 celdas saludos y gracias

Hola!! Tengo un problema y quisiera ver si alguien me apoya, la cuestión esta así: Necesito conectarme a una bd SQL Server desde excel y despues de hacerlo correr una consulta sql para que los datos me los copie a cualquier hoja del archivo, el query SQL ya lo tengo, pero no tengo idea de como hacer que excel se conecte al servidor de base de datos. Ya logrado eso necesito automatizarlo un poco, ya que quisiera que al abrir el archivo de excel este pida usuario, contraseña y BD a la que se necesita conectar y utilizar estos tres datos(usuario, contraseña y BD) para correr el query de SQL, ya que son varias bases de datos y quisiera utilizar el mismo archivo para conect…

Buenos días, Después de estar intentando solucionar este tema por mi cuenta no me queda más salida que pedir ayuda. Caso: Tengo una base de datos que contiene unas sección donde refleja con "X" o "!" errores de cumplimentación de datos. Necesito un macro que permita eliminar de forma automática aquellas filas que no contengan ni X ni ! (está todo correcto). para poder aislar las que tengan errores. Digo eliminar ya que es la única manera que se me ocurre pero quizá uds conocen otra manera de llegar al mismo resultado. A B C D 1 ! 2 3 X ! 4 X Adjunto un archivo a modo de ejemplo que también contie…

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! amigos del foro quisiera consultar si hay alguna forma en que se pueda validar el usuario que ha abierto en libro, pero no en un evento Workbook_Open, mas bien cuando ya el libro se encuentre abierto esta comprobación se realice en la hoja activa. Lo que busco lograr es si el usuario definido en el código no es el mismo que ha abierto el libro, genere el procedimiento de cerrar el libro activo sin guardar los cambios. Agradezco cualquier ayuda o comentario. Saludos Historial Smart_IntelligenceTools.xlsm

Hola a todos, quisiera saber como ocultar el archivo .ini creado con excel, y que funcione en modo oculto, pues sino el riesgo es que lo eliminen de la pc. agradeceré su ayuda:tennis:

Estimados, vengo nuevamente con una consulta, y espero tenga buena acogida. Tengo una rutina en la que habro archivos y rescato datos, le doy formato y otras cosas. El origen de estos datos es de archivos planos pero con extención particular ".mad", que en el fondo puede ser cualquiera pero distinta de ".txt" La cosa es que algunos archivos por sus datos pierden coherencia. Solución posible hacer conección de datos desde archivos de texto. Hago la conección y grabo una macro, pero no puedo modificarla para los parametros que van cambiando, como la ruta de origen del dato. Adjunto Query para aclarar el tema y adjunto archivo plano que intento copiar. Este archivo se sep…

Buenos días les agradezco de antemano si me pueden ayudar, hice este macro para ingresar la formula de SUBTOTALES me parece que lo escribe bien pero da un error y no lo encuentro, apelo a ustedes si ven el error o alguna otra opción que pueda utilizar.Mil gracias Consulta.xlsm

Me conseguí una macro que copia un rango de celdas variables a un nuevo libro lo que quiero modificar es que el nombre del nuevo libro lo tome de una celda de la pagina en B1 pero me da error aqui el codigo CODE Sub CopiarCeldas() 'Definir objetos a utilizar Dim Nom_Libro As String Nom_Libro = Range("B1").Value Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range 'Indicar el libro de Excel destino Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & Nom_Libro) 'Activar este libro ThisWorkbook.Activate 'Indicar las hojas de origen y destino…

Buenos días foreros: Estoy teniendo problemas con una lista de validación dependiente. Como sabeis las listas de validación tienen un problema, si pegamos encima de las celdas con validación, esta desaparece. Como solución he utilizado VBA, al evento worksheet_change le he pedido que cree de nuevo la validación y funciona rodeando con un circulo rojo los datos pegados que no cumplen la validación. Hasta aquí todo funciona correctamente. El problema lo tengo cuando la lista de validación es dependiente y la aplico a un rango , por ejemplo b2:b100 Si creas la lista de validación dependiente en Excel ,no hay problemas; pero si la creo en VBA me da error 1004. EN VBA…

Buenas tardes desde Cádiz (España) Ante todo daros las gracias por la información que prestais en este foro el cual nos resulta muy util a gente inexperta como yo, en este caso. Os cuento. Tengo un libro con datos de facturas; nº de factura, fecha de factura, proveedor, importe.... En la columna D15 de la hoja "GASTOS TRIMESTRE 1" instale un desplegable para que a la hora de introducir el nombre de estos proveedores, no tuviera qeu perder tiempo en escribirlo. Pues bien, estoy intentando realizar en el mismo libro pero en otra hoja diferente (PROVEEDORES), un desplegable para obtener datos de la primera hoja. En esta hoja me gustaría tener un desplegable con las em…

Buenos días, actualmente estoy trabajando con un archivo para crear una solución para la gestión de recibos impagados. Tengo todo listo (algo básico, debido a mi nivel) pero me encuentro con el siguiente problema: Al intentar ordenar el listado original mediante las distintas opciones de Excel solamente consigo ordenar mediante la Fecha de Vencimiento o mediante el Nombre. Si intento ordenar primero por uno y luego por otro, prevalece mas uno siempre. Lo que yo necesitaría es que los recibos con la fecha de vencimiento mas antigua se situasen al inicio de la tabla para ser gestionados primero, pero si un cliente tiene mas de un recibo, este estuviera en la fila …

Hola colegas, buenas tardes y ojalá se encuentren bien de salud. Colegas, no salgo de una para entrar en otra. Ahora mi Jefe me pidió que le hiciera un Proyecto para controlar el Parque de Transporte con respecto a Gasto de Combustible, Mantenimientos, Hojas de Ruta y Choferes, nada fácil para mi, pero me gustan estos "Retos" porque de cualquier manera aprendo tanto de VBA como de las normativas sobre los temas del transporte. Ya he tenido unos cuantos tropiezos, pero poco a poco voy resolviéndolos y voy a necesitar mucho de sus ayuda que realmente son los que saben, como siempre, acudiré a ustedes después de agotar mis "recursos de conocimientos". Por el m…

Saludos a Tod@s los Foreros Aquí vuelvo con otro problema, esta es una Macro que encontré hace algún tiempo en el Foro, la colgó el usuario Paco40 el 30/10/2010, le estuvieron ayudando varios de los Master, quisiera ver la posibilidad que se le puedan agregar unas 5 filas como mínimo o hasta 10 como máximo, cada vez que he intentado cambiar algo siempre me da error o me reduce la cantidad de combinaciones, pero no logro aumentar las Filas. Como siempre muchas gracias por su tiempo que emplean en mis Temas. Un Cordial Saludo Lázaro. AÑADIR FILAS.zip

Buenas noches, hace unos días pedí una macro y gentilmente Gerson la hizo y funcionó muy bien en el ejemplo, el tema es que cuando lo quiero aplicar en mi archivo no funciona, tira el error "Se ha producido el error '1004' en tiempo de ejecución: error definido por la aplicación o el objeto" Pintando de amarillo la línea que pongo en negrita: Sub ARREGLAR() With Hoja2 'BD BOL VENTAS f = Hoja1.[E16] .Range(.Cells(f, "A"), .Cells(f, "K")) = Hoja1.[BF4:BP4].Value End With End Sub El problema será porque tengo 19 hojas en el libro y en el ejemplo hay solo 2? o por los nombres de las hojas?, no se. Probé agregarles más hojas al ejemplo …