Dante Amor

Prueba Sub Ocultar() If Range("B2") = "NO HAY ESA CADENA EN LA PLAZA" Then Range("B:C").Select Selection.EntireColumn.Hidden = True End if If Range("D2") = "NO HAY ESA CADENA EN LA PLAZA" Then Range("D:E").Select Selection.EntireColumn.Hidden = True...

Revisa esto: https://www.mrexcel.com/board/threads/excel-application-flashing-before-hiding-when-using-application-visible-propety.1142440/

Prueba la siguiente: Sub RegistrosAleatorios() Dim arr As Variant Dim i As Long, x As Long, y As Long, n As Long ' n = Sheets("Hoja3").Range("C" & Rows.Count).End(3).Row Randomize arr = Evaluate("=row(1:" & n & ")") ' For i = 1 To n x =...

Prueba la siguiente macro Revisa que los datos estén correctamente escritos (espacios, puntos, acentos, etc) en esta línea: Case LCase("AFP Cuota Periodo"), LCase("I.S.R. Cuota Período"), LCase("ISSS Cuota Período") ' Sub Eliminar_Columnas() Dim cols...

Pon la siguiente fórmula en C2 y copia hacia abajo. =K.ESIMO.MAYOR($A$2:$A$20;FILAS($B$2:B2))

Puedes utilizar una tabla dinámica Otra opción sería crear una macro.

Para que no se imprima el botón, realiza lo siguiente: 1. Presiona click derecho del mouse sobre el botón. 2. Del menú que despliega selecciona la opción: "Tamaño y propiedades" 3. En la ventana "Propiedades", desactiva la casilla "Imprimir objeto"...

Haber si entendí. Tú escribes en la celda B2: XXXXXXX12300001 Y en automático, solamente quieres en la celda D2 esto: XXXXXXX12300050

No encuentro en dónde te proporcioné esa macro. Pero, podría adaptarla o lo que necesitas. Pero podrías poner la macro original. Utiliza el icono par insertar código. Explica con detalle qué necesitas. Esto que pusiste: "k = Month(a(i, 2))", no lo...

ActiveWorkbook.SaveAs Filename:="C:\loquesea", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False Cuando ejecutas esa línea, el libro activo toma el nuevo nombre, es decir, solamente renombraste el libro activo. Entonces no tienes 2 libros abiertos,...