Copiar fórmula de arriba

Queridos Expertos en Excel, como hago para hacer una macro con la cual:
Estando escriba algo en A2 y al presionar enter, ¿la fórmula que esta en B1 se copie a B2?
Muchas Gracias por su atención.

1 Respuesta

Respuesta
1
Entrá al Editor (alt+F11), seleccioná con doble clic el objeto HOJA donde quieras trabajar y allí escribí la siguiente rutina. Si las referencias de fila y col serán otras tendrás que ajustarla .
Private Sub Worksheet_Change(ByVal Target As Range)
'establezco el rango a evaluar. Empieza a partir de la fila3,
'en fila2 estará la primer fórmula a copiar.
If Target.Column = 1 And Target.Row > 2 Then
Target.Offset(0, 1).Select
Selection.AutoFill Destination:=Range(Target.Offset(-1, 1).Address, Target.Offset(0, 1).Address), Type:=xlFillDefault
End If
End Sub
Pruébala y si el tema quedó solucionado no olvides finalizar la consulta
Elsa, con este y el dato que me mandaste por mail, algo voy a lograr seguro. Después posteo el resultado.
La voy a dar por finalizada así no molesto a nadie más por ahora.
Muchísimas Gracias !
Viva Punilla !
Matías
Lo solucioné así y anda al pelo.
¿Tendrá alguna contra?
Private Sub Worksheet_Change(ByVal target As Range)
If target.Column = 3 Then
Cells(target.Row, target.Column + 1).FormulaR1C1 = "=VLOOKUP(RC[-1],'Stock'!C[-2]:C[-1],2,0)"
Range("e" & LTrim(Str(target.Row))).Value = Range("e" & LTrim(Str(target.Row))).Value
End If
End Sub
Toy muy contento !
Gracias !

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro que cambie fuente de letra en fila

Quisiera saber si me podrían apoyar; tengo una macro: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 17 Then On Error GoTo fin Select Case Target.Value Case "EN CLIENTE CARGANDO" Range("A" & LTrim(Str(Target.Row)) & ":Q" &...
1 respuesta

Celda Activa, presionar enter para disparar Macro

Quiero hacer una macro que al dar ENTER en una celda dispare una macro, en la hoja "AL 1-MAR-08" en la columna A escribo un código, lo que hace la macro es buscar ese código en otra hoja "CATALOGO PROD", al encontrarlo, brinca 1 columna y el valor de...
1 respuesta

Macro para copiar fórmulas

Tengo un libro excel con demasiadas fórmulas y por lo tanto pesado y lento en los cálculos, ya que hay demasiadas filas sin datos pero con fórmulas, voy recién en la fila 500 con datos pero con fórmulas lo deje hasta la 5000 para los cálculos y no...
1 respuesta

Auto ejecutar una macro

Quiero que se autoejecute una macro que tengo en un libro pero no se como ya que soy muy novato, el nombre de la macro es Private Sub Worksheet_Change(ByVal Target As Range).
1 respuesta

Asignar formato moneda a celda

Junto con saludar, tengo el siguiente problema: Necesito asignar formato de moneda a una celda pero el tipo de moneda dependerá del valor que sea indicado en una deterninada celda. Ejemplo: Si en la celda A1 escribo USD, el formato de la celda C1...
1 respuesta

Hacer referencia a un valor en una hoja distinta macro

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'rango hasta la celda 2000 If Not Intersect(Target, Range("H2:H2000")) Is Nothing Then 'columna H actualizando col G Target.Offset(0, -1) = Target.Offset(0, -1).Value - Target.Value 'acumula...
1 respuesta

Como ejecutar una macro con celdas bloqueadas

Tengo la siguiente macro: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 8 Then Target.Offset(0, 1) = Date End Sub El panorama es asi; tengo la hoja completamente protegida, solo algunas celdas donde ingresar datos, en este...
1 respuesta