UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Mi 1 Consulta

0% 0% [ 0 ]
0% 0% [ 0 ]
Votos Totales : 0

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

David Martinez


Buen dia 

No soy experto en Maros. Crying or Very sad
Encontré este código en la Red y no se ejecuta pues marca un error.

error que marca:
Error de Complilacion:
No se ha definido Sub o Function.
y marca supuestamente el error a mi entenderlo señala en la linea que Dice "borra"

Lo que debería de hacer este código es lo siguiente:
Si A1 >= 1 Entonces Borra A2
SI A2 >= 1 Entonces Borra A1.

y pues no lo hace Sad
 
De antemano agradezco su colaboración y me puedan ayudar a resolverlo.

Saludos Very Happy

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Dim x#, y#

If Application.Intersect(Target, Range("A1:A2")) Is Nothing Then

    x = Range("A1")
    y = Range("A2")
    
    If x >= 1 Then borra
    If y >= 1 Then borra2

End If
Application.EnableEvents = True
End Sub
Archivos
Mcro Borra Condicionado v2.xlsm
No tienes los permisos para descargar los archivos.
(14 KB)

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.