Buen día solicito de su apoyo nuevamente, estoy en busca de un macro que me pueda buscar un numero dentro de una tabla con numero inicial y final, y que me arroje la fecha de este rango, les dejo el ejemplo De la Hoja Principal, que busque el primero valor en la tabla Fecha, si el valor coincide con el Inicio y Final de una fila, ponga la fecha de este, subraye el ejemplo Hoja Princial: numero FECHA 405.64 19/02/2018 Inicial final FECHA 60.00 215.00 15/02/2018 215.00 385.00 16/02/2018 …

Buenas noches amigos Excelianos como están? espero muy bien. Necesito de su experiencia estoy trabajando para un proyecto de mi univesidad y la verdad he encontrado un proyecto casi a lo que necesito en este foro pero está incompleto el código del botón modificar tiene o comete algunos errores al ejecutarlo. Resulta que ingreso datos por un formulario y se grabará en un hoja de excel que me sirbe como Base de datos, alguien suguiere que se lo haga en Acces claro eso es mas para jugar con datos pero no todos pueden utilizarlo como yo. Es mas no quiero ingresar millones de datos por eso quiero acoplarme a excel y con un poco de ayuda de VBA se que puede funcionar. Bueno en …

Buenas tardes En un determinado rango tengo unas celdas con un montón de fórmulas y condicionales y de ellas algún resultado me da error ( #¡DIV/0! ). Para evitar añadir a la ya complicada fórmula la función SI.ERROR , necesitaría un código desde VBA que me diese resultado cero al encontrar error. En el fichero adjunto sería el rango C8:G8 . Gracias de antemano por la gestión y el tiempo y un saludo Rafael ELIMINAR ERROR EN RANGO DETERMINADO.rar

Muy buen día, tarde, noche. Estoy intentando realizar un proceso de selección de archivo, para copiar un determinado rango, y me lo pegue en el archivo en el que se trabaja. Para ello he desarrollado este código: Dim Fso As Office.FileDialog Dim LibroDestino As Workbook Dim LibroOrigen As Workbook Dim Ruta As String Dim HojaDestino As Excel.Worksheet Dim HojaOrigen As Excel.Worksheet Dim RangoDestino As Range Dim RangoOrigen As Range Dim Titulo As String Dim Balance As String Dim UFila As Long Dim FilaU As Long Dim Fila As Long Dim Final As Long Titulo = "Administrador de proyectos AAQUINO" Balance = ActiveSheet.Name Application.ScreenUpdating = False Applicat…

Hola amigos, alguién tendrá un videotutorial o tutorial de como usar EXCEL VBA y MySQL para realizar insertar, guardar, borrar, modificar y actualizar desde formularios en vba o formularios en hojas de excel? he buscado ya por mucho en la web, y solo existe poca información y no me da claridad en el proceso de aprendizaje, si uds me pudieran brindar algún proyecto de ejemplo, o enlazarme o compartime un videotutorial, sería bueno para iniciar mi proyecto. Quedo abierto a sus comentarios y sugerencias

Buenas, necesito ayuda. Trabajo en un laboratorio y necesito generar informes y listados de datos. Los datos los copiamos directamente en un archivo de Excel con varias hojas. Lo que quisiera es con una macro en un botón copiar los datos en una hoja final de resumen para poder imprimirlos y enviarlos (ya lo hago con otros informes, pero sólo son de dos hojas una de entrada de datos y otra de informe). Os adjunto dos archivos, el “PLANTILLAS AGUAS ENVIO POR EMAIL” es el que quiero hacer y el “AGUAS RESIDUALES DIARIAS PTO 12-2-4” es el con el que estoy trabajando (este es una copia que tengo guardada por seguridad) cuidado al utilizarlo dado que la macro esta hecha para que…

Hola amigos. Estoy utilizando para pasar de Textbox a celda la forma format(textbox.value,"MM/DD/YYYY") para que meponga en las celdas día/mes/año y no me ponga al revés la fecha como con "DD/MM/YYYY". De momento no me da errores. ¿Está bien, se me puede presentar algún error? Gracias por la atención.

Buenas tardes, me gustaría saber como sería el código para desbloquear un rango de celdas dentro de una hoja protegida. He visto que ya ha habido algunas consultas sobre el tema pero al estar archivados no me deja revisarlos. Gracias!

Buenos días, el problema del dia es que estoy modificando unos menus contextuales y me gustaría tener el listado faceId para poder modificar los iconos. Un saludo, máquinas

Hola, gracias por siquiera leerlo. A ver si consigo seguir, que me estoy volviendo loco. Aunque parece una simple fórmula, es algo más complicado, creo. version 2013 España A grandes rasgos (especifico en el archivo), necesito separar el coste de un trabajador por centro de trabajo dependiendo de las ventas del centro, sabiendo que hay trabajadores que trabajan en varios centros y que quede de tal forma (separado por columnas) que me permita trabajar mas tarde en tabla dinamica con toda la info. y sabiendo también que el ejemplo es de 6 trabajadores pero esta muy muy simplificado y necesito automatizar el máximo posible del calculo Tengo los datos: tr…

hola a todos. bueno mi consulta es la siguiente tengo 24 libros de Excel cada uno pertenece a cada quincena de mes es decir 1ra quincena de enero, 2da quincena de enero y así sucesivamente por mes, quisiera sumar celdas en especifico de cada libro en otro libro que se llama totales. cada libro tiene el mismo formato. en el libro totales, quiero sumar la celda D18, F18, H18, J18, L18, N18 de todos los libros correspondientes a cada quincena de mes, sin que se habrán estos libros, todos los libros están en una carpeta que se llama total, la ruta es la siguiente: C:\Users\sherrera\DOCS\REPORTES DE BITACORA\2016\TOTAL otra cosa, que cada vez que agregue un libro en…

Buenas noches, genios de excel, aquí solicitando su ayuda, ustedes saben que cada dia se le va presentando a uno inconveniente a lo que se refiere en excel. Bueno lo que me gustaria que me apoyen, si ustedes quisieran, tengo varias hojas en un libro de excel con información, que me gustaria que toda esas hojas esten en una sola hoja, y que las columnas A y B que estan combinadas que se descombinen y que los numero que me lo ponga solo en la columna B, asi como esta en el ejemplo que los separe por color y pagina solo para que ustedes vieran como tiene que quedar. Use esta macro pero no funciona, Sub ConsolidarHojas() For Each ws In ActiveWorkbook.Worksheets ws.Se…

hola a toodos : mi duda es la siguiente, tengo este codigo en el cual me guarda un archivo y me lo reemplaza pero al momento de reemplazarlo me genera otro archivo excel .... '4. Guardamos el libro sFileXLS = ThisWorkbook.Path & "\" & NOMBRE_DOCUMENTO & ".xlsx" On Error GoTo sincopia wbNuevoLibro.SaveAs sFileXLS Exit Sub sincopia: MsgBox "NO se ha generado la copia" '5. Cerramos el libro wbNuevoLibro.Close End Sub [/CODE] no se donde estara el error :/, ojala alguien me pueda ayudar

Buenas noches amigos, tengo una pregunta, ¿cuál de los dos métodos es más eficiente y porqué?, este, utilizando Target.Offset: If Not Intersect(Target, Range("K4")) Is Nothing Then Target.Offset(3, -2) = "" Target.Offset(3, -7) = "" Target.Offset(3, -7).Select End If [/CODE] o este, utilizando Range: [CODE]If Not Intersect(Target, Range("K4")) Is Nothing Then Range("I7") = "" Range("D7") = "" Range("D7").Select End If [/CODE] Saludos.

Buenas tardes! Estoy trabajando en una macro que trabaja en base a una userform, el problema es que al cerrar el formulario el excel se bloquea (no se desplaza correctamente por las celdas y no deja cerrar el excel) todo esto hasta que cambio de hoja seleccionando abajo manualmente. todas las pruebas que he hecho me han llevado al problema, que esta en el siguiente codigo y al sacar la seleccion de la hoja2 (marcado en rojo) funciona correctamente, pero no puedo llenar los combobox. Private Sub UserForm_Initialize() Application.Visible = False Hoja2.Visible = xlSheetVisible Columns("ag:ag").Select Selection.EntireColumn.Hidden = False Sheets("Operaciones").Sele…

Hola Buenas Noches. Ante todo un cordial saludo a los foristas de ayudaexcel. En un libro con macros que estoy desarrollando, me he visto en la necesidad de importar archivos con texto plano y desplegarlo en una hoja de excel bajo el siguiente criterio: - debe estar formateado en codificación UTF-8 - el contenido se irá guardando en filas sucesivas. - se deberá conocer el número de filas que se generarán una vez vaciado el contenido del txt en la hoja. de lo señalado llevo bastante adelantado, pero mi problema es que al usar uno que otro método, entonces se dejan de cumplir uno de los criterios señalados. utilizando por ejemplo, la impor…

Buenas tardes, Consulte varios temas y el que encontré mas cercano a mi situación fue el de la siguiente macro: Sub Fusionar() Application.ScreenUpdating = False Application.EnableEvents = False Sheets("CONSOLIDADO").Cells.ClearContents fila = 1 For Each Hoja In Worksheets If Hoja.Name <> "Consolidado" Then Uf = Hoja.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Hoja.Range("A6:F" & Uf).Copy Sheets("CONSOLIDADO").Range("A" & fila & ":F" & fila + Uf - 1) fila = fila + Uf End If Next Application.EnableEvents = True Exit Sub End Sub Pero me tira un error 91, variable u obj…

SOLUCIONADO Raíz cúbica de un número negativo Al operar de esta manera (-9)^(1/3) en excel se devuelve el resultado de forma correcta, pero en VBA se produce un error. Sub raiz_negativo() Debug.Print (-9) ^ (1 / 3) End Sub[/CODE] Conoceís el motivo y algún forma de evitarlo, sólo se me ocurre: [CODE] Resultado = Abs(Numero) ^ (1 / 3) If Numero < 0 Then Resultado = -1 * Resultado [/CODE] Un saludo

Buenos días; Me estoy liando un poco con las consultas por SQL en Access desde Excel, por favor, me podéis asesorar ( esto no lo había tocado nunca ). Hace un par de semanas empecé a tocar las consultas por SQL, vi un par de videos, hice algún ejercicio, etc…pero no me ha quedado muy claro ya que en cada sitio veo una cosa. Las primeras consultas que hice por SQL las hice con “Execute”, la verdad que me funcionaba bien hasta que he probado con un Access que tengo en red con muchas líneas y ……. tarda muchísimo en obtener los datos, investigando por internet, parece ser que la mayoría de la gente usa “Recordset”. Qué diferencia hay??, Yo en princip…

Me encuentro en una ventana de Formulario y no logro dar con la instrucción que me permita eliminar un control del Formulario, por medio de un procedimiento dentro de un botón (por ejemplo). Pretendo eliminar controles específicos, creados en tiempo de ejecución. El problema por los momentos comienza en que no se con que instrucción eliminarlos aunque estos hayan sido creados en el modo diseño del UserForm. Agradezco ayudas probadas.

Buenas tardes, Alguien me puede regalar por favor un código Vba que me pueda ayudar a copiar graficos de excell a una presentación power point, Agradezco alguien me ayude a plantear como escribir esta macro. Gracias por su ayuda.-

Hola a todos y muchas gracias de antemano. mi problema es el siguiente: Quiero fitlrar una tabla dinamica por fechas en funcion del valor que contienen dos celdas: Adjunto un fichero como ejemplo El campo a filtrar se llama Dia2 y las celdas b1 y b2. Esto es lo que he intentado: Sub filtrarfecha() Sheets("td").Select ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Dia2").ClearAllFilters ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh a = Range("b2").Value b = Range("b3").Value ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Dia2").PivotFilters.Add _ Type:=xlDateBetween, Value1:="a", Value2:="b" End Sub Buscando por google he en…

Amigos, quisiera saber como hago para que se ejecute una macro cuando el resultado de una celda sea vsalor falso. Es decir, si la celda es falso se ejecue macro y si es verdadero, no haga nada. He intentado pero la macro se ejecuta sin parar una y otra vez. Alguien me puede ayudar

Buenas tardes, tengo una procedimiento que estoy modificando para contar los registros de una tabla access y verlos en un textbox de un formulario excel vba, pero el resultado siempre me sale -1 y en la tabla hay 4 registros. Sub Consulta_Registros() Dim conexion As ADODB.Connection Dim recordset As ADODB.recordset Dim Consulta As String Dim MiBase As String Set conexion = New ADODB.Connection MiBase = "\DBClientes.accdb" conexion.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & Application.ThisWorkbook.Path & Application.PathSeparator & MiBase Consulta = "SELECT * FR…

Hola a todos; Estoy intentando vaciar el contenido del portapapeles y no logro hacerlo. He usado esta instrucción y no me va. Desconozco otro método alternativo. Probé con la grabadora pero lo único que puedo conseguir es ocultar la ventana del portapapeles. Un saludo a todos. Libro1.xlsm