Excel, función para guardar valor de una celda antes de actualizarla
Tengo una planilla en Excel para préstamo de libros, Tengo en la columna A están los Títulos de libros, en la columna B el nombre de las personas que lo llevan
A titulo b socio
A1 La templanza, B1 Alonso
A2 La chica del tren, B2 Perez
Necesito que en C1 aparezca Alonso y que cuando en B1 ponga un nuevo nombre "Rodriguez" lo copie a D1 si vuelve a cambiar B1 "Torres" que el nombre anterior lo lleve a E1 y así sucesivamente
¿Es posible?, o si hay una macro, como la escribiría, cada nuevo valor de una columna que lo replique a la columna siguiente, para que yo pueda saber quienes ya leyeron ese libro
1 Respuesta
Pon la siguiente macro en los eventos de tu hoja
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Columns("B")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
'
uc = Cells(Target.Row, Columns.Count).End(xlToLeft).Column + 1
Cells(Target.Row, uc) = Target.Value
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
Listo, cuando escribas un nombre en la columna B, en automático te lo pondrá en la columna de la derecha.
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
