Estimados:Necesito de su ayuda por un problema que tengo en la siguiente macro que estoy desarrollando.Resulta que todos los fines de semana debo emitir un reporte con varios archivos excel que siguen la misma estructura, y como se ven en la "SHEET1", entonces debo tomar todo lo que aparece en y dependiendo lo que aparece en el campo PO NUMBER (Columna , se que se trata de un nueva empresa del cual debo sacar un reporte EJ:"A3RJ-00-K-ES-308" Es una empresa A en comparacion a "A3RJ-00-K-ES-313" que es una empresa B, etc etcEl punto que tengo en mente hacer, es crear un archivo distinto por cada hoja creada con informacion por separado.Por ej: Sheet2 dejarlo en archivo1.xls…

Hola Necesito modificar mi macro de la hoja "Evaluación de Doble Cierre" en la cuales tengo listas despegables dependientes en las 4 celdas a continuacion en la cual: E6: Proveedor E8: Envase E9: Espesor Cuerpo E10: Espesor Tapa Mi macro pone en blaco las celdas E8,E9,E10 cuando escojo un proveedor y puedo poner su envase y espesores de cada uno, todo ok hasta ahí, pero, si ya tengo elegido un proveedor y elijo otro envase los valores de espesor de cuerpo y espesor de tapa no cambian, lo cual me puede causar un error en cualquier momento, por lo cual es necesariamente urgente resolver este problema, se podria modificar mi macro para solucionar este problema. Macr…

Hola Buenas, necesitaria una macro que sustituyera a las formulas que hay en las columnas G (color verde) H (color amarillo) I (color azul) J (color marron) en base a los datos de C (color fuxia) Igualmente la celda E1-H-I-J 303. Subo libro. Salud2. MACRO PROMEDIOS FORO.xls

Muy buen dia, tarde, noche Tengo una gran duda que no logro resolver. Estoy trabajando en un Form, al cual le inserté 1 Multipage, que consta de 3 páginas, el cual tiene unos textbox que deben hacer unas simples sumas y restas matemáticas. La cuestión es que no logro hacer lo siguiente: Fuera del multipage tengo un textbox llamado txtPorPagar En la primer página tengo dos textbox llamados txtMontoCheque y un textbox llamado txtPendienteCheque En la segunda página tengo otros dos textbox llamados txtMontoEfectivo y txtPendiente En la última página tengo otros dos textbox llamados txtMontoTransfer y txtPendienteTransfer La cuestión es que no logro entender en cuál e…

Hola a todos Tengo un archivo A que quiero copiar en un archivo B. En el archivo A, la fila "X" esta en formato de texto, pero necesito que al copiarlo en el archivo B esté en formato número. Ya he intentado con Selection.NumberFormat = "0" pero no me funciona. La única forma que puedo hacerlo es seleccionando los números, click en la esquina superior izquierda y click en Convertir en Número como muestro en la imagen: ¿Hay alguna forma de hacerlo automáticamente con una macro? Adjunto el archivo de ejemplo. Espero vuestro apoyo. Saludos Frank

Buen día compañeros, acabo de entrar a un nuevo trabajo y me pusieron temporalmente a programar en vba ya lo he hecho antes pero no soy un programador como ta por lo que me he topado con algunos problemas. En esta imagen utilice el grabador para general mi tabla dinámica mi problema es que me pone esa referencia especifica, como yo requiero una plantilla en la que los usuarios pegaran datos y ejecutaran la macro necesito que ese rango sea variable, pero ya utilice range y cells y no me funciona. Algún otra idea

Buenas tardes, Use el grabador de macros para que actualice automáticamente una tabla relacionada, me mostró este código: ActiveWorkbook.Connections("Consulta - Grupos").Refresh Lo puse en un módulo para que al hacer click en un botón me ejecute ese módulo, pero me lanza un error: y no me permite actualizar, que podría estar sucediendo? o hay algún otro código que me permita actualizar una tabla relacionada específica? lo mismo para actualizar una tabla dinámica relacionada específica. Muchas gracias

Buen dia. Nuevamente dando lata. Tengo un reporte el cual necesito cortar las celdas que ya cumplieron con un dato capturado(despacho), esta celda se debera de pegar en una hoja diferencte (acumulado) Adjunto ejemplo Gracias

Hola, pretendo que en mi formulario en concepto, al ir tecleando algun articulo de la base de datos, si este no esta o me equivoco al teclear que no me de error y me deje seguir tecleando aunque en el precio1 no me marque el precio de la base de datos ya que no se encuentra en la misma por mas que lo intento no lo consigo, gracias. PRUEBA.xls

Buenas Noches otra vez! Esta vez adjunto un archivo con un boton que dice "margenes para impresion", el cual, al momento de guardarse como otro archivo con nombre generado, tambien jala el boto pero sin la macro, lo que no se, es como hacer para que este boton cumpla su funcion de mantener todos los margenes a 0.5 que es el que uso para imprimir (claro estamos hablando del archivo que se ha guardado), Muchas Gracias por su amable apoyo! Saludos FACTURA MODEL OK 2.zip

Buenas noches, traigo un archivo para que me ayuden, si es posible: 1- En la hoja "Resumen" hay 3 cuadros del lado derecho del Listbox, en el cual al segundo cuadro le quiero agregar la información de la columna 251 hasta la 256 de la hoja "Base de datos" (Tal cual con los mismos requisitos del cuadro de arriba). Esto lo quise hacer agregando el "For...To" dentro de otro. Pero me tira el error de validación. 2-Hay un tercer cuadro mas chico en la hoja "Resumen" en el cual quiero que traiga información de la hoja "Base de datos", mas exactamente de la columna I a la L. Pero con una condición, que si alguien quiere cambiar esa información desde la hoja "Resumen" lo pueda …

Buenos días colegas. Espero se encuentren bien de salud. Buenos días colegas Haplox, nuevamente molestándolo, aunque cualquier miembro de este Foro puede ayudar. Sigo teniendo problemas con la inserción de consecutivos. Usted en anterior consulta me dio una respuesta muy acertada, la cual yo analicé y me di cuenta de los errores que usted detectó, pero ahora, cuando voy a escribir el código para el consecutivo de Cliente (FrmCliente) me imprime el primer registro, pero en el segundo ya no lo señala en el LblCodigo y por consiguiente no lo imprime en la Hoja. He buscado en el código de arriba hacia abajo y no me doy cuenta donde puede estar el error. Otra…

Estimados Amigos, Buenas noches, me encuentro realizando un archivo de nómina(rol de pagos), pero no sé cómo hacer para que de una planilla de datos(base de datos), agarre uno y cada uno de sus datos y los ponga en una plantilla informe resumiendo dichos datos. Hasta que no haya datos en la planilla y pare la instrucción. He intentado con For , Do Loop, pero no me funciona. Tal vez alguien me pueda ayudar, adjunto el archivo donde consta la hoja nómina y la hoja plantilla. De antemano muchas gracias. Saludos. Nomina Para Empresa.rar

Hola, buenos días Tengo una situación que requiero resolver y por más vueltas que le he dado, no llego a cómo solventarla, más o menos sería así: Tengo un listado de cédulas y empresas, con el nombre de al menos un representante, el puesto y uno, dos o ningún número telefónico de cada uno. Ahora, ocupo realizar un ordenamiento similar pero dónde el campo cédula se convierta en clave única (es decir, no se repita) y se copien los valores del segundo, tercero, cuarto etc. registro en un horizontal (así hasta 7 posibles casos, que sería lo más que tengo disponible). ¿Existirá alguna macro que pueda realizar esto? ¿alguna idea? Les quedaré eternamente agradecido cualqui…

Buenas tarde equipo, me gustaria ver si alguien me puede ayudar con este problemas necesito transponer de filas a columnas pero repitiendo los datos dependiendo de cada talla. Nota: este es solo un ejemplo el real tiene como 420 filas por 95 columnas Adjunto ejemplo para que me puedan ayudar. Espero su pronta respuesta salu2 Ejemplo transponer.xls

Hola en este Archivo se Requiere que al estar en la Celda Activa de la Hoja "Resumen", se vea en un Comentario Detalle de la Hoja "Trabajo", con Campo Común entre Ambas. EquipoZ.rar

Todos los excell en una misma carpeta. Unicamente a cambiar una celda de todos los excells de la carpeta. La "BC30" es una celda combinada. Condicional: Si el valor actual de BC30= "hogares" cambiar el valor de la celda por "infiernos" Si el valor actual de BC30= "alquileres" cambiar el valor de la celda por "placeres" Si el valor actual de BC30= "compartir" cambiar el valor de la celda por "genesis" En la celda CB30 solo pueden existir estos valores:" hogares", "alquileres" , "compartir" Y siempre se quieren cambiar por estas correspondencias: Alguien sabe como hacerlo de forma masiva?

buen dia necesito porfavor un macro consecutivo cada 9 celdas hacia abajo observando que la celda seleccionada a la derecha no alla nada o este llena ejemplo.. pero me para en llenar ya la cuarta y mas necesito su colaboracion consecutivo cada 9 celdas.rar

Hola a todos, espero no molestarlos con esto, estoy practicando un poco con los bucles, quiero realizar un cuadrado de números del 1 al 16 que se distribuyan de la siguiente forma: En la 1ra Fila: 1 al 5 En la Columna 5 Fila 2: 6 al En la Fila 5 Columna 4: 10 al 13 En la Columna 1 Fila 4: 14 al 16 Lo he logrado hacer pero con abundate codigo y no quedo como conforme, favor su gran ayuda si se puede optimizarlo un poco y darme un feedback para ir mejorando. De antemano muchas gracias, Dios los bendiga. Ayuda.xlsm

Buenas tardes, tengo una macro que me hace un gráfico, el problema es que unas veces la ejecuto y me sale bien el gráfico y otras, cuando la ejecuto, (creo que depende de la columna en la que me situo) me añade un gráfico extraño con un montón de series que yo no he creado, ¿a qué se puede deber esto? Saludos y gracias. ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlXYScatterSmoothNoMarkers ActiveChart.Parent.RoundedCorners = True ActiveChart.Location Where:=xlLocationAsObject, Name:="Principal" n = Len("Principal") x = Mid(ActiveChart.Name, n + 2, 20) ActiveSheet.Shapes(x).IncrementLeft 200 ActiveSheet.Shapes(x).Inc…

Hola a todos, he estado últimamente trabajando en un nuevo complemento. Es una idea que se me ocurrió viendo videos de este tipo. Aunque tiene un porcentaje mío también cabe destacar que algunas cosas las he adaptado de ideas de otros programadores. -Este complemento es para enviar mails desde excel sin necesidad de abrir el outlook y además se puede configurar los smtp, puerto y ssl. Os dejo enlace al vídeo que he grabado y también os adjunto el archivo. Video mail configurable Seguramente tiene errores los cuales me podéis indicar. No ser muy crueles aun tengo la "L" de novato. Si está muy mal que Sergio quiete el post.…

Buenas, tengo un programa ligeramente complejo bastante rematado, pero me falta un tema. Tengo una función que se encarga de contar las celdas de tal color, desde una fecha hasta otra. Esto funciona bien. El problema es que esta funcion actua sobre 100 hojas, todas iguales, creadas a partir de una como plantilla. El problema es que si por ejemplo, actualizo (ya sea de manera automatica, o a mano) el libro completo estan sobre la hoja1 (teniendola activa), todas las funciones del libro se actualizan teniendo en cuenta las casillas de la hoja activa. Es posible decirle a la macro, usa F2 de TU HOJA? Adjunto el archivo de excel. La funcion problematica se encuentra en e…

Hola, anteriormente me ayudaron con el tema "Copiar datos mediante autofiltros a otra hoja", pero cada vez que ingreso un dato nuevo a mi base de datos se copia toda la base de datos a la hoja2 si son aves, o a la hoja3 si son mamíferos y yo solo quiero que se actualice las hojas dependiendo de si es ave o si es mamífero el dato que ingreso a través del formulario que cree en VBA 6.0 .De antemano gracias y anexo el archivo (lo puse en formato 97-2003, porque no me dejo subir el habilitado para macros y yo trabajo con la versión 2007) EXT.xls

Hola a todos!! Mi problema es que tengo dos tablas de igual dimension en dos hojas diferentes. y quiero juntarlas en una tercera hoja. Me gustaría que la macro fuera a Sub CopiarCeldas() 'Definir objetos a utilizar Dim wsOrigen As Excel.Worksheet, _ wsCont As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngCont As Excel.Range, _ rngDestino As Excel.Range 'Indicar las hojas de origen y destino Set wsOrigen = Worksheets("Origen") Set wsCont = Worksheets("Cont") Set wsDestino = Worksheets("Destino") 'Indicar la celda de origen y destino Const celdaOrigen = "A1" Const celdaDestino = "A1" Const celdaCo…

buenos dias amigos y amigas nuevamente recurro a ustedes con mi macro que gracias a macro antonio pude correrlo a la perfeccion pero ahora nuevamente necesito de su amable ayuda el problema es este en la macro que deje tengo un filtro que me arroja los resultados de los clientes que esten VENCIDOS esto es al darle click en clientes visitados, al aparecer el filtro te arroja en automatico todos los nombres vencidos y este a su vez al darle click en el mismo nombre se despliega otro filtro que te arroja LA PRIMER VISITA Y LA ULTIMA QUE ES LA FIRMA DE CONTRATO asi como las fechas de tales visitas lo que necesito es que saque los dias que se hizo desde la primera visita ha…