Seleccionar diferentes rangos de celdas en una macro

[Pedro11111]

Hola, buenos días,

tengo el siguiente código:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application. EnableEvents = False
If Not Intersect(Target, Me. Range("A1:A10")) Is Nothing Then
With Target
If IsNumeric(. Value) Then
. Value = (Int(. Value) + (. Value - Int(. Value)) * 100 / 60) / 24
. NumberFormat = "hh:mm"
End If
End With
End If

Ws_exit:
Application. EnableEvents = True
End Sub


El rango de celdas seleccionado en el código es

A1:A10

y necesitaría poder seleccionar rangos diferentes... B1:B2O, D2:D21 Y H1:H20 y otros.

He hecho varias pruebas e intentos, pero sin resultado favorable.

¿Cómo podría hacerlo?


Muchas gracias.

Saludos.

[3pies]

Prueba así:

Código:

Range("B1:B20,D2:D21,H1:H20").Select

[Pedro11111]

Hola 3pies,

ante todo, gracias.

He probado y me da "error de compilación" y "error de sintaxis".

el código (con tus instrucciones) ha quedado así:


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("B1:B20,D2:D21,H1:H20").Select Is Nothing Then
With Target
If IsNumeric(.Value) Then
.Value = (Int(.Value) + (.Value - Int(.Value)) * 100 / 60) / 24
.NumberFormat = "hh:mm"
End If
End With
End If
Ws_exit:
Application.EnableEvents = True
End Sub


Saludos.

[3pies]

Creo que te falta un paréntesis en el primer condicional (if).

[Pedro11111]

Correcto...

Solucionado.

Muchas gracias por todo.

Saludos.