Ayuda con código de una macro me da error y no puedo resolverlo.
buen dia expertos tengo el código de una macro que arme con partes de la grabadora de macros y otra partes que encontré en esta excelente pagina, pero cuando lo ejecuto me da error y no entiendo porque, me podrían ayudar a resolverlo, el código es el siguiente y el error me lo muestra en la parte que esta en negrita,
Dim
progra As String
progra = Application.GetOpenFilename
If progra = "Falso" Then
MsgBox "Proceso Cancelado...", vbInformation
Exit Sub
Else
End If
Windows(progra).Activate
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("D:D").Select
1 Respuesta
una preguntita mas y si tengo datos de otros libros abiertos que necesito copiar a este libro
(progra) que abrí ¿como regreso a este libro..
usualmente lo hago asi, cuando se el nombre exacto del libro.
Windows("libro1.xls").Activate, en este caso estaría bien asi
Windows("progra.xls").Activate
Cada vez que abrís un libro éste pasa a ser el activo, por lo que podes usar ActiveWorkbook.
Si necesitas moverte a otros libros, utilizá variables públicas y vas guardando allí el nombre de los libros que se abren.
Por ej, para el primero puede ser: libro1 = Activeworkbook.name
Y luego regresás allí con esta:
Workbooks(libro1). Activate
Activeworkbook.sheets(x).select 'seleccioná cualquier hoja
