procedimiento demasiado largo

[jhonmaracacio]

Buenas noches, he estado buscando como mejorar o simplificar los codigos del siguiente macro, y no logro mejorarlo, si alguien me puede orientar al respecto, por favor.

me suman casi 2000 lineas de codigo, quisiera que fuera mas corto.

CAJA DIARIA CHUCHERIA.rar

[Toldeman]

Hola.

Con este codigo te funciona en todas las columnas pares excepto en la columna 2:

If CInt(Target.Column) Mod 2 = 0 And Target.Column > 3 Then
Target.Offset(, 1) = Target.Offset(, 1) + Target.Value
End If

Saludos.

[Antoni]

Hola a ambos dos:

Una burda copia de la ingeniosa solución de Toldeman

, al que aparte de saludar le deseo suerte para esta noche, pero basándose en el color de la celda D13.

Private Sub Worksheet_Change(ByVal Target As Range)


   If Target.Interior.Color = Range("D13").Interior.Color Then

      Target.Offset(0, 1) = Target.Offset(0, 1) + Target.Value

   End If


End Sub


[/CODE]

Saludos