Hola tengo un archivo en el que tengo bastantes formulas y para que no las modifiquen tengo protegida la hoja con un macro, esto me permite trabajar únicamente sobre las celdas que no están protegidas, me permite usar filtros. Lo que no he logrado conseguir es que a pesar de esta condición me permita insertar comentarios en la celdas no bloqueadas, esto es para cuando necesito agregar algún comentario extra a la información que va en la celda. Lamentablemente el tamaño de archivo es bastante grande para poderlo adjuntar pero les comparto el código para ver si me pueden ayudar diciéndome que tengo que agregar para al codigo para que me me permita la accion arriba menciona…

Buenas tardes a todos! Que tal, en espera de su ayuda tengo el siguiente problema, ya tengo una macro que me hace un reporte por cada sucursal que se tiene en el pais, pero no logro separarlo por bloques y me inserte dos filas en blanco arriba despues de que encuentre un dato. y donde inserto la segunda linea me ponga el nombre ahi, y en toda esa fila me realize la sumatoria de los campos. Creo que con el ejemplo quedara mas claro en la hoja1 es como tengo mi dato, y en la hoja2 como deseo que quede, espero me puedan apoyar ya que es el ultimo dato que me hace falta para terminar. Este codigo es correcto me inserta las 2 filas en blanco que necesito, ya logre que funcio…

Tengo una tabla que se actualiza y ordena automáticamente en base a la captura que se realiza en otras hojas Y necesito una macro que me muestre junto al nombre la foto que le corresponda y las cuales estánalmacenadas en una carpeta Esto con la finalidad que no se haga tan grande y lento el archivo Ejemplo Col. A = orden (1,2,3, etc) Col. B = nombre Col. C = foto Col. D = ventas se ordena la tabla automaticamente de mayor a menor de acuerdo a las ventas capturadas en la hoja 2 De antemano muchas gracias

Tengo una tabla que se actualiza y ordenaautomáticamente en base a la captura que se realiza en otras hojas Y necesito una macro que me muestre junto al nombre la foto que le corresponda y las cuales estánalmacenadas en una carpeta Esto con la finalidad que no se haga tan grande y lento el archivo De antemano muchas gracias mis estimados expertos Les adjunto el archivo y en dnde dice foto debo colocar la foto del empleado las cuales estan guardadas en una carpeta llamada fotos en el escritorio misma ruta de este archivo Macro insertar imagen condicionada.xls

Necesito una macro que recorra un rango que coloque ceros donde encuentre cekdas vacias Gracias

Buenas noches. Agradezco me puedan ayudar con una macro que realice un intercambio secuencial de números para un rango excel. Para tamaños variables y secuencias variables... Por ejemplo así: 59-54-41-27-13 54-59-41-27-13 59-41-54-27-13 59-54-27-41-13 59-54-41-13-27 Gracias por su tiempo.

Que tal a todos. Soy nuevo en este foro. Solicito de su apoyo y amable cooperación para realizar un macro el cual su funcion sea la siguiente: Tengo una carpeta con mas de 1000 archivos .xls los cuales quiero unir es un nuevo archivo de excel; los archivos tienen las mismas columnas, el problema es que el rango en cada archivo es variable. En el archivo Juntar.xls tengo lo que llevo de la macro, podrian ayudarme a solucionar este problema. Option Explicit Sub LlenaCuadros() Dim wb As Workbook Dim strArchivoExcel As String Dim strNombreCarpeta As String strNombreCarpeta = PonDiag(ActiveWorkbook.Path) 'preparar carpeta ChDir strNombreCarpeta strArchivoExcel = Dir(…

Buenos días, Tengo la siguiente macro y en mi ordenador va más o menos rápida, pero en un ordenador conectado en red tarda una eternidad en crear las pestañas Creacion hojas obra - copia.xlsb

Necesito macro para eliminar celdas de una tabla segun mes . Adjunto archivo Gracias de antemano ejemplo.rar

Hola, Tengo una tabla Dinamica de la cual obtengo datos para presentar un reporte al cual le coloque una lista desplegable para REGION y otra para TERRITORIO, el problema es ejem: cuando selecciono una region (supongamos )SUR y el territorio VILLAHERMOSA si devuelve el valor correcto, pero al querer cambiar la region ya no me devuelve el valor real, se queda como grabado el valor de la posicion que tenía el territorio.como puedo hacer para que al seleccional otra region el territorio vuelva al valor todas y asi me de el valor real de la nueva region seleccionada.Mil Gracias.No pude adjuntar mi file, dice que tamaño mayor al permitido.

Hola buenas tardes. Debido al trabajo debo estar comparando en un periodo unos archivos dentro de una carpeta o subcarpeta. en base a la fecha de creacion o modificacion. pero tengo que estar viendo carpeta por carpeta y aveces son varios. Con una macro intente listar los archivos de cualquier carpeta y subcarpeta, esto activandolo segun la celdaactiva. El problema es que tiene algunos errores. 1. si la carpeta cuenta con subcarpetas me los manda a muchas filas abajo. Mi idea es hoja(Así debe quedar) Que con una macro pueda seleccionar la carpeta desde el buscador y me de la lista de archivos a partir de la fila 6. siendo c…

Hola amigos del foro tengo la siguiente macro Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If IsNumeric(Target) And Target.Address = "$AM$4" Then Select Case Target.Value Case 1, 2, 3, 4, 5, 6, 7 ActiveSheet.Unprotect Range("h11").Select Target.Locked = True Target.FormulaHidden = True ActiveSheet.Protect Case 9 ActiveSheet.Unprotect Range("h11").Select Target.Locked = False Target.FormulaHidden = False ActiveSheet.Protect End Select End If End Sub pero al seleccionar cualquiera de los case me mar…

Buenos días, Me gustaría saber si existe alguna macro para cuando pegas una gran cantidad de datos y se queda el Excel en "No responde", que se pueda parar el proceso sin cerrar la Excel y perder todos los cambios anteriores a ese "pegado". Gracias

Teno la siguiente macro pero me error 1004 por que puede ser. La macro es para cuando encuentre una X en las celdas b9:b200 oculte las filas que contienen una X Sub ocultarfilas_FRIO_NO_TALLER() ' ' ' ActiveSheet.Unprotect For Each celda In Range("b9:b200") If celda.Value = x Then ActiveCell.EntireRow.Hidden = TrueElse ActiveCell.EntireRow.Hidden = False End If ActiveCell.Offset(1).Select Next ActiveSheet.Protect End Sub

Buen dia. Tengo esta pequeña macro, que al ejecutarla en windows 7; me corre sin ningun problema. El tema es que cambie de computadora a windows 11, y al hacer correr la macro; esta se detiene en la línea escrita, no sé el porque y la solución. With CreateObject("System.Collections.ArrayList") con el siguiente mensaje RUN-TIME ERROR '-2146232576 (80131700)': AUTOMATION ERROR AZAR.xlsm

Saludos Estimados miembros del foro, actualmente tengo una macro que por años me a funcionado muy bien, recientemente incorporé otra macro en otra hoja y aunque no tiene relación la primera ejecuta también la nueva macro pido ayuda ya que no entiendo mucho esto de las macros ya que he ido armando algunas con ayuda de los foros Explico la temática MACRO HOJA 1 celda C4 en esta celda generalmente va un numero que al dar ENTER realiza varias acciones como: crear un archivo con este numero, previa verificación de que no exista este numero en tres carpetas diferente Pone fecha y hora en determinadas celdas y por ultimo copia el valor de va…

Saludos colegas. En la universidad usamos bastante la modelacion de tranporte (costo mínimo, esquina noroeste) mediante el uso de solver. Perdemos bastante tiempo por cada modelacion y formulacion por ejercicio, la propuesta es crear una macro que ahorre y optimice procesos pero en el tema de macros estoy bastante crudo, acudo a uds. este es un ejercicio que hemos realizado. Debemos tener en cuenta que para cada modelo de transporte, se debe definir -la cantidad de puntos de origen y la cantidad de destinos -costos de cada producto Analizando al momento de realizar la macro me parece que el mejor metodo de desarrollo sea el costo mínimo, pero no tengo idea de …

Hola estimados, Mi pregunta es la siguiente: tengo dos hojas de Excel. La hoja0 tiene la data original y correcta y la hoja1 tiene la data distorcionada. Caja hoja tiene dos columna llamadas Region y Departamento. Una ejemplo de la data original es la siguiente: REGION DEPARTAMENTO CENTRO LIMA SUR AREQUIPA NORTE AMAZONAS Una ejemplo de la data distorcionada es la siguiente: REGION DEPARTAMENTO SUR LIMA CENTRO AREQUIPA ESTE AMAZONAS Como pueden observar la columna región es la que cambia, porque según mi data original Lima es del Centro y no del Sur. Lo que yo quiero es modificar toda la co…

Tengo un gráfico de barras Me gustaría crear una macro que me ditinguiese las 3 ultimas barras que tienen información. Ejemplo, Tengo una columna por mes Si el último valor con información fuese septiembre, me gustaría recalcar Julio, Agosto y Septiembre Este gráfico, se crea a partir de valores importados, por lo que me gustaría poderlo hacer mediante una Macro. No se cómo hacerlo y una de las soluciones "cutres" pero "efectivas, sería crear un cuadro semitransparente por encima para difuminarlas un poco. No sé como crear la forma y situarla donde quiero encima del gráfico. Muchísimas gracias de antemano.

Al intentar ejecutar este código para que me descargue links de fotos y los muestre en la siguiente columna, me sale un error de Visual Basic 400. La cuestión que empieza a funcionar y despues de mostrar la 2ª, 3ª, 4ª imagen sale el error. ¿Alguién sabe como podría solucionar esto? Disculpas porque soy bastante novato y muchas gracias de antemano. Sub pix() Dim url_column As Range Dim image_column As Range Set url_column = Worksheets(1).UsedRange.Columns("A") Set image_column = Worksheets(1).UsedRange.Columns("B") Dim i As Long For i = 1 To url_column.Cells.Count With image_column.Worksheet.Pictures.Insert(url_column.Cells(i).Value) .Left = image_column…

Hola de nuevo a todos tengo una pregunta de lo mas tonta, pero no eh dado con la respuesta. Tengo una macro dentro de la cual me hace la resta de una celda y de ahi divide ese resultado entre 10, el resultado es mostrado en %(porcentaje) si hago esta operacion manualmente cuando me posiciono en la celda donde tengo la formula me muestra en la barra de formulas asi =4/10 siendo que la celda me muestra 40%, la macro me hace la operacion automaticamente pero al posicionarme en esta celda solo me aparece en la barra de formulas el 40%, existe alguna forma de hacer que me aparezca como algo asi =4/10, ya copie el formato y lo grabe en la macro pero nada no resulta. Gracias. …

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