Una Macro especial

Tenes que usar el evento:

Private Sub objeto_SheetChange(ByVal Sh As Object, ByVal Source As Range)

Saludos, fer

"Gonzalo" escribió en el mensaje
news:

Necesito construir una macro que realice la siguiente operacion:

Despues de presionar el ENTER al ingresar un numero en una celda de una
hoja se ejecute una macro (por ejemplo que otorgue una trama)
parcedo al formato condicional

Gonzalo:
Este código hace lo que creo que buscás:

Private Sub Worksheet_Change(ByVal Target As Range) 'Target es todo el rango
seleccionado
Dim h As Range

For Each h In Target
'Itero por las celdas del rango (para que no se cuelgue si está
seleccionada más de una celda)
If IsNumeric(h) And h > 0 Then '"Mi" Condición es que el valor sea numérico
y >0
h.Interior.ColorIndex = 6 'Aca va la trama
Else
h.Interior.ColorIndex = 0 'Para que desaparezca si borrás :)
End If
Next h
End Sub

Espero que te sirva
Saludos

Mariano A. Hernández
"Gonzalo" escribió en el mensaje
news:

Necesito construir una macro que realice la siguiente operacion:

Despues de presionar el ENTER al ingresar un numero en una celda de una
hoja se ejecute una macro (por ejemplo que otorgue una trama)
parcedo al formato condicional