Hola!!, Aquí voy con mi duda que por más vueltas que le doy no doy con ello. En esta macro estoy intentando escribir en la fil a 29 que filtros se han "SELECCIONADO" en el /los SEGMENTOS de la Tabla dinámica. Si filtro por [Tamaño de Empresa] = "Pequeña", implica que sólo me muestra un [Concepto], "Concepto AAA". Hasta ahí bien. En este caso los filtros que me muestra como "SELECCIONADOS" son: Para el segmento [Tamaño de empresa]: "Pequeña" Para el segmento [Concepto]: Todos los items de este segmento, cuando en realidad no se ha seleccionado ningún item en este segmento , además me muestra los 2 items cuando tendría que selecc…

Buenos dias. Le anexo mi codigo, y espero y me puedan ayudar a minimizarlo ya que cuenta con muchas lineas, y es lento. Function IsFileOpen(filename As String) Dim filenum As Integer, errnum As Integer On Error Resume Next filenum = FreeFile() Open filename For Input Lock Read As #filenum Close filenum errnum = Err On Error GoTo 0 Select Case errnum Case 0 IsFileOpen = False Case 70 IsFileOpen = True Case Else Error errnum End Select End Function Sub copiar_a_Datos() Application.ScreenUpdating = False Dim Celda As Range Dim palabra As String Dim Libro As String Dim wb As Object Libro = "I:\Respaldo 28-09-2012\…

Expertos tengas un grandioso día, tengo dos problemas con mi aplicación cuando yo busco los datos en mi formulario de combobox me muestran lo datos en los textbox donde tienes que mostrarse, pero el detalle es que en dos textbox salen muchos decimales; quiere decir en campo saldo de crédito y la otra donde muestra el valor de crédito, e intentado de muchas maneras solucionarlo pero no doy con la solución, agradezco sus ayudas. El otros tema es cuando todo la transacción en el formulario debe registrar y también debe imprimir e insertado el código y no imprime solo registra cosa que debe hacer ambas cosas a la vez (los datos se registran en la hoja recaudo y para impresión…

Estimados necesito ayuda con esto, necesito que en dos columnas continuas me evalúe el criterio de duplicidad, copie esta macro y solo me funciona en una columna y no en las dos Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([h103:g10], Target) Is Nothing Then ActiveCell.Select End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 8 Then Exit Sub If Application.CountIf([h103:g10], Target) > 1 Then MsgBox " ¡¡¡ Lugar ya se encuentra asignado !!!" Application.Undo End If End Sub atento a su respuesta Marcos

Hola buena tardes, necesitaría ayuda si es posible. Voy a intentar explicar lo que necesito. Yo trabajo con tres libros diferentes (1, 2, 3), en el numero uno y en la hoja1 cargo datos. En el numero 2, que es creado por intermedio de una macro que esta en libro1. Y en el libro 3 donde guardo al finalizar el trabajo los datos totales. Yo necesito que al cargar nuevo trabajo en libro 1 (hoja listado) se copien automáticamente en el libro 3 (hoja horas) manteniendo el formato del libro 3 Y en la hoja material del libro 3 me cree un lugar para que yo les pueda cargar los materiales. En definitiva, yo actualmente copio los datos del archivo 1 en el archivo 3 manualmente …

Estimados. Adjunto libro que realiza busquedas de fotos dentro de una carpeta, el unico requisito para que funcione es que el libro se encuentre dentro de la carpeta que contiene las fotos, el nombre de la foto se debe colocar en la columna B, para que muestre la foto te debes desplazar por la columna C. Hasta aqui todo va bien, pero tengo varias carpetas con fotos, entonces necesito que la macro busque la foto segun la direccion de cada carpeta, seria posible que en la columna "G" coloque la direccion de la carpeta y realice la busqueda de las fotos, espero que algun experto me apoye a encontrar alguna solucion. Saludos cordiales. EJEMPLO.zip

Buenas tardes a todos y Gracias de antemano por la ayuda: tengo un libro con 30 hojas de formatos iguales y creé una macro que actualmente me hace un resumen de la hoja que selecciono y la pasa a la hoja "Proyectado" pero si escojo otra hoja y utilizo el mismo macro me vuelve a hacer el resumen pero me elimina el anterior y lo que necesito es modificar mi macro para hacer los 30 resúmenes consolidados uno bajo otro continuo sin que me borre el anterior...le dejo un ejemplo que habla por sí solo...Gracias :welcoming: Carol:watermelon: RESUMEN_CONTINUO.rar

Hola. Hay forma de que exporte una tabla que tengo un archivo a otro?? Los libros tienen diferente nombre, Lo que quiero es que Me pida abrir el libro lo seleccione y que de ese libro copie la tabla y extraiga los datos al libro donde ejecuto la macro.

Saludos de nuevo y buenas tardes. Desearia saber como puedo renombar un TextBox dentro de un formulario y mas concretamente en el evento Initialize del FORM. He aplicado esta sentencia pero obtengo un error, y no se como resolverlo. Gracias. ThisWorkbook.VBProject.VBComponents("FRM_Benef_Riesgo").Designer.Controls("TXT_Precio").Name = "TXT_Nuevo_Precio" Muchas gracias, Josep Miquel.

Hola, Soy nuevo en el foro. Agradecería vuestra experta ayuda Mi problema es que tengo una macro cuya función es abrir un excel copiar información de este y pegarla en otro libro, y finalmente adjuntar este último a un correo. Esto funcionaba correctamente antes de que me cambiasen al Office 2010 (antes tenía el 2003). Ahora el problema que me sale es en la instrucción Set e1 = o1.CreateItem(olMailItem): error 13 en tiempo de ejecución. No coinciden los tipos. Sub CORREO2() Dim RUTA As String Dim rutaavanzamadre As String Dim o1 As Outlook.Application Dim e1 As Outlook.MailItem Dim WB As Workbook Dim tomador As Workbook Dim nombredeflota As String Dim fechadecierr…

Hola, Necesito hacer un filtro por medio de casillas de verificación, para que el usuario pueda elegir uno o más criterios, estuve buscando en internet y cree un código basada en algunos que vi pero no me funciona. Se los pego a ver si alguien me puede ayudar. (Tengo 4 columnas con 16 registros, la primera columna es el criterio q quiero filtrar) Sub Search_Click() Application.ScreenUpdating = False If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False M = Array("", "Hub", "Flange", "Segment") For x = 1 To 3 If Controls("Hub,Flange,Segment" & x).Value = False Then M(x) = "" Next ActiveSheet.Range("$A$2:$e$20").AutoFilter , _ F…

Buenos días a los integrantes de este foro, en esta ocasión requiero de su apoyo con una macro el cual me permita importar datos de un archivo (BASE DE DATOS a otro archivo IMPORTA, sin que el archivo origen se abra, desde la fila A2, he encontrado varios ejemplos pero todos indican de un ruta especifica, para mi caso la ruta del archivo es variable, ya que los archivos están siempre ubicados en unidades distintas. Desde ya agradezco su apoyo y colaboración. BASE DE DATOS.xlsx IMPORTA.xlsx

Buenas tardes estimados, tengo la siguiente macro donde quiero que al seleccionar el checkbox1 me ejecute el primer procedimiento de lo contario siga al siguiente procedimiento, pero me esta tomando el valor en la casilla de adicion del segundo procedimiento. Agradezco me puedan orientar gracias. Sub Dedicion() dim sh1, jh2, jh3, jh4, jh5, jh6 as Worksheet If sh1.CheckBox1.Value = True Then Set jh5 = Workbooks.Open("\\10.7.10.1\calidad\RegCalidad 2024\Molienda de Cemento y Empaque\Base datos Cementos producido 2024.xlsx", ReadOnly:=True) Set jh6 = Sheets("MEZCLA ADICION") jh6.Activate jh6.Cells(4, "A").Select JFila = ActiveCell.Row …

Con parto un formulario, muy bueno con varios campos a diligenciar, pero mi pregunta es alguien sabe como optimizar el cargue de la macro y que al momento de dar clic en almacenar no parpade tanto, que eso se ve muy feo???? Muchachos adjunto formulario y sentencia en archivo separado.... me cuentan, mil gracias sentencia macro formulario.xls FORMULARIO.xls

Hola a todos, necesito de su valiosa ayuda, tengo una macro que corre dentro de Private Sub Worksheet_SelectionChange(ByVal Target As Range) la cual es la siguiente: If Target.Address = "$AQ$3" Then Call ABRE If Target.Address = "$AQ$4" Then Call ABRE If Target.Address = "$AQ$5" Then Call ABRE If Target.Address = "$AQ$6" Then Call ABRE If Target.Address = "$AQ$7" Then Call ABRE .... Al final el rango arriba descrito termina filtrado y lo que necesito es que analice si la fila AQ3 esta visible y si es asi ejecute la macro abre() y si no tiene la propiedad visible no ejecute la macro y en ambos casos haga el recorrido automatico osea bajarse a la siguiente fila. Gra…

Hola. No se si logre explicarme bien pero el asunto es el siguiente: resulta que tengo una userform donde tengo varios combobox enlazados el problema es que cuando seleciono un dato en el combobox1 me lanza otras opciones combobox2 pero con datos duplicados. mi pregunta es como logro hacer que las opciones del combobox no sean duplicados. Adjunto libro. esto me pasas con los combobox2 , combobox4 y combobox5 Ayuda porfavor no domino mucho macros. new 1.rar

He creado una macro que envía mails desde mi cuenta de gmail. Los mails se envían bien. El problema es que no incluye la firma configurada en gmail cuando lo envío desde la macro. ¿Cómo puedo hacer para que incluya la firma en el mensaje? Sub EnviarMail() Dim MailExitoso As Boolean 'llamo a la funcion: MailExitoso = EnviarMails_CDO() 'si me devuelve un resultado Verdadero, todo salió bien: If MailExitoso = True Then MsgBox "El mail fué enviado satisfactoriamente", vbInformation, "Informe" End If End Sub Function EnviarMails_CDO() As Boolean ' Creo la variable de objeto CDO Dim Email As CDO.Message Dim Autentificion As Bo…

Hola colegas, Buenos días, espero se encuentren bien de salud. Hoy desde mi móvil. Necesito con VBA extraer el nombre o cadena de texto que más se repite en una columna. No tengo archivo, solo es una consulta para un futuro proyecto. Gracias mil a todos. Saludos. Pino

Buenas a todos. Estoy intentando salir del agujero y programar con un poco mas dignidad, pero no acabo de entender un tema. A ver si me podéis ayudar, gracias de antemano!!! Después de mirar varios tutoriales, entiendo el concepto de clase, objeto, instancia... (o eso creo), pero no me cuadra una cosa: Objeto Libro, Workbook Coleccion de Hojas, que tambien una coleccion es un objeto, Workbooks Objeto Hoja , Worksheet Coleccion de Hojas, que tambien una coleccion es un objeto, Worksheets Hasta aquí todo bien, programo por ejemplo (y no da error): Dim mihoja As Worksheet Set mihoja = Application.Workbooks("Libro1").Worksheets(1) MsgBox mi…

Hola a todos, tengo el siguiente problema: Tengo un archivo donde en mi pestaña Componentes hay varios numeros de parte, algunos tienen mas de un comentario (tomando las notas de la pestaña Informacion/Columna B ). Lo que necesito hacer es consolidar todos los comentarios de los componentes, pero no tengo idea de como se puede hacer o si existe alguna forma. De manera manual estoy haciendo una pivote y voy copiando los comentarios consolidados de cada numero de parte a una hoja de texto y de ahi copiarlo a la celda donde la necesito, para que quede toda la informacion en la misma celda, pero en diferente renglon. Si alguien tiene alguna idea de como se…

Hola a todos,Llevo un buen rato con un pequeño error, y no veo la forma de subsanarlo.Tengo una tabla donde en la columna A hay distintos valores ( pero se pueden repetir ), lo que intento hacer es aplicar formatos a las celdas por cada grupo donde las celdas sean distintas.Son 2 colores , solo me interesa que visualmente se vean los que son iguales.Ejemplo:Columna A.01.01 Aplico Color 101.02 Aplico Color 201.03 Aplico Color 101.03 Aplico Color 101.03 Aplico Color 1Este es el código que estoy usando, pero cuando llega a los repetidos no consigo controlar que no cambie de color. Sub FormatosDescompuestos() Dim Wb As Workbook Dim ws As Worksheet Dim ColorFilaP, Color…

Llevo dando vueltas sobre esto un tiempo pero no doy con la tecla/codigo despúes de buscarlo. Lo que quiero conseguir es que tras hacer una búsqueda, en un listbox me liste los datos, en mi caso son todos de una fila de una hoja de Excel, sin embargo quiero que cada 5 columnas (partiendo de una determinada) se correspondan a una fila (con numeración por orden) en el listbox siempre que tengan datos estas celdas. En cuanto al encabezado de las columnas del listbox sería siempre el mismo. Adjunto archivo Sería la hoja "cambiotar" despúes de localizar un paciente. En concreto las columnas desde la A a la H estarían vinculadas a la hoja "basal". Un saludo listbox filas…

Hola a todos, he intentado hacer una cosa pero no se como realizarlo. Mi idea es crear un calendrio de trabajo, por ejemplo el turno A siempre trabaja 5M (mañanas) y 2L(libres) empezando el dia uno de Enero de el turno...........(el que sea) segun sea..... Tengo un horario que te rellena solo los dias del año pero no se crear la secuencia repetiva durante todo el año. Seria crear la hoja excel con diferentes posibilidades de rotaciones, ¿Esto es posible? ¿Alguien sabe como hacerlo? Os dejo mi archivo y ya vamos comentandolo. Mirar la hoja 3... creo que con esta explicación se entiende bien. Perdón, me ha roto el archivo, cu…

Buenas tardes. Lo primero de todo es daros las gracias por aceptarme en el foro y pediros disculpas si ya está la respuesta en algún sitio. Mi problema es el siguiente. En una hoja con muchas fórmulas y datos, diariamente importo valores de texto desde la última fila vacia a partir de la columna F (imaginemos que los nuevos datos van desde la celda F1200 hasta la celda K1500, es decir 300 filas con datos nuevos en las columnas F G H I J K). Para que estos nuevos datos se procesen con formulas, tengo que copiar las formulas que son iguales en todas las filas desde la columna A hasta la E y pegarlas en el nuevo rango que tiene las celdas en blanco , (es decir, copio…

Hola Equipo de "ayudaexcel" tengo una duda algun tiempo encontre este archivo y veo que traduce algunas palabras en distintas idiomas.! Hay alguna manera de de traducir fraces en excel en la hoja o a travez de un listbox pero que no sea desde un webrowser para entrar a google.! gracias.! disculpen si inicio un tema ya pasado. Pero solo encontre el traductor de google. La cual que es lo mismo que entrar al explore Bueno ahí les subo el archivo aver si se presentan nuevas ideas.! ..Gracias de antemano,! calendario.rar