Hola a todos. Tratando de terminar mi proyecto me encontré con un lindo problema. Hace unos meses pasé los valores nutricionales de carbohidratos, proteínas y lípidos de una pagina que tiene un vademécum de la mayoría de los alimentos que hay en el mercado argentino. La cuestión es que a medida que fui realizando mi proyecto me di cuenta que no era suficiente con esos datos que tenia y que necesitaba la totalidad de los valores nutricionales de cada alimento. Los alimentos que pase fueron 1550 aproximadamente, lindo trabajito... Investigando un poco me di cuenta que me podría haber ahorrado ese trabajito realizando una macro. Bueno, vayamos al problema real... Lo qu…

Hola a todos, buena noche: No tengo mucha experiencia en Macros y recurro a ustedes para generar una macro que me genere un Layout partiendo de la Hoja "FORMATO DE PRENOMINA", lo que requiero, es que solo las columnas que estan visibles las lea, es decir, si la columna AL tiene datos, lea solamente los que estan llenados y los copie en la Hoja de "Excepciones" en la columna F, despues, que esa misma selección, agarre la columna F de "FORMATO DE PRENOMINA" y vaya a la hoja de "excepciones" y la copie en la columna D, y en la columna C de "Excepciones", me ponga el concepto de la columna que estoy vaciando, es decir "P0017" a esos registros, si la columna AL no tiene datos…

Hola, buenos días a tod@s! Estoy trabajando con un libro de Excel que genero tras un código desde Access mediante VB. En este fichero, una vez abierto, quiero incluir un segmento de código que lea unos valores de texto y los vaya escribiendo, de manera vertical, en una línea. Mi problema es que la primera vez que lo ejecuto funciona y me genera un Excel tal y como lo quiero. Pero (bien cierre el informe Excel que se acabe de generar o lo deje minimizado) a la segunda vez que ejecuto el código ya no funciona y no hace nada, o bien me da el error: <Object variable or with block variable not set> ¿Alguien sabe por qué podría ser? mi segmento de código es el sigui…

Bloque hojasHola que tal? Querría hacer una consulta muy simple, y es que el bloqueo de hojas para trabajar con macros es un poco engorroso. Mi consulta es: ¿Hay alguna manera de bloquear hojas solo a nivel de usuario y que en las macros no tengan que desbloquear y bloquear cada vez que trabajen? Algo como los permisos en Windows, que hay para admin, sistem, user, etc. Supongo que será la pregunta del millón, pero sería un chollo que se pudiera hacer. Gracias y un cordial saludo

Eliminar una carpeta cuyo nombre lo tengo en la celda A1 Gracias anticipadas por la ayuda

Hola: Alguien con Excel 2007 me puede probar el formulario del adjunto. Parece ser que al realizar búsquedas se produce el error que cito en el título de la consulta. Yo tengo Excel 2010 y no consigo reproducir el error. Ver último adjunto de este tema: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/poner-barra-progreso-boton-buscar-30114/ Gracias anticipadas.

parte del codigo y donde se produce el error es el siguiente, mas abajo se produe el error: FechaInicial_2013 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(1, 2).Value FechaFinal_2013 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(2, 2).Value FechaInicial_2014 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(3, 2).Value FechaFinal_2014 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(4, 2).Value Application.ScreenUpdating = False Set pt = ActiveSheet.PivotTables("Tabla din?mica1") Set pf = pt.PivotFields("Fecha") For Each pi In pt.PivotFields("Fecha").PivotItems FechaComparacion = VBA.Format(pi.Value, "dd/mm/yyyy") 'CDate(pi.Value) If FechaComparacion &…

Hola intento buscar un tema que ya estaba en el antiguo foro pero que no veo el ejemplo a ver si alguien me puede ayudar. Es de Never y es leer un archivo pdf leer determinados campos y coger esos campos y pasarlos a excel. Gracias por la ayuda

Buenas, estoy intentando crear un botón que me copie unas celdas determinadas de un libro a otro y después que me vuelva a copiar éstas celdas de una hoja a otra. la primera parte la tengo resuelta pero ahora no se por donde seguir. Así tengo el código de momento: Sub CopiarCeldas() Dim Pesadas As Workbook Dim Destino As Workbook Application.ScreenUpdating = False Set Pesadas = Workbooks.Open("Z:\D.Calidad y Tecnica\2_Gestion de CALIDAD\Patri\TONI\pesadas.xls") Workbooks("pesadas.xls").Worksheets("BCT2DB").Range("B1:H7398").Copy Workbooks("destino.xlsm").Worksheets("BD").Range("A2") Pesadas.Close False End Sub La pregunta en …

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 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

Hola Amigos, un saludo de antemano, espero que estén todos bien y sus familias. tengo cierto inconveniente con una libro y es que quiero que de un listado de productos, si dicha fila del listado no tiene ninguna cantidad solicitada en la parte derecha que la oculte al momento de imprimir, pero si tiene una cantidad pues que si la imprima, por favor gracias, muchas gracias si me pueden ayudar con una macro para esto. "Bueno en caso de que no se pudiera entonces quisiera que se eliminara la fila que cumpla esa condición, y pues así solo quedarían las filas con información." a continuación me permito anexar el archivo y dejo los comentarios en el archivo para…

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 a todos quisieran que me ayuden si es posible crear un macro para salto de celdas determinadas, les explico yo estoy trabajando con 4 columnas A , B , C ,D.. y bueno comienzo a digitar con la celda A1, despues B1, C1 y D1.. y lo que quiero es qe cuando termine de digitar en la celda D1 se pase a la celda A2 y asi sucecivamente llego a la D2 y se pase automaticamente a la A3 y asi.. Espero que me ayuden y me expliquen como aplicar el macro como y donde lo pondria... ya que soy nuevo en estas cosas

Buenos dias me pregunto si me pudiesen ayudar tengo una macro que se conecta a una base de datos de acces 2010 y me conecta bien pero en el momento que le coloco contraseña a la base de datos de acces 2010 no me reconoce la contraseña y se pierde la conexion me gustaria seber como resolverlo esta es l aconexion que utilizo: .ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0; " & "data source=" & ThisWorkbook.path & "\BDFERRYSERVICES.accdb;" & "Jet OLEDB:Database Password=SYSWORK2012;" Muchas gracias

Hola Necesito de su ayuda, he intentado crear un UserForm que me permita buscar entre varias bases de datos (Hojas de un mismo Libro) y luego actualizar el resultado si es necesario como sigue: Cada base de datos (hojas)esta compuesta por valores de Fecha Estado Cantidad Tipo Destino Movimiento 2/1/2013 Pendiente 100 SIM Buenos Aires 12345 El UserForm q trato de crear viene dado por: TextBox1 que contiene el criterio de busqueda, en este caso un numero de "Movimiento" TextBox2 que me entregue el valor de la columna "Estado" (llamese: Preparado, Pendiente, Entregado, etc.) asociado a la misma fila del "Movimiento…

Hola a todos: Tengo lo siguiente en el libro de VBA: [DBOX]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("B4:H14,B6:H6")) Is Nothing Then ActiveCell.Value = ActiveCell.Offset(0, -1).Value + ActiveCell.Value End If End Sub [/DBOX] Lo que quiero es que al introducir un dato en cualquiera de esas celdas me sume ese valor con el dato y me deje ese dato en la misma celda. Lo he intentado de otras maneras pero me genera una especie de bucle y no he podido solucionarlo, y las que les describo me datos diferentes. Si de favor pueden ayudarme. Gracias.

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 …

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…

Buenas noches a todos, saludos cordiales, aquí de nuevo solicitando de sus conocimientos. Estoy tratando de armar un Sistema contable, y se va logrando gracias al Ingeniero en Sistemas JSDJSD de este gran foro, saludo maestro. Ya se logró el Inventario, Mayor y Libro Diario. Ahora arme el Balance Comprobación, solo con fórmulas en Excel, jalando las cuentas en el Libro Diario y, en el Balance de comprobación ahí figura todas las cuentas, es decir en el principio están todas las cuentas del BALANCE GENERAL, y en la fila 149 comienza las cuentas del ESTADO DE RESULTADO; A base de eso arme el Estado de Resultado y Balance General con fórmulas muy senci…

Saludos!, Estoy importando datos desde una pagina web hacia mi libro de excel, otras macros realizan otras operaciones con dichos datos, El problema que tengo actualmente es que en algunas ocaciones el excel muestra un mensaje emergente y detiene todas las macros que se están ejecutando, hasta que el usuario presione "Aceptar" (Adjunto mensaje) Quisiera que el excel no muestre ningún mensaje y que las macros sigan ejecutándose, o que de alguna manera los acepte, (espero poder explicarme), En internet encontre esta linea de comando "" Application.DisplayAlerts = False "" Pero no me funciona, o al menos el mensaje sigue saliendo, Mil Gracias, …

Buenos días de nuevo. Siguiendo con el formulario de la orden de trabajo, se me presenta otro tema que he buscado en el foro y he visto algunos parecidos, pero tampoco he conseguido adaptarlo a mi caso. Me explico; necesito calcular las horas transcurridas entre dos fechas y horas distintas. y que vuelque el valor en un textbox. Subo un fichero con un pequeño ejemplo de lo que necesito. Un saludo y muchas gracias de antemano. Prueba calculo horas transcurridas.rar

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 llevo días trabajando sobre una macro la cual realiza varios calculos, obtiene datos, etc. El problema es que cuando la ejecuto excel aparece como no responde. Tarda bastante y no veo que coja todo los recurso del pc. Dicho esto lanzo mis dudas. *Viendo esta programación creéis que es normal no espero que la entendáis, la idea es daros una visión del volumen . Private Sub CommandButton2_Click() Dim variable As String Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False numero_de_cables = Application.CountA(Worksheets("Cable list ").Ra…

Que sentencia debo de realizar para preguntar si una Celda tiene Comentario. Gracias