erflip

Elsa Matilde respondió: Si no te funciona puede deberse a que el texto no se encuentra tal como lo estás colocando entre comillas. La rutina evalúa la col B a partir de la fila 2, y se detiene hasta encontrar una celda vacía. Si tu modelo tiene celdas vacías en el rango a...

Anónimo respondió: Te paso el siguiente código (asume que todas las celdas tienen información y para de ejecutar cuando encuentre una celda vacia; tal vez tengas que modificar esto) Sub Macro1() Range("C2").Select Do While ActiveCell.Value <> "" If ActiveCell.Font.Bold...

Elsa Matilde respondió: Para imprimir áreas filtradas que contengan un encabezado deberás contar con una hoja auxiliar donde la rutina previamente copiará los datos necesarios. Luego imprime y elimina los datos copiados de la hoja auxiliar. Para probar la rutina adjunta,...

Elsa Matilde respondió: Te adjunto la macro solicitada, que colocara´s en un módulo: Sub MacroElimina_filas_intermedias() 'macro desarrollada por Elsamatilde el 15/12/06 Dim ultfila, fila1, fila2 As Integer Dim ctrl As Byte ultfila = Range("F65536").End(xlUp).Row + 1...

Anónimo respondió: Si lo querés en A2, en lugar de AL pon ="AL "&TEXTO(A1,"dd/mm/yy")

Elsa Matilde respondió: Aquí va la nueva rutina, que colocarás en un módulo: Sub macroElimina7() If Range("C32").Value = 0 And Range("D32").Value = 0 Then Range(Range("C32"), Range("C32").Offset(-6, 0)).EntireRow.Select Selection.Delete Range("C32").Select End If End Sub...

agca73 respondió: Para modificar o eliminar un nombre necesitas seleccionar del menú "Insertar" la opción "Nombre" y luego "Definir". Después de haber hecho esto aparecerá un cuadro de dialogo con todos los nombres que hayas definido. Para eliminar uno de estos...

Elsa Matilde respondió: Lo primero que haría es colocar en una col auxiliar esta fórmula que arrastrarás hasta la última fila con datos: +CONTAR.SI($A$1:$A$100;A1) 'ajustá el rango inicial y final según tu tabla. Esto te devolverá el valor 1 si no se encuentra repetido ese...