¿Alguien sabe si existe una manera de escribir una macro - por ejemplo en el libro de macros personal - que escriba código en los módulos de VBA de otros libros? El caso concreto en que esto podrías ser útil es el siguiente: tengo 20 archivos en uso por parte de los empleados de una empresa, cada uno de los cuales es exactamente igual a los demás y contiene las mismas macros, sólo que cada uno de los empleados usa su archivo para registrar sus propios datos. Tengo que hacer un cambio en las macros de todos los archivos, y si no hay manera de "escribir una macro que escriba macros" tendré que ingresar a los archivos uno por uno y cambiar los códigos manualmente. …

Hola buenas a todos. En esta ocasión por mucho que he buscado en el foro no encuentro solución a mi problema. Tengo un macro mediante el cual cambio los valores de una columna por los valores de otra. Tengo 2 hojas creadas, una la he llamado lista y la otra datos. En la sheet lista, he colocado la relación de los números que tiene que reemplazar y por cual en cada caso. El macro me cambia los valores de las celdas bien, pero luego vuelve a cambiar el valor de nuevo en las celdas que ya había modificado, volviendo a cambiar el valor de las celdas y creando un caos en el resultado. Ejemplo: 1 - 97 2 - 98 3 - 99 4 - 101 5 - 103 6 - 105 7 - 107 8…

Hola a todos, Necesito una macro que me permita filtrar datos de una hoja, según un valor introducido en una celda, y que cada 40 filas copie los valores en un rango distinto de otra hoja.(todo un reto...:nightmare:) Lo que tengo en archivo adjunto, es un libro con tres hojas, en la primera (Albarán), introduzco los datos y se copian de forma automática en la segunda Hoja (Albaranes). En la tercera Hoja (Factura), hay una plantilla de factura, que se repite 15 veces hacia abajo. Necesito una macro, que al introducir código de cliente (celda F1), en el Hoja Factura, busque todas las filas que en la columna A de la HOja Albaranes, coincidan con código de cliente (celda F…

Buenas noches... En el fichero adjunto tengo una serie de columnas a la que quisiera colocarle una restricción para evitar errores involuntarios con los usuarios que lo utilicen... Cada columna tiene su comentario, pero la restricción es solo para las que dicen: No se permiten números 0123456789 No se permiten caracteres especiales (!#$%&/()=?¿¡”*¨[ ] + { }:;) ¿Es posible con macro? plant.xlsm

Mi estimados programadores necesito que me ayuden con este tema: Lo que pasa es que tengo 2 archivos de Excel una de ellas para la base de datos y la otra para mostrar los datos, los agradecer bastante les adjunto la aplicaciones correspondientes, gracias de antemano. Importar.rar

Hola amigos, ¿Hay alguna posibilidad de migrar una aplicación en Excel a Programa en Visual Basic con ejecutable, o se ha de "partir desde cero"?. ¿Hay una utilidad desde Visual Studio para ello? Tengo aplicaciones en Excel VBA y me queda el "gusanillo" de transformarlas en programas Visual Basic pero no tengo soltura en ese programa aunque supongo que en el fondo es lo mismo. Gracias por su atención.

Hola a todos, soy un nuevo integrante de este genial foro, he podido aprender algo de los aportes de los participantes y he podido mejorar mi trabajo, Pero ahora quisiera una ayuda en esta publicacion, adjunto una lista de codigos (lo sombreado de amarillo) en el ejemplo he puesto 14 codigos , pero en realidad yo en mi trabajo manejo mas de 4500 codigos de diferentes productos y todos los dias me piden que saque un reporte con 5 codigos, 10 codigos, 2 codigos etc...y lo que hago es copiarlos y pegarlos en otra hoja nueva y guardarlo para finalmente enviarlo por correo. el objetivo es buscar los codigos mediante un combox y con un boton comando agregarlos al listbox para …

Hola a Todos estoy tratando de enviar un mensaje de WhatsApp desde el Excel y todo funciona bien menos el ENTER... no lo acepta la intrucción ActiveWindow.Application.SendKeys "{ENTER}" no la ejecuta.. Alguna sugerencia? Gracias y Saludos !!

Por favor alguien me pude ayuda con una macro para la siguiente rutina adjunto una imagen y les voy agradecer

Saludos. Tengo una aplicación xlsm con varios formularios. En el evento Workbook_Activate muestro un formulario a pantalla completa. Si abro (escojo) otro libro, mientras el primero está maximizado, no hay problema, pero si el segundo libro toma el control mientras el primero está minimizado, salta el evento Workbook_Activate y muestra el primero en formulario del primero en lugar del segundo libro.. Una solución que se me ocurre, es impedir que el primer libro se pueda minimizar, para eso creo que necesito "Detectar cuando se minimiza el libro". Cualquier idea se agradece.

Estimados, muchas gracias por su ayuda, estoy realizando una planilla para ingresar clientes y llenar una base de datos, pero quiero saber como poder hacer para que si el cliente ya existe me muestre sus datos y si los modifico se modifiquen en la base de datos, pero si no está, que me permita llenar su información. Hasta ahora solo he hecho: Sub Registro() ' Dim strTitulo As String Dim Continuar As String Dim TransRowRng As Range Dim NewRow As Integer Dim Limpiar As String ' strTitulo = "Registrar Datos" ' Continuar = MsgBox("Grabar datos?", vbYesNo + vbExclamation, strTitulo) If Continuar = vbNo Then Exit Sub ' Set TransRowRng = ThisWorkbook.Worksheets("D…

Hola, utilizo el siguiente código para guardar periódicamente mi libro: Sub auto_open() Tiempo = Now + TimeValue("00:30:00") Application.OnTime Tiempo, "Guardar" End Sub Sub Guardar() Workbooks("MARZO 2012.XLSB").Save Call auto_open End Sub[/HTML] Este libro lo utilizo las 24Hs. los 365 días del año y en ocasiones informa de un error y deja de guardar o sale un aviso que dice que no se puede guardar, ni siquiera manualmente. El problema es que mis empleados cierran el aviso de error y siguen trabajando como si nada, con la inevitable perdida de datos. Mi idea es utilizar el comando "on error goto" para copiar todas las hojas del libro y pegarlas en uno nuevo conser…

Saludos cordiales a todos mis estimado excelnautas: Para comentarles que estoy realizando un pequeño aplicativo en mi puesto de trabajo, relacionado con la impresión de formularios, ya que al final de cada 4 meses debo de imprimir alrededor de 250 formularios, mismos que contienen un sin fin de información... bueno, el asunto de llenarlos lo he superado utilizando un buscarv y listo... sin embargo, veia que el tema de ir consignando número por número de formulario también me llevaba un poco de tiempo, por lo que intenté usar el siguiente código: Sub IMPRESION_DE_FORMULARIO() Application.ScreenUpdating = False Dim i As Long If (Sheets("IMPRESION_DAB06_102012_OTROS…

Hola. ¿Hay alguna línea de código para indicar el movimiento de las flechas up/down/left/right? He intentado grabar una macro pero no parece recoger este movimiento. Gracias.

Buenas Tardes. Me gustaría crear un formato condicional en un Excel pero al estar compartido no me da la opción de hacerlo. Supongo que por programación se podrá hacerle. La condición es referente a dos celdas, si la celda E2 esta rellena y la celda F2 está vacía que la fila 2 ponga el color de la fuente en naranja y la otra sería si la celda E2 esta rellena y la celda F2 está rellena que la fila 2 ponga el color de la fuente en rojo. Muchas gracias por vuestra ayuda.

Hola a tod@s, No logro hacer una validación para varios TextBox, Tengo como 15 filas de controles y quiero aplicar la misma Validación a los controles que están alineados en columna, quiero ahorrarme el poner la misma validación para esos controles que pueden ser hasta 50 . Alguna idea? Envió archivo muestra con solo 3 lineas de controles y 3 columnas de controles y su validación correspondiente, si pones A o pones B o pones C Gracias de antemano por la ayuda recibida. Saludos. ValidarVariosTextBox_LBV.xlsm

Hola tengo una magro en la cual ejecuto la linea siguiente: Cantidad_Total_Localidad = Application.WorksheetFunction.CountIfs(Range("O3:O" & h), Date, Range("R3:R" & h), Poblacion) Date es la fecha de sistema Poblacion es una variable que contiene la Poblacion Que intento pues que me diga en el rango indicado cuantos registros coinciden con la fecha actual y con la poblacion indicada en el otro rango facilitado. hasta aqui todo bien, el problema me viene cuando intento saber cuantos registros hay anteriores a la fecha actual, he probado de varias formas pero siempre me da el mismo valor (cero), el rango donde comparo las fechas ("O3:O"&h) tiene formato de …

Señores buenas noches. Por favor necesito su ayuda, tengo que revisar linea por linea una base de datos y necesito una macro para que con un botón dar click y siga la siguiente referencia de una determinada columna. Gracias.

hola amigos nuevamente ojala me puedan ayudar y explicar una posible solución a este problema que no he podido dar lo he intentado y asta ahora no logro dar con el problema quisas sea por mi falta de experiencia , este es un ejemplo que he encontrado y lo he querido adaptar a mi necesidad, lo que no entiendo por que al agragar una columna al inicio ya no me muestra los resultados como en el archivo original, al escribir en el textbox1 no sale ningun filtro y al escribir en el textbox2 sale el filtro pero lo del textbox1, me explico en el campo descripcion me busca lo del campo código. y le agrege esa columna por que mi objetivo es agregar cinco columnas las cuales aun …

Hola buen día, disculpen, tengo una macro la cual son 2 combo box y segun lo que se escoja en la que se llama filtro te arrojara valores en la llamada "Valor", lo que no puedo hacer es que en el combo box me arroje todos los valores que estan segun el filtro y valor seleccionado, por ejemplo si escogieron "carrerra" y luego "II", que me arroje todas los nombre de las personas en el listbox que estudian II, la verdad es que no se como hacerle, gracias por todo, saludos. Filtros.rar

Hola alguien me podría ayudar para realizar una macro la cual 'Guarde como' una selección de celdas pero en formato pdf con el nombre de una celda en especifico, o bien de la opción de guardar con nombre distinto cada vez yo tengo estas lineas pero me marca error: Sub PDF() ' ' PDF Macro ' Worksheets("PRUEBA").Range("B3:M54").Select Range("M3").Activate Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "c:\GILDARDO\Desktop\PRUEBA" + Cells(D16) + ". Pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Range("B2").Select End Sub[/CODE]

Buenas tardes espero que me puedan ayudar no se mucho de programación, y por eso solicito de su ayuda. tengo una macro que al cambiar de celda en un rango especifico me muestra una imagen que esta en una carpeta de mi computadora, mediante un control de imagen, lo que necesito es saber como puedo hacer para que me muestre una imagen pero de Internet, esto es porque necesito que cualquier persona que quiera abrir el archivo, pueda ver las imágenes. continuación colo el código que estoy usando Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Dir As String On Error Resume Next If Not Intersect(Target, Range("Q11:Q30")) Is Nothing Then Dir = ActiveCel…

Hola! He intentado realizar una consulta a la base de datos como lo muestra la macro de éste archivo como se describe en ésta página, sin embargo el sistema me muestra el mensaje de error "Compilation error User defined type not defined". ¿Podrían ayudarme a solucionar ésto? ¡Muchas gracias!

Buenas, me ha servido mucho esta pagina, les comento que he logrado desarrollar un proyecto para el cual he logrado que dado un formulario pueda cargar una planilla para utilizarla como base de datos, poder imprimir el formulario, dado el boton cancelar que me limpie el formulario, pero lo que no puedo lograr es que mediante el boton buscar dado un dato me vuelva a cargar el formulario con el que trabaje, dejo el archivo para quien pueda me brinde una mano, desde ya muchas gracias y espero que se entienda lo que pido. La busqueda podria estar dada por responsable o por nombre de la empresa y que me permita elegir cual formulario imprimir.- Microsoft SkyDrive - Access fil…

Buen día, tengo el siguiente problema: Necesito insertar un comentario en una celda de un registro de datos que se va completando a través de un Userform. Uso el siguiente código (En rojo, las líneas que insertan el comentario en la celda): Set TransRowRng = ThisWorkbook.Worksheets("RESUMEN GENERAL").Cells(1, 1).CurrentRegion NewRow = TransRowRng.Rows.Count + 1 With ThisWorkbook.Worksheets("RESUMEN GENERAL") .Cells(NewRow, 1) = CDate(txtFechaUno) .Cells(NewRow, 2) = UCase(TextBox1.Value) .Cells(NewRow, 3) = Format(TextBox3, "00"".""000"".""000""-""0") …