COMO GUARDAR DATOS

07/10/2007 - 21:01 por Rolman Justiniano | Informe spam
Hola a todos. quiero guardar datos que introdusco en un rango de celdas ,
quiero guardarlos en otra hoja cada vez que cambio los datos del rango, creo
que esto se lo puede hacer mediante macros , pero no se como ..
hay aquien que me pueda ayudar?..
espero su hayuda y saludos a todos los del foro

RJO

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
07/10/2007 - 22:48 | Informe spam
hola, Rolman !

... datos que introdusco en un rango de celdas, quiero guardarlos en otra hoja cada vez que cambio los datos del rango
creo que esto se lo puede hacer mediante macros, pero no se como ... hay aquien que me pueda ayudar?...



[generalmente] obtendras propuestas mas *concretas* si expones detalles mas *precisos*
- rangos, nombres de las hojas/libros, de donde, a donde, como, por que, cuando si/no, etc.

lo que no se alcanza a *ver* [desde este lado del mensaje]... se tiene que *adivinar/suponer/inventar/...*
y es mas seguro que probable, que no coincida con los datos reales de la situacion que necesitas resolver :-((

en via de mientras, te paso un consulta y propuesta *similar* que podrias adaptar [o comentar que cambios necesita]

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta similar y propuesta de solucion __

... celda A1 destinada a introducir una fecha... celda A2 es para un dato... y asi hasta llegar a la A6
Digamos que se trata de una ficha.
... que... A1:A6 se copien automaticamente en... D1:D6
... si yo borro... A1:A6... que no se borren... D1:D6
... si vuelvo a incorporar nuevos datos en A1:A6... copiar ahora ya en E1:E6 y asi sucesivamente
... pero siempre introduciéndolos en A1:A6.-



digamos que los introduces 'en orden'... A1, A2... hasta dejar por ultimo el dato en A6...
copia/pega las siguientes lineas de ejemplo...
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$6" Then Exit Sub
If Not IsEmpty(Range("iv1")) Then MsgBox "SIN Columnas...": Exit Sub
Dim Destino As String: Application.ScreenUpdating = False
If IsEmpty(Range("d1")) Then Destino = "d1" _
Else Destino = Range("iv1").End(xlToLeft).Offset(, 1).Address
With Range("a1:a6")
.Copy Range(Destino): .ClearContents: .Cells(1).Select
End With
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida