Problemas con la macro

[tender18]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim fila1 As Integer
Dim rgo As Range
Dim NewEntry As String
If Target.Cells.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Not Intersect(Target, Range("A1:B3000")) Is Nothing Then
NewEntry = ""
NewEntry = Target
If Target <> "" Then
' hay que seleccionar las celdas que se van a copiar
Range(Selection, Selection.Offset(0, 0)).Select
'Esto copiar el texto seleccionado en la columna E
fila1 = Range("E7000").End(xlUp).Row + 3
Selection.Copy Destination:=Cells(fila1, 5)
End If
End If
End Sub

Yo tengo esta macro que lo que quiero que haga, es unos datos que se encuentran en las columnas A y que se actualizan cada 5 minutos me los copie a las columna E quiero que eso se haga automatico.

Gracias
Saludos Tender18

P.D: Cada vez que se actualizan los datos los copie a la columna E

[mrocf]

Hola! tender18.

¿ Sabes que hace la línea: Range(Selection, Selection.Offset(0, 0)).Select ?...
Absolutamente nada. Es decir: selecciona lo que ya estaba seleccionado.

¿ Y sabes lo que hace: Target.Cells ?...
Lo mismo que Target pero más complicado.

Para que podamos orientarte, ¿Qué te parece si eres menos críptico e indicas con claridad:

• Cual es el rango en donde ingresa la información (¿puede que sea una sola celda, o son varias filas simultáneamente?)
• Dices que quieres copiar lo ingresado en la columna "E". ¿Quieres dejar 3 celdas en blanco entre dato y dato como en la macro que nos has mostrado?

Comienza por aclarar esas cuestiones y no escatimes información alguna que nos permita orientar respecto de lo que quieres hacer.

Saludos, Cacho.

[tender18]

Mira lo que quiero hacer es lo siguiente, yo tengo una consulta web que lo que me hace es descargar informacion de la bolsa de valores...

Estos son los datos que hace mi consulta:

Last Trade: 80.14
Trade Time: 3:51PM ET
Change: Up 3.01 (3.90%)
Prev Close: 77.13
Open: 78.3
Bid: 80.07 x 100
Ask: 80.15 x 1700
1y Target Est: 108.5

Lo que quiero hacer es lo siguente yo tengo que esa consulta se me actualize cada 5 min, lo que quiero hacer es que cuando la consulta se me actualiza me copie los datos a otras columnas y que me las vaya copiando de forma automatica como un historico.

Saludos Sebastian
Gracias.

[mrocf]

¡ Bravo Sebastián !!!
Aunque no contestaras nada de lo que te pregunté, creo que vamos avanzando...

A ver:

• ¿Cual es el rango en donde ingresa la información?.
  A esta pregunta, ¿podrías responder que el rango de entrada es [A1:A8] ó [A1:B8] ?
  
  
• Entre dato y dato copiado a la columna E, ¿deseas que exista un fila vacía ó que las tandas de datos se copien en celdas contiguas?, ¿y cómo ves la opción de numerar las tandas de datos?

Si respondes a esto con claridad, posiblemente estemos cerca de la solución.

Saludos, Cacho.

[tender18]

El rango de los datos es de [A5:B5] hasta [A12:B12].....si me gustaria que haya una columna vacia, lo que tendria que agregar a las celdas que se copian es la hora y fecha de ese momento.

La columna E tendria que tener los datos que se copian mas la fecha y hora de ese momento...


Ahora si respondi tus preguntas...jajajaja

[mrocf]

¡ Ahora te quiero ver, mi estimado Sebastián !!!

Sigue -por favor- estas instrucciones:

a) Haz una copia de tu archivo en otra parte del disco por si las cosas se salen de control, ¿verdad?.

b) Haz clic con el botón derecho de tu ratón en la etiqueta de la hoja (abajo a la izquierda) y selecciona la opción: Ver código.

c) En la ventana que se te abrirá pegarás el siguiente código:

Código:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 1 Then Exit Sub
Dim Celda As Range
  
  Set Celda = [E65536].End(xlUp).Offset(1, 0)

  Application.EnableEvents = False
  Range(Celda, Celda.Offset(7, 0)) = 1 + WorksheetFunction.Max([E:E])
  Range(Celda.Offset(0, 1), Celda.Offset(7, 1)) = Date & " " & Time
  [A5:B12].Copy Range(Celda.Offset(0, 2), Celda.Offset(7, 2))
  Application.EnableEvents = True

Set Celda = Nothing
End Sub

d) Cierra todas las ventanas que tienen que ver con Visual Basic y retorna al Excel.

e) Guarda tu archivo.
______________________________________________

A partir de ese momento, ¿qué es lo que debería pasar?...

• En el mejor de los casos: luego que el archivo se actualice con la info de la Web, la misma debería copiarse según lo conversado.
  
  
• En cualquier otro caso: tendrás que describir con mucha tranquilidad y precisión lo que ves en tu planilla.

______________________________________________

Aquí estoy suponiendo que la actualizacón desde la Web origina un solo evento Worksheet_Change.

De no ser así, tendremos que ver lo que ocurre.

Suerte y saludos.
Cacho

[tender18]

La verdad que funciona barbaro!!! Excelente

Muchas gracias por la ayuda hace tiempo que estaba con esto y no podia hacerlo.


Desde ya muchas gracias por la gran ayuda al hacer esta macro.

Saludos Sebastian.

[mrocf]

¡ Me alegra que así sea !!!

Y hasta la próxima.