Hola a toda la comunidad,
Pues tengo el siguiente codigo:
Sub ManifestCleanUp()
Rows("1:5").Select
Range("A5").Activate
Selection.Delete Shift:=xlUp
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="=", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "0"
Range("B1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "[$-409]d-mmm-yy;@"
Range("A2").Select
ThisWorkbook.Close
End Sub
Y bueno en realidad tengo muchas preguntas, la primera es: como puedo hacer
que mediante un codigo esta pueda abrir una pagina de internet y ejecute
algunos reportes... para que al final un archivo del tipo csv sea exportado
y entonces se le ejecute el codigo arriba mencionado, para que
finalmente le pregunte al usuario el nombre con el que será guardado el
archivo como xls...
Si alguien tiene una idea, pls
Saludos!
Isrrael
Leer las respuestas