Ayuda macro Excel

[Satyr22]

Bueno estoy tratando de hacer funcionar un macro, tengo en una columna datos que se van actualizando pero por fila es decir

Columna A
125
124
130(hora mas tarde)

y que en otra hoja me arroje:

(fila x columna x) = 124 (una hora mas tarde) =130

Esto lo necesito ya sea en otra hoja o en la misma igual lo puedo arrastrar si es en la misma.

Basicamente lo que necesito es que en una casilla me aparesca el ultimo dato anotado en dicha columna.

El Macro que estoy tratando de usar es el siguiente:

Code: [Select]

Sub Macro1()
Sheets("MV07043").Select
Range("J10:J9999").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
Selection.Copy
Sheets("Existencias Conta").Select
Range("M16").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Quien pueda ayudarme le agradecere.

[gcastellanos]

Al ejecutar la macro que has hecho, efectivamente se lleva a la otra hoja el último resultado que existe y entiendo que hasta ahí vas bien, entonces lo que necesitás es que cada hora se lleve el resultado de forma automática sin presionar ningún botón? o si podés explicar más el objetivo para ver que se puede hacer.

[Satyr22]

Al ejecutar la macro que has hecho, efectivamente se lleva a la otra hoja el último resultado que existe y entiendo que hasta ahí vas bien, entonces lo que necesitás es que cada hora se lleve el resultado de forma automática sin presionar ningún botón? o si podés explicar más el objetivo para ver que se puede hacer.

Lo que pasa es que el macro que tengo me esta copiando pero la formula y no la cantidad que necesito que aparesca en el destino.

[gcastellanos]

Lo que pasa es que el macro que tengo me esta copiando pero la formula y no la cantidad que necesito que aparesca en el destino.

Entonces solo basta agregar lo siguiente:

Sub Macro1()
    Sheets("MV07043").Select
    Range("J10:J9999").Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell.Offset(-1, 0).Select
    Selection.Copy
    Sheets("Existencias Conta").Select
    Range("M16").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub

[Satyr22]

Entonces solo basta agregar lo siguiente:

Sub Macro1()
    Sheets("MV07043").Select
    Range("J10:J9999").Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell.Offset(-1, 0).Select
    Selection.Copy
    Sheets("Existencias Conta").Select
    Range("M16").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub

Ya probe con la modificación y me sigue dando el mismo problema solo me tira la formula y no el dato que necesito, alguna otra opción?

[Francisco™]

Sub Macro1()
Sheets("MV07043").Select
Range("J10:J9999").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
Selection.Copy
Sheets("Existencias Conta").Select
Range("M16").Select
ActiveSheet.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

creo que lo que puso gcastellanos esta mal escrito a parte que le borro una linea(aunque no se si eso no le afecta), asi que investigando un poco creo que la manera correcta es: PasteSpecial Paste:=xlPasteValues

[gcastellanos]

En tu macro original hay que eliminar el comando "ActiveSheet.Paste" y agregar lo que aparece en rojo:

Sub Macro1()
Sheets("MV07043").Select
Range("J10:J9999").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
Selection.Copy
Sheets("Existencias Conta").Select
Range("M16").Select PasteSpecial xlPasteValues
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub


Adjunto el archivo que si me funciona en excel 2003 y 2007

[Satyr22]

En tu macro original hay que eliminar el comando "ActiveSheet.Paste" y agregar lo que aparece en rojo:

Sub Macro1()
Sheets("MV07043").Select
Range("J10:J9999").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
Selection.Copy
Sheets("Existencias Conta").Select
Range("M16").Select PasteSpecial xlPasteValues
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub


Adjunto el archivo que si me funciona en excel 2003 y 2007

Veo que soy yo el que posiblemente hago algo mal, por que le introdusco el macro tal cual te funciona a vos... y en mi cuadro no funka.

si no es mucha molestia será que me lo podes revisar?

http://www.megaupload.com/?d=U7VVR415

y tambien noto que mi archivo pesa un monton y no se porque.

[Satyr22]

Siguiendo con este problema...

He encontrado del por que no me arroja el ultimo dato de la columna, ni funciones utilizadas, ni el macro, es por que tengo formulas en las columnas y excel me toma la formula como ultimo dato aunque la formula este condicionada a arrojarme un dato si y solo si cumple la condicion de una anotacion en cierta columna.

Alguien podra ayudarme a que excel no tome la formula como un dato? ya que el macro lo reconoce la formula como ultimo dato y no el resultado.