Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Macros Excel

Estas en el tema de Macros Excel en el foro de Visual Basic clásico en Foros del Web. Sialguiensabe como crear una macro desde una funcion if de Excel. Gracias Pd: Espero que este sea el FOro adecuado pork no sabia realmente a ...
  #1 (permalink)  
Antiguo 15/06/2005, 10:33
 
Fecha de Ingreso: noviembre-2003
Ubicación: En uno de los países mas lindos: CHILE
Mensajes: 70
Antigüedad: 21 años, 5 meses
Puntos: 0
Macros Excel

Sialguiensabe como crear una macro desde una funcion if de Excel.
Gracias
Pd: Espero que este sea el FOro adecuado pork no sabia realmente a cual consultar
  #2 (permalink)  
Antiguo 15/06/2005, 12:26
5v5
 
Fecha de Ingreso: abril-2005
Ubicación: Huehuetoca, Mexico
Mensajes: 138
Antigüedad: 20 años
Puntos: 0
Por favor se un porco mas claro, que es lo que pretendes hacer..
  #3 (permalink)  
Antiguo 16/06/2005, 11:05
 
Fecha de Ingreso: noviembre-2003
Ubicación: En uno de los países mas lindos: CHILE
Mensajes: 70
Antigüedad: 21 años, 5 meses
Puntos: 0
Me explico

La idea es poder es que se ejecute una macro si se produce un determinado cambio en una celda.
Por ejemplo que al ingresar un valor en una celda automaticamente se oculte la Fila en donde se introdujo el valor.

El cambio de valor de una celda lo puedo determinar con una funcion
(if <celda X> cambia; < que se Ejecute una macro>).
Espero que haya quedado mas claro.
Gracias
  #4 (permalink)  
Antiguo 16/06/2005, 14:06
5v5
 
Fecha de Ingreso: abril-2005
Ubicación: Huehuetoca, Mexico
Mensajes: 138
Antigüedad: 20 años
Puntos: 0
Mira lo una opinion es hacerlo de este modo, en el editor de visual basic, en la parte donde dice;
+ Microsoft Excel Objetos
Hoja1 'das doble click
Hojan....

en el editor de comandos, te aparecen en la parte superior dos combobox, en la parte izquierda, selecciona Worksheet y en la parte derecha selecciona
SelectionChange, Change o el que necesites..... y en el evento metes tus condiciones.....por ejemplo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") > 10 Then
msgbox"jnjhkjhkjhjhkjhkj"
End If
End Sub
espero me haya explicado... y espero tambien te sirva este metodo
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:48.