La macro no se activa al copiar y pegar.

[Ricardo León]

Buenas queridos amigos, ¡¡¡SOS!!! [highlight=#FFFFAA]¡¡¡SOS!!![/highlight] :shock:

Un amigo y yo llevamos días intentando finalizar una macro para una aplicación de turnos de nuestro trabajo...

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í

 

[Macro Antonio]

Hola:

Yo lo dejaría así:

Private Sub Worksheet_Change(ByVal Target As Range)
   For Each Celda In Target
      If Celda.Column / 2 = Int(Celda.Column / 2) And Celda.Row <= 2529 Then...

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! Ricardo (y Antoni). Otra variante:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Casos, cIndex, i%
Casos = Array("baja", "bajah", "hsh", "cuh", "vac", "exc", _
  "no"...

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í