Saltar al contenido

¿Cómo agregar un proceso de sumado para agregar puntos?


osccorp1

Recommended Posts

quisiera saber como agrego un numero para ir sumando o ir de forma asendente (1,2,3...) o desendente (-1,-2,-3), lo cual deseo que lo hago una macro hasta ahora tengo esto:

Sheets("MODIFICAR").Select

Range("H10").Select

ActiveCell.FormulaR1C1 = "=SUM(RC[1]+PUNTOS!R[2]C[-5])"

Range("H10").Select

Selection.Copy

Range("G10").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("I10").Select

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = "=RC[-2]"

Range("I11").Select

Range("G5").Select

Sheets("MODIFICAR").Select

Range("H10:I10").Select

With Selection.Font

.ThemeColor = xlThemeColorDark1

.TintAndShade = 0

End With

Range("G10").Select

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.ThemeColor = xlThemeColorDark1

.TintAndShade = -0.349986266670736

.PatternTintAndShade = 0

End With

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

Selection.Borders(xlInsideVertical).LineStyle = xlNone

Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

Selection.Borders(xlInsideVertical).LineStyle = xlNone

Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Sheets("PUNTOS").Select

Range("C11").Select

Selection.ClearContents

pero tengo que hacerlo celda por celda, ya que es un registro de clientes para que se les otorgue un premio llegando a cierto puntaje, como puedo hacer esto para que lo haga las demas celda sin necesidad de hacrelo de esta manera

Enlace a comentario
Compartir con otras webs

Holaosccorp1

Intenta simplificar la consulta ,no hace falta aplicar color,borde,tipo de linea,etc... de la celda para incrementar el valor de la misma.

Como se trata de solucionar el tema con una macro hay un apartado para ello ,puedes editar aqui el tema.

[TABLE=width: 80]

[TR]

[TD=class: xl64, width: 80]Macros y programación VBA[/TD]

[/TR]

[/TABLE]

Sube un archivo de ejemplo ,si tienes alguna duda echale un vistazo a las reglas del foro:.

Reglas del Foro

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.