Buenas tardes Comunidad Ayuda Excel Modificando un aporte que hizo el MAESTRO Macro Antonio de Incidencias; llegue a la tarea que debo crear dos comboboxes dependientes. Con la siguiente información si dice: C&B:Juan , Pedro, Ana C&D: Pablo, Ale R&S: Marco, Julio, Rosa Otra: (Que el usuario digite otro nombre) Sin cansarlos más les adjunto el archivo y agradezco que me ayuden con el código si son tan amables por favor. Gracias de antemano Saludos desde Costa Rica Registro de incidencias.xls

Buenas tardes compañeros, tengo una consulta y no doy con la solución, por si alguien podría ayudarme. Quiero dar las gracias de antemano. Tengo un excel con un formulario creado en el que doy de alta un usuario con sus correspondientes datos, hasta aquí todo ok. Después tengo un campo BUSCAR, que busco cualquier dato introducido y cuando lo selecciono para modificarlo o verlo me tira un error , y por más que doy vueltas no doy con la solución. También tengo un botón "Generar listado" que me gustaría que al pulsar me cogiera el registro seleccionado y me lo mostrara en un txt para copiarlo a otro programa.(Saben con hacerlo, sería posible). Vuelvo a d…

Buenos dias, mi consulta es: tengo una Base de Datos (de planetas del sistema solar) en Excel, cuando actualizo los datos del excel tambien quiero que se actualize los datos de esa tabla en Power Point, es eso posible?. Que se creen tantas diapositivas como planetas agrege en la bd con las mismas caracteristicas. Gracias. BD_Sist_Solar.zip

Hola, buenas noches, Tengo el ejemplo adjunto, el cual me gustaria puedan colaborarme con lo siguiente: 1. al estar en la hoja Ordenes, en la columna BC cualquier fila y escriba la palabra Proceso se copie a la pestaña Proceso. 2. cuando me encuentre en la pestaña proceso columna BC cualquier fila y escriba la palabra Pendiente se "corte" y peque en la pestaña Pendiente. 3. y cuando me encuentre en la pestaña Pendiente columna BC cualquier fila y escriba la palabra Cerrado se "corte" y peque en la pestaña Cerrado. Muchas Gracias por su amable apoyo. Saludos, ejemplo copiar a pestanas.zip

Hola ben día: Me podria ayuar a localiza el error en la siguinte sintaxis ya que por mas que la intent buscar no la encuentro, lo que esta en negrito es dondeme aparece el error Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 6 Then Cells(Target.Row, 6).Value = Now End If End Sub ----------------------------------------------------------------------------- Private Sub Workbook_Open() Worksheets("09-00 AM").Protect "aBc", 1, 1, 1, 1 End Sub ------------------------------------------------------------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then ActiveCell.Select Wit…

hola...mi gran agradecimiento a este foro ..hace unos dias recibi solucion a un tema y en esta ocasion los molesto con lo siguiente..necesito que me orienten a encontrar una macro que me valide 3 textbox y que en un listbox me envie el resultado de la busqueda que los llamaria desde una celda en la cual ya le he puesto la funcion SI.ERROR(BUSCARV..subo un ejemplo para que se den una idea. Desde ya muchas gracias validar textbox.xls

Hola Buen día He visto que es posible mediante un código evitar hacer copias de un archivo de excel o mejor dicho que si el archivo se mueve de la ubicación en la que esta simplemente no funciona o si se copia sin el archivo al que esta vinculado. ¿cómo puedo hacer para que el archivo solo se utilice en una usb? Este código es cortesia de Julibaga, y quisiera saber como modificarlo para aplicarlo a una usb y además que no se muestren todas las hojas, puesto que necesito que algunas permanezcan ocultas 'Poner lo siguiente en ThisWorkgroup: =========================================== Const archivoInicial = "C:\WINDOWS\Nombre_archivo.Extensión" Private Sub Workbook_B…

Hola a todos. soy nuevo en este foro, pido su ayudar para elaborar un formulario, que obtenga datos de una hoja llamado catalogo y que ademas me realice movimientos dependiendo de la cuenta seleccionada, espero sus opiones, y dejo aqui el archivo para que vean que contiene. de antemano mil gracias.. Libro3.xls Libro3.xls

Hola a todos. Tengo en un Excel datos por provincia (52 en total) que debo traspasar a una slide de powerpoint, que tiene una imagen del mapa y los 52 shapes creados y colocados en su posición para recibir esos datos. El problema es que no sé cómo hacer la copia directa de celda de Excel al shape con su nombre. Ejemplo: pasar celda A1 del Excel a la slide 2 del powerpoint, pero al shape que se llama “Alicante”. Hasta ahora tengo que recorrer la lista de shapes de esa slide y buscar el nombre por cada dato y eso complica el rendimiento, que pasa de 52 accesos directos a 52x52 con el proceso. ¿Alguien sabe como pasar una celda de Excel a un shape de una slide del que y…

Hola, Lo primero, desde aquí, agradecer y pedir perdón a Gerson Pineda por su atención y mi falta de consideración. Tiene su explicación. De nuevo, perdón. La pregunta es: De una tabla general debo hacer subtablas (por decirlo de alguna manera) Tengo que eliminar en bloque registros concretos. Lo hago utilizando los filtros pero es muy tedioso. He intentado crear una macro utilizando la grabadora de macros. Aquí me ha dado el primer error, ¿alguna solución? Si tiene arreglo, espero que sí, ¿puedo copiar ese código en otro módulo y cambiarle los criterios del filtro para crear otra macro distinta sin tener que volver a usar la grabadora? Un saludo, codigo filtrar y e…

Buenas tardes amigos, los felicito x tan excelente foro. Necesito con caracter de urgencia la ayuda de ustedes, requiero una macro que se ejecute de acuerdo a algunas condiciones, en un rango de celdas si agrego en una celda la letra P se ejecute la macro 1, si escribo una letra R en cualquier celda del rango, se ejecute la macro 2, y si escribo una I, se ejecute la macro 3. Muchas gracias de ante mano.

Primeramente reciban el saludo cordial amigos del FORO AYUDA EXCEL, tengo macros creados exclusivos para mi trabajo, pero los quiero ejecutar desde la barra de herramientas " COMPLEMENTOS" mediante lista desplegable, esto para dar mayor dinamismo al pequeño programa que cree, amigos necesito ayuda para poder concluir mi trabajo......agradecere la ayuda, y que Dios les bendigue a todos Uds. Adjunto pantallazo

Saludos Necesito una macro que autorellene las formulas de cada celda, desde B5:K201 Esto lo puedo hacer manualmente seleccionando desde B5:k5 y arrastrarlo la fila hasta 201, sucede que necesito hacer esto para unos 100 cuadros como estos que ven mostrare en el adjunto en realidad esto lo hice manualmente seleccionando desde B5:APH5, pero perdi algunos formatos de las lineas dibujadas en el proceso... Intente grabar una macro y obtube este resultado: Sub Macro1() ' ' Macro1 Macro ' ' Acceso directo: CTRL+a ' Range("AOY6:APH6").Select Selection.AutoFill Destination:=Range("AOY6:APH201"), Type:=xlFillDefault Range("AOY6:APH201").Select End Sub Sucede…

hola quiero hacer una macro, en la cual pueda aplicar una formula CONCATENAR varios registros. a b c 1--- pedro martinez rodriguez =concatenar (a1;b1;c1) Como lo puedo hacerlo en una macro ya que son muchos registros. Gracias.

Buenas tardes. He logrado adaptar un filtro horizontal de columnas a mis necesidades a traves de una tabla dinamica. Con los campos texto no hay problema. El problema viene cuando lo que queremos filtrar son fechas. Por lo que veo .PivotItems adopta la fecha en formato ingles. en las columnas ha filtrar lo he solucionado conviertiendolas a texto: dim str as string:str = c.value: set pi= Set pi = .PivotItems(str) el problema es con el origen de la tabladinamica donde para que funcione tengo que añadir un ' a cada fecha y de esta manera convertirlas en texto He probado de todo.............incluso cambiar la tabla dias a un formato de fechas no …

Buenas tengo un archivo que guarda la hoja en pdf y la envia por email, funciona perfectamente en office 2010 Sub envio_mail() 'envio correo pdf Application.ScreenUpdating = True ActiveSheet.Unprotect Password:="" Dim npres, cliente, Email, rutapdf, LIBRO, ArchivoPdf As String Dim ProgCorreo, CorreoSaliente As Object With Application .ScreenUpdating = False .EnableEvents = False .DisplayAlerts = False End With Set npres = Range("J5") Set cliente = Range("g10") Set Email = Range("g15") rutapdf = "C:\SkyDrive\Documentos\presupuestos\" ArchivoPdf = Range("F7") Set ProgCorreo = CreateObject("Outlook.Application") Set CorreoSaliente = ProgCorreo…

Hola buenas tardes para todos, resulta que Tengo un excel el cual esta conformado: en la primera hoja una lista, y n cantidad de hojas donde: n= personas que deben cumplir con ciertos criterios para pasar primera hoja= lista donde deben ir las personas que no cumplieron con ciertos criterios como mencione anteriormente en cada hoja se pone el nombre y cédula del individuo y se desglosa en los criterios que deben cumplir para pasar, por ejemplo: Credencial de la SVSP, cranet UT, etc... Cuando la persona no cumple con el requisito su calificación sera cero, y esta se debe reportar en la lista (situada en la primera hoja) con su nombre y cédula... Mi objetivo es qu…

hola amigos de excel estoy realizando una pequeña macro para realizar la receta de l lugar donde trabajo, pero no he podido realizar una consulta múltiple de tablas para actualizar los saldos de los producto en la receta de acuerdo al mes y al año espero me puedan ayuda saludos. 1. Es validar las preparaciones que se van actualizar a. En la base de datos de Access hay una tabla que se llama “BDPREPARACIONES” b. se valida en las dos últimas columnas estén chechkeadas que son “RESETA” Y “RESETAESTANDAR”, si estas dos columnas están chekeadas se prosigue a la actualización. 2. Luego consulto la receta que esta asociada a la preparación de la siguiente manera: En l…

Muchas gracias a todos por su tiempo y su ayuda, tengo el siguiente codigo para abrir un archivo de RTF (word) e imprimirlo. Sub Abre_word_imprime_cierra() With CreateObject("word.application") .Visible = False With .Documents.Open("C:\Users\erick\Desktop\archivo.rtf", , , , "password") .PrintOut .Close False End With .Quit End With End Sub Quiero ver si me pueden ayudar con 2 cosas 1 Que imprima 4 paginas en una sola pagina. 2 Que imprima en automático todos los archivos *.rtf de la ruta C:\Users\erick\Desktop\imprimir\ Nota: Los archivo no estan protegidos Muchas gracias por su ayuda!!!

Hola! Necesito hacer una columna donde cada celda sea un combobox, y que aparezca la opción de autocompletar. Encontré algo similar en este post: Sin embargo, la macro que comentan no me está funcionando. Me aparece el error 1004: "No se puede activar la aplicación de origen de este objeto." Alguien podría ayudarme? Gracias!

Buenas tardes, Creo que el título de mi tema es un poco confuso, pero la consulta es la siguiente, tengo un userform en Excel que me envía la información a una tabla en Access, hasta ahí funciona todo de maravilla, pero que pasaría si por ejemplo en la columna [Cantidad] de Access, en la fila 15, quiero sumarle la cantidad que ya está ahí mas la cantidad que digité en el userform? por ejemplo, en Access tengo una columna [Cantidad] con los siguientes valores ID Cantidad 1 5 2 12 3 15 entonces desde un textbox en un userform en excel, si yo digito 7 y quiero que esa data se sume a la celda con ID 2, el resultado final obtenido…

Hola estimados amigos del foro, nuevamente con un problema de mi aplicación. Estoy tratando de hacer que un formulario busque datos ingresados en la pagina CONTACTOS y una vez encontrado que se cargen los datos en los Textbox del formulario para poder editar y volverlos a guardar en las mismas celdas de la misma fila. He tratado de hacerlo pero los datos me los carga en la ultima fila y no en la misma fila. Tendría dos recursos uno es el que al hacer en la pestaña del combobox selecciono la persona y carga, este si funciona. Pero el botón buscar no me funciona del mismo modo, y este seria el segundo recurso que quiero tener. Subo el archivo para que lo puedan revisar …

Buenos dias, Tengo un modulo en VBA que me coge una tabla y me la exporta a txt por Tabulaciones. Funciona perfectamente siempre que la tabla empiexe en la celda "A1". El problema es que cuando quier por ejemplo que la tabla empieze a partir de "C10" y lo indico en la fila que cuenta filas y columnas no funciona. El codigo que uso es el siguiente: Sub ASM() Dim NombreArchivo, RutaArchivo As String Dim obj As FileSystemObject Dim tx As Scripting.TextStream Dim Ht As Worksheet Dim i, j, nFilas, nColumnas As Integer NombreArchivo = "pedidos" RutaArchivo = "C:\IMPORTA_PEDIDOS\IMPORTA_ASM" &amp…

Buenas, estoy intentando crear con una macro a partir de un excel un txt con ancho de campos específico. Necesitaría que las anchuras de las columnas fuera: Columna C:10 Columna C:50 Columna C:5 Columna C:10 Columna C:150 Columna C:150 Se que si doy formato especial al campo y lo pongo del tipo 000000000 te lo coge, pero la gente que lo usará es un poco manazas y preferiría que fuera por programa por si tocan formatos. Muchísimas gracias. Adjunto ejemplo. Cualquier tema me comentais. Muchas gracias

Hola, tengo un Useform VBA, que contiene: un ComboBox, cuatro TextBox, y dos CommandButton con una variable que seleccionando de una lista con el ComboBox me almacena los datos en los 4 TextBox los CommandButton me sirven a través de una macro para filtrar la lista que tengo en la hoja de la cual coge los datos el ComboBox. Quisiera saber si hay un código para que el Combobox me extrajera esos datos filtrados al pulsar el CommandButton en vez de toda la lista como me está ocurriendo. Pd. tengo un archivo ejemplo pero es .xlsm y no sé si sería correcto enviarlo. Gracias.