Buenos días, Busco hacer una macro que divida los valores de la columna "C" de la pestaña (2) entre el valor constante que le corresponde a esta planta , dato de la pestaña (1) , columna "A". Y devolver los valores resultantes de esta división en la columna "D", pestaña (2). Gracias por adelantado Libro1.xlsx

Hola de nuevo. Ya he terminado mi proyecto, con vuestra ayuda. Pero ahora veo que uno de los procesos es muy lento. Cuando le doy a un botón ejecuta esta macro con 7 bucles, uno por semana, que recorre cada vez que lo hace 7.000 filas. Y que cada mes añadirá otras más de 2.000 filas más. Así que cada vez que ejecute la macro se me va a emplear mucho tiempo. Yo creo que con un solo bucle lo puede hacer, porque pienso que debe haber una lógica matemática que lo haga, pero yo no soy capaz de saber cómo. U otra manera que no sea con bucles... Pego el código por si alguien de vosotros podría ayudarme. Ya veis que repito el código cada día de la semana y que los textbox so…

Hola, repasando las macros de mi libro me he dado cuenta de que tengo un IF compuesto que no lo ejecuta y no le veo la razón. ¿Podéis iluminarme? Gracias. If CeldaActual.Value >= 11 And CeldaActual.Value <= 13 Then CeldaActual.Interior.ColorIndex = None CeldaActual.Font.ColorIndex = 3 'Rojo CeldaActual.Font.Bold = True Tensión_macros_1bis.xlsm

Buenas tardes. Tengo el siguiente código en una macro: Sub Prueba() hora = Hour(Now) If hora <= 18 & Sheets("Hoja1").Range("G7") = 1 Then MsgBox ("haz esto") ElseIf hora > 18 & Sheets("Hoja1").Range("G7") = 2 Then MsgBox ("haz esto otro") Else MsgBox ("No se cumple") End If End Sub Sin embargo, siempre se me ejecuta el Else aunque a priori se cumplan las condiciones del If. Adjunto el excel de prueba. ¿Alguna idea del por qué no entra en el If ni en el ElseIf? Gracias Prueba.xlsm

Hola a todos.... Me hicieron una macro para crear un indice con todas las hojas que voy creando y así poder ir a la hoja que busco sin tener que ir una a una. Funcionaba perfectamente hasta ahora. No sé que ha pasado, pero no me funcionan los links que me llevan a cada hoja. Si me podéis echar una mano.... no tengo ni idea de macros. Os dejo el link al libro: https://drive.google.com/open?id=0B9laGIL8gRltNzFYbjJWc2tzVWM Un saludo.

Hola amigos tengo un userform donde tengo un botón para eliminar fila seleccionada de un ListBox, ahí la instrucción funciona bien pero mi intención es ponerle clave para que no cualquiera pueda tener ese privilegio, para ello tengo otro userform que se llama desde el mismo botón donde tengo que poner la contraseña y entonces da paso a ejecutar la macro, pero ahí esta el detalle la macro no se ejecuta. la pregunta que estará pasando. anexo archivo para su análisis Busqueda.rar

Hola, Ante nada muchas gracias por su tiempo. Escribo ya que decidi crear una macro la cual copia un texto de una pestaña y la pega en otra. Mi problema es que necesitaria que la misma se ejecute automaticamente al abrir el archivo de excel. Al ponerle el nombre auto_open, la macro intenta ejecutarse pero me da un error (Error 1004 en tiempo de ejecucion: Error en el metodo "Sheets" de objeto "_Global" Sub Auto_Open()[size=12][/size] '[size=12][/size] ' Auto_Open Macro[size=12][/size] '[size=12][/size] ' Acceso directo: CTRL+t[size=12][/size] '[size=12][/size] Sheets("futbol242").Select[size=12][/size] Range("A1:F1").Select[size=12][/size] Application…

Hola foro buen día/tardes/noches para algunos, estoy trabajando en este archivo pero ya me atore, todo funciona bien, los botones del archivo: Borrar = Borra toda la información del Formato Llenar Reporte = Se documentan los campos sombreados en azul y se le da a este botón y me extrae la información de otros archivos y me llena el documento Consecutivo = una vez lleno el reporte se le da en consecutivo para que le asigne un folio Llamar = con solo poner el Folio (reporte existente) este botón llama al reporte y lo muestra Modificar = cuando uno llama a un reporte y desea modificar alguna información le da uno a este botón y se guardan l…

Buenos días, soy un nuevo usuario y además soy novato en temas de programación. Tengo una macro que me tiene que buscar valores de 1 tabla y no me los busca. No entiendo el porque y espero que me puedan indicar el motivo de mi error. Les adjunto mi código. Atte.Raúl ayuda.zip

Con la siguiente macro oculto todas las celdas en blanco y al final debería de volver a bloquear pero no lo hace , cual puede ser el error Gracias Sub Desbloquear() Sheets("Peticion_Ensayos_TALLER").Select 'Selecciona la Hoja1 ActiveSheet.Unprotect 'Desprotege la hoja activa. Sin contraseña End Sub Public Sub OcultarLineasVaciasPeticionEnsayos_TALLER() Desbloquear Dim rng As Range Dim intLastCol As Integer Dim intLastRow As Integer Dim blnEmptyRow As Boolean Dim i As Integer Dim j As Integer Set rng = Selection.SpecialCells(xlCellTypeLastCell) intLastCol = rng.Column intLastRow = rng.Row For i = 1 To intLastRow blnEmptyRow = True For…

Hola chic@s, Después de unos largos intentos fallidos, no me queda otra opción que buscar ayuda alguna alma caritativa Detallo lo que intento hacer con la macro, solo he conseguido que lo haga en la hoja activa pero no me recorre todas las hojas del Workbook. - Cada hoja tiene una tabla con unos datos. Necesito eliminar todas las filas de cada hoja desde B4 hasta lastrow -1 (la b3 tiene que quedar intacta, cosas de otra macro que tengo linkeada) y mostrar ese lastrow en la B4. - Las hojas llamadas "Balance..." deben excluirse en la macro ya que no hay datos en ella que eliminar. - Necesito dejar la última fila con datos de cada tabla en la B4 e insertar ta…

Estimados, He hecho una macro donde necesito que imprima los valores que estan en el excel, para eso he generado una plantilla donde necesito que reemplaze los valores, pero he buscado y no he podido pillar el error de porque no me reemplaza los valores que quiero. Favor ayuda en el tema. Les adjunto la macro con la planilla. Macro APN.rar

[solucionado]Macro no se ejecuta en cambio de celda en una columna Buena tarde; Nuevamente me tomo el atrevimiento de pedir su ayuda ya que estoy atorado y no puedo dar con una solución, mi problema es el siguiente,: Tengo 8 modulos con 2 rutinas Sub cada uno y quiero que cada una de ellas se ejecute cuando se hagan cambios en las celdas de 8 diferentes columnas, para hacer esto, he puesto este código en la hoja en la que quiero que se ejecute Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Target.Worksheet.Range("L:L")) Is Nothing Then Call Val_Fecha_3_meses_C1 Call Evitaescritura_3_meses_C1 ElseIf Not Intersect(Target, Targe…

Buenas tardes, acudo a ustedes los expertos por que tengo este problema y espero me puedan apoyar. Estoy usando este código: Sub SumaBilletes() Me.TextBox16 = Str(Val(Me.TextBox23.Text) + Val(Me.TextBox22.Text) + Val(Me.TextBox21.Text) + Val(Me.TextBox20.Text) + Val(Me.TextBox19.Text) + Val(Me.TextBox18.Text)) End Sub[/PHP] Pero no me suma los separadores de miles, solo me suma los valores de los textbox 23 al textbox 18 si tienes un valor de 999.99, en este si me suma los decimales y todo bien, pero si tiene un valor de 1,129.00 no me suma ese valor solo me lo suma como numero 1 o si es 2,000.00 me lo suma como numero 2. El formato que estoy usando en los textbox …

Amigos de Excel 365 Disculpen el título, pero no se me ocurrió otro. El caso es que si grabo una macro, la ejecución se hace en las mismas celdas en las que recibió la instrucción, No puedo ejecutar la instrucción en otro rango. El punto es que necesito: 1 - Que primero que al seleccionar una celda, ponga el formato Negrita 2 - Que en esa misma celda haga una Autosuma (en sentido de columna) con las cifras contiguas, lo normalmente hace la Autosuma, que no sigue si encuentra una celda vacía. En el adjunto, lo que hecho está, se hizo manual. Otra cosa, mi Excel es 365 y está en la nube con One Drive y así no me aparece en la cinta de opciones "Pro…

Buenas noches, Alguien sabria crear una macro segun la NORMA 34 para subir fichero de remesas a los bancos? Por mas que he mirado no he encontrado nada de nada.

Hola a todos: Tengo una enorme base de datos, que debo traspasar la info de todas las columnas a una sola columna, la A. Pero en el mismo orden y con una celda en blanco de separación, se me hace un poco difícil de explicar por eso envío adjunto, una pequeña muestra de lo que necesito. Hoja1 Base de datos celda A2 hasta CV11, pero necesito que todo que de en la columna A hacia abajo Hoja2. Gracias desde ya. Trabajo_Columnas.xlsx

Saludos a todos, Macro o Modulo que oculte las filas si el numero en la celda es mayor , pero por fila por ejemplo: la fila 1 tiene la celda B1 pero si es mayor que 700 que se escondala fila 1, si es menor que 700 que no se esconda la fila 1 (IF B1 >700 esconder fila1 then IF < 700 no esconder fila1) la fila 2 tiene la celda B2 pero si es mayor que 900 entonces que se esconda la fila 2 si es menor que 900 que no se esconda la fila 2 (IF B2 >900 esconder fila2 then IF < 900 no esconder fila2) la fila 3 tiene la celda B3 pero si es mayor que 2000 entonces que se esconda la fila 3 si es menor que 2000 que no se esconda la fila 3 esto es = (IF B3&gt…

Hola muy buenas queria saber si se podria hacer lo siguiente, adjunto archivos; listaprecios.txt es archivo que bajo proveedor tal cual Lo paso a excell y se queda en listaprecios.xls Luego realizo unas modificaciones y se queda en nuevo hoja de calculo(2) En listaprecios.xls aparecen los articulos separados por las categorias a la que pertenecen cada uno, estos aparecen con ...... Yo se quitar esos ...... y dejarlo sin ellos pero necesito que las categorias aparezcan en un cuadro a lado de cada articulo en nuevo hoja de calculo 2 en vez de separado asi como aparece en listaprecios.xls He tenido que quitar articulos en realidad para que cupiese el .rar aqui. Se…

Hola amigos, estoy buscando la forma de colocar el mismo código que se encuentra en el archivo 1 y pasarlo al archivo 2 ya que necesito que se me oculten las filas al momento de imprimir, creen que me puedan ayudar por favor, no entiendo muy bien ese código, o si saben de una macro que me ayude con eso, quiero es ocultar las filas que no tengan información con un botón al momento de imprimir, y cuando termine otro botón para mostrarla tal cual esta en el archivo 1. Pido perdón por que se que hay otros foros con el mismo tema pero no encuentro ninguno que se adapte a mi problema. 1.xlsm 2.xlsm

Amigos tengo la siguiente macro: Sub Ocultar() Dim r As Range Application.ScreenUpdating = False ActiveSheet.Unprotect Rows("21:500").Select Selection.EntireRow.Hidden = False For Each r In Range("A21:A500") If r = 1 Then r.EntireRow.Hidden = True Next r Application.ScreenUpdating = True End Sub He probado distintas formas para que queda mas rápida porque es demasiado lenta, he hecho por ejemplo ciclo for, la he separado en distintos rangos, he llamado con otra macro los distintos rangos, pero nada, nose como dejarla mas eficiente. ayuda amigos muchas gracias

Hola buenas tardes: Por favor me pueden ayudar con una macro con la que pueda ocultar filas dentro de un rango (filas 8 al 20), pero sin ocultar las filas que tenga seleccionadas en es momento. Ya que hay filas que si necesito mostrar aunque estas no sean consecutivas. Muchas gracias Saludos Ocultar celdas menos las seleccionadas.xlsm

Hola a todos, necesito ayuda. Estoy probando una macro que se ejecute a determinada hora, pero no logro que funcione. Este es el codigo de prueba: Sub hola() MsgBox ("hola") End Sub ------------------------------ Sub programada() Application.OnTime TimeValue("13:59:00"), "hola" End Sub Llega la hora indicada y la macro "hola" no se ejecuta Debo activar algo en algun lado o considerar alguna zona horaria? El archivo es de Excel for Microsoft 365 y están en el onedrive. Mil gracias!!!

Hola, les pido ayuda para la siguiente cuestión. Tengo dos paquetes de datos, con un código de numeración. Quisiera que se ordenaran ambos paquetes , intercalando los datos que están en ambas columnas y los que solo aparecen en una u otra. Si se puede hacer por medio de una macro, mejor. Muchas gracias ORDENAR EN FUNCION DE DOS COLUMNAS.xls

Soy nuevo, pido perdon si esto ya se ha preguntado, estuve buscando con el buscador pero no encontre nada. tengo una macro que ordena una tabla, la macro funciona bien, pero quiero usarla teniendo dicha hoja oculta, y ahi viene el problema, no me deja usarla, he intentado desde el codigo de la macro que en el momento que la vaya a utilizar ponga visible la hoja pero algo hare mal porque me da el fallo en el codigo que ordena la tabla, cuando sin estar oculta funciona perfectamente... espero que puedan ayudarme.