Calo Giron Cespedes

También puedes utilizar este código con arreglos: Primero: Coloca todos lo archivos en una carpeta de nombre C:\NEW LIBROS\ Const n1 = 60 Type arreglo elemento1(1 To n1) As String End Type Sub borrado() Dim ARCHIVOS As String, rcd1 As arreglo...

Abraham Valencia respondió: ActiveWorkbook.SaveAs ThisWorkBook.Path & "\nombrearchivo.xls" Abraham

Adriel Ortiz Mangia respondió: [Hola Te paso la macro Sub Macro_Ocultar() ActiveSheet.Range("$A$1:$A$100").AutoFilter Field:=1, Criteria1:="<>" & "TRANPORTE" End SubSub Macro_Mostrar() ActiveSheet.Range("$A$1:$A$100").AutoFilter Field:=1 End Sub

Le dí solución a mi propia consulta, como el archivo ya lo abre, entonces verifico si la primera celda es vacía para luego cerra el archivo y continúe con mi bucle. Nota: La solución resaltado con negrita For inicio1 = 1 To rigs Workbooks.Open...

Jaime Segura respondió: Tienes errores de sintaxis y de conceptos: Contador1(1, "A") llama a una función con dos argumentos Function contador1(columna) indica que la función tiene un solo argumento,. Count debes usarlo para contar la filas, no una selección Si el rango...

Este código realicé y me ejecuta de manera excelente: Sub resumen1() Range("A2:F65535").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Range("H2").Select ActiveSheet.Paste Application.CutCopyMode = False Range("M2").Select...

Programar Excel respondió: Por si alguien le sirve paso unos ejemplos https://youtu.be/CCEaj0qIXzE https://youtu.be/M3C5AyDMLOY