Agregar una fórmula a un rango de celdas
Buenos días. Necesito ayuda con una macro. Tengo un archivo en el cual tengo datos en la columna "A" y necesito agregar una fórmula "X" en la columna "B" para cada valor encontrado en "A". Tanto los valores en la columna "A" y las fórmulas en "B" comienzan en la fila 2.
A B
1 Dato Formula
2 2 =A2*12
3 4 =A3*12
4 6 =A4*12
Aguardo sus comentarios.
Saludos.
1 Respuesta
Respuesta de Bruno Yanez
1
Pega éste código en un modulo. Y me cuentas si te funcionó como querías. No olvides calificar.
Sub Macro1()
'
' Acceso directo: CTRL+t '
RowIndex = 2
For Each Row In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
Cells(RowIndex, 2).FormulaR1C1 = "=RC[-1]*12"
RowIndex = RowIndex + 1
Next
End Sub
