UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Backup de datos iniciales

0% 0% [ 0 ]
0% 0% [ 0 ]
Votos Totales : 0

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Celdas espejo sólo una vez el 08/02/16, 11:42 am

jota


Cordial saludo.

Amigos busco orientación con algo. Es que quiero hacer como un tipo celdas espejo pero que sólo reflejen la primera vez, por ejemplo; Lo que escribo en la columna A se refleje en la columna B, pero si sobre escribo en la columna A no volverá aparecer en la B porque inicialmente ya había algo escrito allí. En el archivo que adjunto se puede entender más fácil. 

Gracias muchach@s por su tiempo.
Archivos
Backup de datos iniciales.xlsx
No tienes los permisos para descargar los archivos.
(11 KB)

2RESUELTO Re: Celdas espejo sólo una vez el 08/02/16, 09:46 pm

Igtelo


Hola Jota.

Lo que pides si buscas encontrarás esa macro en muchos blogs y foros, es muy común. Te adjunto otra forma (idea) de manejar y proteger tus datos, te explico:

1.- Antes de escribir ve la hoja Cambios, no borres la fórmula, te sirve para ver las veces que han sobre escrito.

2.- En la hoja cambios se van a registrar todos los datos que se escriben en la columna A de la hoja1, el dato que te interesa es el 1o. Y queda registrado en esa hoja de cambios, el encabezado dice: 1er. Dato (ese es tu Back-up).

Lo que sobre escriban en la columna A de la hoja1 se registra en la hoja cambios después del 1er. dato (de columna C en adelante), tienes el control de cuantas veces han modificado y lo que escribieron.
La hoja Cambios se oculta, así no se dan cuenta cuando te hacen trampa pero tú si lo vas a saber cuando hagas visible esa hoja.

La macro la encuentras en Hoja1 dentro de VBA y te dejo explicación para que modifiques rango.

Saludos
Ignacio Téllez
Archivos
Jota-Backup de datos iniciales.zip
No tienes los permisos para descargar los archivos.
(20 KB)

3RESUELTO Celdas espejo sólo una vez el 09/02/16, 01:34 pm

jota


Hola buenos días.

Oye amigo, está excelente. De esta manera me da más posibilidades de agregarle más cosas. Te agradezco de verdad por tu tiempo. Porque estaba algo perdido y no tenía claridad y me estaba complicando mucho XD

Mil gracias. (Y)

4RESUELTO Espejos múltiples el 11/02/16, 02:05 pm

jota


Hola!

Que pena, me surgió una duda con esta parte: 
Sheets("Cambios").Range("zz" & w).End(xlToLeft).Offset(, 1) = Target.Value

Ese rango "zz" qué celdas comprende?

Y en caso de hacer un espejo a cada columna se puede usar ese mismo código? Es que no logro hacer más de un "Backup con espejo" :'(

Gracias de antemano.

5RESUELTO Re: Celdas espejo sólo una vez el 11/02/16, 02:18 pm

Igtelo


Hola Jota.

Arriba te lo dije:

Igtelo escribió:Lo que sobre escriban en la columna A de la hoja1 se registra en la hoja cambios después del 1er. dato (de columna C en adelante),
Siempre va a encontrar la última celda vacía.

Ve éste tutorial, te ayudará mucho:
http://www.universoexcelforo.com/t1181-como-trabaja-una-macro-y-la-hoja-de-calculo-simultaneamente-videotutorial

Tu 2a. pregunta lo tienes que adaptar, eso es otra cosa; las macros se hacen "exprofesamente" según lo que se esté necesitando. 

Ve éste otro tutorial y lo podrás hacer:
http://www.universoexcelforo.com/t1461-encontrar-ayuda-en-vba-p-nuestras-macros-videotutorial

Saludos
Ignacio Téllez

6RESUELTO Re: Celdas espejo sólo una vez el 12/02/16, 11:19 am

ioyama


Hola jota (y Nacho)

Prueba con

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub           'Si seleccionas más de una celda sale de la macro
    If Target.Row = 1 Then Exit Sub             'Si seleccionas una celda de la fila 1 sale de la macro
    If Target.Column Mod 2 = 0 Then Exit Sub    'Si la columna es par sale de la macro
    If Target.Offset(0, 1) <> "" Then Exit Sub  'Si la celda adjunta está escrita sale de la mavro
    Target.Offset(0, 1) = Target.Value          'En la celda de la derecha (columna par) hace el espejo
End Sub

Cada vez que escribas en una columna impar en la par adjunta te hará el espejo una única vez

Un saludo desde Vitoria
Archivos
EspejoEnColumnasPares_io_160212.zip
No tienes los permisos para descargar los archivos.
(12 KB)

7RESUELTO Re: Celdas espejo sólo una vez el 12/02/16, 12:44 pm

wibly


Nacho / ioyama,

Muuuuuuchas gracias por estos aportes!

Un abrazo!

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.