Borrar ultimo valor ingresado en Excel con Macros

Al ingresar un valor numérico en cualquier celda, si este valor numérico no es conveniente que salga un msgbox que me de la oportunidad de borrarlo, ojo esto tiene que ser inmediatamente despues de haber ingresado el numero en cualquier celda, no en una especifica.

1 respuesta

Respuesta
1

H o l a:

Pon la siguiente macro en los eventos de tu hoja

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    If Target.Count > 1 Then Exit Sub
    res = MsgBox("Quieres el borrar el último dato ingresado", vbQuestion & vbYesNo, "")
    If res = vbYes Then
        Application.EnableEvents = False
        Target.Value = ""
        Target.Select
        Application.EnableEvents = True
    End If
End Sub

Sigue las Instrucciones para poner la macro en los eventos de worksheet

  1. Abre tu libro de excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
  4. Del lado derecho copia la macro

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas