Hacer click en una celda de excel en un Rango determinado y que salga un valor determinado

Buenos días. Estoy trabajando en un archivo y necesito que cuando se haga click en las celdas de las Columnas B y C salga una Letra Z. Apenas estoy comenzando con VBA y realice este macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)ActiveCell = "Z"End Sub

 Pero esa macro hace que TODA las celdas de la hoja de excel cuando se le den click le salga una Z y me daña mi análisis posterior. 

Mas que teodo necesito que salga en 2 cuadros de esa hoja que van B17:B86 C17:C86 y B95:B164 C95:C164

1 Respuesta

Respuesta
1

Esta macro controla esos dos rangos:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B17:C86")) Is Nothing Then
    ActiveCell = "Z"
End If
If Not Intersect(Target, Range("B95:C164")) Is Nothing Then
    ActiveCell = "Z"
End If
End Sub

Si te ha valido la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas