Macro autollenar celda contigua.
Buenos días,
Necesito un código para realizar los siguiente en MS Excel:
Al llenar una celda de la columna A, automáticamente se ingrese una fórmula en la celda contigua de la colunmna B.
La idea es que la macro se ejecute automáticamente, es decir que el usuario no tenga que hacer uso de un botón o ir al listado de macros.
Saludos y muchas gracias.
Necesito un código para realizar los siguiente en MS Excel:
Al llenar una celda de la columna A, automáticamente se ingrese una fórmula en la celda contigua de la colunmna B.
La idea es que la macro se ejecute automáticamente, es decir que el usuario no tenga que hacer uso de un botón o ir al listado de macros.
Saludos y muchas gracias.
1 Respuesta
Respuesta de angelcrisnor
1
Lo que necesitas para conseguir eso es hacer una macro de control de eventos.
En concreto la siguiente (tiene que llamarse así) y tienes que copiarla como código VBA dentro de la Hoja donde tengas las celdas (no tienes que copiarlo a un Módulo de macros).
Te la copio más abajo. Lo único que tendrías que cambiar es la FÓRMULA (yo me he inventado una cualquiera), que te lo marco en negrita.
Si tienes cualquier duda o problema no dudes en decírmelo.
Saludos
Angel
++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub Worksheet_Change(ByVal CeldaEditada As Range)
ColumnaCeldaEditada = CeldaEditada.Column
If ColumnaCeldaEditada = 1 Then
FilaCeldaEditada = CeldaEditada.Row
CeldaDerecha = "B" + Trim(Str(FilaCeldaEditada))
Range(CeldaDerecha).FormulaR1C1 = "=SUM(R[-1]C[-1]:RC[-1])"
End If
End Sub
En concreto la siguiente (tiene que llamarse así) y tienes que copiarla como código VBA dentro de la Hoja donde tengas las celdas (no tienes que copiarlo a un Módulo de macros).
Te la copio más abajo. Lo único que tendrías que cambiar es la FÓRMULA (yo me he inventado una cualquiera), que te lo marco en negrita.
Si tienes cualquier duda o problema no dudes en decírmelo.
Saludos
Angel
++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub Worksheet_Change(ByVal CeldaEditada As Range)
ColumnaCeldaEditada = CeldaEditada.Column
If ColumnaCeldaEditada = 1 Then
FilaCeldaEditada = CeldaEditada.Row
CeldaDerecha = "B" + Trim(Str(FilaCeldaEditada))
Range(CeldaDerecha).FormulaR1C1 = "=SUM(R[-1]C[-1]:RC[-1])"
End If
End Sub
