Saltar al contenido

Incrementar celda seleccionada

publicado

Buenos días,
Necesito ayuda para crear una pequeña macro:
El valor que hay en la celda que seleccione debe incrementarse con el valor existente en la misma fila más el valor en la misma fila 5 columnas antes.
Esto ocurrirá al ejecutar la macro (lo haré con combinación de teclas (alt+n))
Espero puedan ayudarme.

Muchas gracia!

Featured Replies

publicado

No se si será lo que necesitas, ejecuta la macro con  Control + n

image.gif

publicado
Sub IncrementarValor()
    If TypeName(Selection) = "Range" And Selection.Cells.Count = 1 Then
        Set cel = Selection
        If Not IsEmpty(cel.Value) Then
            valor = cel.Value
            cel.Value = valor + cel.Offset(0, -5).Value
        Else
            MsgBox "La celda seleccionada está vacía.", vbExclamation
        End If
    Else
        MsgBox "Por favor, selecciona una única celda.", vbExclamation
    End If
End Sub

 

Libro1.xlsm

publicado
  • Autor

Esto era. Mil gracias. 

Archivado

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