Excel - Preciso de ayuda

   
Vista:

Preciso de ayuda

Publicado por Sergio (1 intervención) el 28/04/2008 17:31:03
Hola,
necesito una ayudita con Excel.

Tengo una serie de archivos,

04281350.xls
04281340.xls
04281325.xls
04281320.xls
04281310.xls

El final del nombre es la hora a la que el archivo se genera automáticamente. Necesito tomar un valor de una celda, por ejemplo B7, y ponerlos todos en una columna de una nueva planilla.
Pero cuando se genere el nuevo archivo necesito que se cargue este nuevo valor desplazando a todos para abajo y quitando el último.

04281400.xls
04281350.xls
04281340.xls
04281325.xls
04281320.xls

Con lo que tendría en la planilla nueva los valores de la celda B7 de estos archivos.

Alguna sugerencia?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Preciso de ayuda

Publicado por galileogali (107 intervenciones) el 29/04/2008 00:35:54
Esto lo hice con la Grabadopra de macros y esta listo para ser usado....
Sub Macro1()
Range("B1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("D1").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Range("B1").Select
Selection.End(xlDown).Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

De todas maneras deje esta macro reducida esto con solo Borrar lo que no hace falta....

Sub MacroLimpita()
'en B1 esta el primer valor de la columna
Range("B1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'en D1 esta el valor a ingresar
Range("D1").Copy Range("B1")
Range("B1").End(xlDown).ClearContents
End Sub
que hara lo mismo

GALILEOGALI

http://excelgali.mejorforo.net/
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar