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

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.

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