Dar Enter y me ejecute la macro y msgbox

Me puedes comentar a qué te refieres con dar "Enter"

Haber si te refieres a esto: En excel para ejecutar una macro en automático se tiene que activar un evento en la hoja, los eventos pueden ser:

- Seleccionar una celda

- Modificar una celda

- Activar una hoja, es decir, seleccionar una hoja

- Desactivar una hoja, es decir, seleccionar otra hoja

- Seguir un hipervínculo

Pero no existe un evento que haga que se ejecute una macro en automático con solamente el hecho de presionar enter.

Es por eso que no entiendo a qué te refieres con:

Dar Enter y me ejecute la macro

Podrías explicar un poco más.

También olvida tu macro, porque no la entiendo, mejor explícame con tus palabras y con ejemplos reales (puedes poner imágenes de tu hoja) lo que necesitas.

Entre más claros sean los ejemplos acompañados de imágenes, más fácil podré entender y más práctico podré ayudarte.

¿Tienes la macro en los eventos de tu hoja?

¿Puedes poner la macro completa?

En tu imagen no se ven las columnas ni las filas de la hoja. Entonces tengo que suponer la columna y la fila, sería más fácil si tu ejemplo es más completo.

¿Y cómo haces para que la macro se ejecute cuando presionas Enter? Me puedes explicar

Es lo que quiero saber si se puede, a lo mejor no me explique bien.

Me refiero a que cuando ya llené los datos solicitados y se cumplen las condiciones, por ejemplo en la última celda L12, pongo $600.00, me mande un msg que me diga si deseo agregar otro cliente, si le doy que si, puedo seguir llenado los datos, si le digo que no, manda llamar un evento que swellama enviar y guarda, convierte en pdf y enviar por correo ese pdf.

en la primer imagen usé un Application.OnKey, pero solo me corre una fila

Esta es la otra parte la Macro

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B11:B20")) Is Nothing Then
Cancel = True
frm_Cliente.Show
Else
End If
If Not Intersect(Target, Range("D11:D20")) Is Nothing Then
frm_Proveedor.Show
Else
End If
End Sub

Sub FormulaRango()
ActiveSheet.Unprotect "Fulcrum07"
Hoja1.Range("E11:E20").Formula = "=IFERROR(VLOOKUP(D11,Proveedores!$A$2:$B$34,2,FALSE),"""")"
ActiveSheet.Protect "Fulcrum07"
End Sub

Sub Enviar()
nombre = Cells(7, 3).Value
folio = Cells(5, 12).Value
fecha = Cells(7, 12).Value
mes = Format(Date, "mmmm")
año = Year(Date)
ruta = "K:\Ordenes de Compra\EXPOSICION\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ruta & nombre & "" & folio, Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Application.DisplayAlerts = False
ActiveSheet.Unprotect "Fulcrum07"
Range("L5").Value = Range("L5").Value + 1
Range("B11:D11,B12:D12,B13:D13,B14:D14,B15:D15,B16:D16,B17:D17,B18:D18,B19:D19,B20:D20,F11:I11,F12:I12,F13:I13,F14:I14,F15:I15,F16:I16,F17:I17,F18:I18,F19:I19,F20:I20,C24:N24,B25:N25,B26:N26,B27:N27,L11:L20,J11:J12").ClearContents
ActiveSheet.Protect "Fulcrum07"
ActiveWorkbook.Save
strReportName = "K:\Ordenes de Compra\EXPOSICION\OrdendeCompra_Jorge Suarez.xlsm"
Dim objOutlook As Object
Dim objMail As Object
Dim objOutlookAttach As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(olMailItem)
Set objOutlookAttach = objOutlook.CreateItem(olAttachMents)
With objMail
'A quien va dirigido el correo
.to = ""
.CC = ""
.BCC = ""
'Se especifica el asunto
.Subject = " O.C. De " & fecha & nombre & folio
'Se escriben el o los archivos a adjuntar en el mail
On Error Resume Next
.Attachments.Add ruta & nombre & " " & folio & " .pdf"
.Body = "Se anexa orden de compra favor de confirmar recepción"
'Se manda el mensaje
.Send
End With
'Se cierran todos los objetos utilizados
Set objMail = Nothing
Set objOutlook = Nothing
ActiveWorkbook.Close
End Sub

Te sugiero que elimines Application. OnKey, ya que cada que des enter en cualquier parte del libro te va a hacer la pregunta.

Lo que tienes que utilizar es el evento Change.

Pon lo siguiente en los eventos de tu hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
'Por Dante Amor
    'Si cambia el valor de la celda en el rango L12 a L20
    If Not Intersect(Target, Range("L11:L20")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target.Value = "" Then Exit Sub
        '
        res = MsgBox("deseo agregar otro cliente", vbQuestion & vbYesNo, "CLIENTES")
        If res = vbYes Then Exit Sub
        '
        Call Enviar 'aquí pones la macro que envía y guarda
    End If
End Sub

Funciona de esta manera, después de modificar alguna celda del rango L11:L20, se activa el evento change, te pregunta si quieres otro cliente, si dices que sí entonces puedes capturar otro cliente. Si dices que no, entonces se ejecuta la macro Enviar.

[' Si es lo que necesitas. No olvides valorar la respuesta. 

¡Gracias! Es lo que quería, de cualquier forma si surge otra duda te puedo volver a molestar?

Muchas gracias por tu apoyo

Una ultima duda, esta rutina la puedo meter dentro de la sub Validar?