¿Cómo sumar con 2 los valores de una celda hacia abajo y detenerse la macros hasta una celda vacía?
Supongamos que tengo datos en la columna A, y en la columna B necesito sumar "2" a los datos de la columna A y la macros se suspenda hasta que encuentre una celda vacía en la columna A! Muchas gracias.
1 respuesta
Respuesta de Valero Angel Serrano Mercadal
1
Puedes usar esta macro
Sub sumar2()
Range("A1").Select
While ActiveCell <> ""
If IsNumeric(ActiveCell) Then
ActiveCell.Offset(0, 1) = ActiveCell + 2
End If
ActiveCell.Offset(1, 0).Select
Wend
End SubY eso es todo, espero que te sirva y lo hayas entendido. Si no es así preguntaúntame. Y si ya está bien no olvides puntuar.
Muchas gracias!!
Excelente Valeroasm!!
Hice mi intento y me podrías ayudar, diciéndome... que me faltó aquí?
Sub sumando()
Do While Not IsEmpty(Range("A2:A10"))
ActiveCell.FormulaR1C1 = "=RC[-1]+2"
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Muchas gracias! :)
