Ejecutar macro al seleccionar celda (dentro de un rango de celdas)

En una hoja de excel (Hoja1), tengo el rango de celdas A1:A10, B1:B10, C1:C10 (ejemplo)

...........A...............B.............C

1.....UNO..............*..............

2.....DOS .............*..............

3.....TRES............*..............

4.....CUATRO.......*..............

5.....CINCO..........*..............

6.....SEIS .............*..............

7.....SIETE............*..............

8.....OCHO...........*..............

9.....NUEVE..........*..............

10. .DIEZ..............*..............

Lo que ocupo es que al seleccionar (con el mouse o con el teclado) la celda B3, en la celda C3 me ponga el valor de A3 ...

...........A...............B.............C
1.....UNO..............*..............
2.....DOS .............*..............
3.....TRES............*..........TRES
4.....CUATRO.......*..............
5.....CINCO..........*..............
6.....SEIS .............*..............
7.....SIETE............*..............
8.....OCHO...........*..............
9.....NUEVE..........*..............
10. .DIEZ..............*..............

Y que si selecciono la celda B7 me ponga en la celda C7 el valor de A7, y que al mismo tiempo borre de la celda anterior el dato introducido (en este caso borraría los datos de C3)...

...........A...............B.............C
1.....UNO..............*..............
2.....DOS .............*..............
3.....TRES............*.............. <- AQUÍ se Borra el dato anterior
4.....CUATRO.......*..............
5.....CINCO..........*..............
6.....SEIS .............*..............
7.....SIETE............*.........SIETE
8.....OCHO...........*..............
9.....NUEVE..........*..............
10. .DIEZ..............*..............

Y asi sucesivamente dependiendo de la celda que seleccione dentro del rango de B1:B10.

1 Respuesta

Respuesta
1

Te mando la solución. Estas son las instrucciones:

-Primero rellena los datos de la columna A

-Ahora copia esta macro dentro del objeto hoja que estamos tratando ya que es un evento.

Public columna
Public fila
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then
Cells(fila, columna).Value = ""
ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(0, -1).Value
fila = ActiveCell.Offset(0, 1).Row
columna = ActiveCell.Offset(0, 1).Column
End If
End Sub

Después retrocede a la hoja y solo tienes que pulsar en alguna celda de la columna B para ver lo que pasa.

Recuerda finalizar la consulta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro de número a texto para calificaciones

Soy profesor y tengo la necesidad de que los promedios de mis alumnos que escribo en una hoja de excel sean convertidos a texto de la siguiente manera: 5.0 convertir a CINCO PUNTO CERO, 6.8 a SEIS PUNTO OCHO, los números son de 5.0 a 10.0 con sun...
2 respuestas

De Números a Letras en Excel 2007

Alguien que me pueda ayudar estoy haciendo un pequeño formato pero no he podido hacer que un promedio que se genera de calificaciones me lo ponga en letras también si el promedio es 8.5 tenemos que poner OCHO PUNTO CINCO. Estas calificaciones van...
1 respuesta

¿Puedo extraer el valor de una misma celda en varias hojas diferentes y que aparezca en otra hoja?

Quería saber si existe alguna función en excel con la que pueda extraer el valor de una misma celda pero de varias hojas diferentes y que aparezca en otra hoja. Por ejemplo si tengo Hoja1, Hoja2 y Hoja3 tengo que hacer que el valor de la celda A1 de...
1 respuesta

Necesito macro para copiar y transponer celdas

Necesito una macro que haga lo siguiente; necesito copiar una cantidad de filas con celdas variables a partir de la columna B y trasponerlos enla columna A a partir de la celda A1, tengo la siguiente macro pero el problema es que me transpone una...
1 respuesta

Copiar datos de una hoja a otra con macro

Estoy trabajando en un archivo muy interesante, este archivo tiene un macro que quisiera ajustar a mi necesidad. Los datos se encuentran (por ejemplo) en una hoja 1 en la fila 7, a través del macro se pasan a la hoja 2 a la fila 9, puedo borrar la...
1 respuesta

Recorrer celdas de una columna

Tengo 4 filas con 4 textbox en un formulario que me muestran los datos de la celdas de una hoja ... Tengo los datos de las celda A2, B2, C2, D2 que se muestran en unos textbox... También los dato de las celda A3, B3, C3, D3 en otros texbox... Hasta...
1 respuesta

Saber si un numero esta dentro de un rango

Deseo saber como poder hacer la comparación de un numero (A1) esta dentro de un rango de 2 números (C1 y D1) y si esta adentro de ese rango me devuelva el valor que esta en D1.
1 respuesta

Sacar promedio en rangos variables

Necesito preguntar lo siguiente: Tengo una tabla de n filas y n columnas, con datos a los cuales quiero sacarles el promedio. El problema es que no siempre tengo la misma cantidad de filas. Ejemplo Item dato1 dato2 dato3... Daton 1 10 0 5 4 1 0 8 7 5...
1 respuesta

Buscar cuantas secuencias se repiten en tablas excel

Porque me estoy volviendo loco y no consigo encontrar la fórmula que me pueda ayudar he probado, frecuencias, contarsi, etc etc Tengo 1 tabla de 6 elementos y una secuencia de 3 elementos A,B,C,D,E,F G,H,I 1,3,5,8,9,7 5,4,2 2,3,9,7,5,4 4,9,5,6,9,0...
1 respuesta

Recorrer una columna excel, encontrar datos que cumplen una condición y pegarlos en otra hoja

Estoy trabajando en un bucle que no termina de funcionarme, espero que puedan ayudarme. Consiste en ir recorriendo la columna A de la hoja 1, con numero de filas variable, localizar todos los datos que cumplan la condición de que va siempre precedido...
1 respuesta