Varios eventos en un WorkSheet_Change

[aaquino]

Muy buenos días, tardes, noches, (dependiendo de la hora que lo estén viendo) compañeros.

Como soy algo novato en esto de la programación Excel, quisiera hacerles la siguiente consulta:

Estoy...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[hansabel]

Has probado poniendo todo el código en un solo Private sub Worksheet_Change? Obviamente algunas cosas no es necesario repetirlas, pero haz la prueba, espero te sirva

 

[aaquino]

Ese es el motivo de la consulta, pues ya puse todo en un mismo worksheet_change pero no funciona.

Lo que quisiera me dijeran como le hago para "unificar", por así decirlo, todos los códigos y que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Hola! aaquino (y hansabel)

Intenta con:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
  If .Rows.Count > 1 Then Exit Sub
  If .Columns.Count > 1...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[hansabel]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, c As Range, rng2 As Range, Rango As Range
On Error Resume Next
Set rng = Application.Intersect(Target...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[aaquino]

Muchas gracias a ambos por sus respuestas, las probaré y les comento