............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Parar una macro

Ver el tema anterior Ver el tema siguiente Ir abajo

Parar una macro

Mensaje por pueta el Dom Dic 11, 2011 11:23 am

saludos , tengo una macro que ejecuto repetidas veces , quisiera saber cual es el codigo para que esta se repita las veces que haga falta y esta se pare cuando el valor de una celda a1 sea el numero 100 por ejemplo, Gracias por vuestra atencion y tiempo

pueta

Masculino Cantidad de envíos : 33
Edad : 54
Ciudad - Pais : barcelona
Version de Excel : 2003 y 2007
Fecha de inscripción : 09/03/2011

Volver arriba Ir abajo

Re: Parar una macro

Mensaje por ioyama el Lun Dic 12, 2011 9:54 am

Hola pueta

Dentro de tu bucle de repetición tienes que poner algo como

IF Range("A1")=100 Then Exit Sub

Con esto debería valerte

Un saludo desde Vitoria

ioyama
Moderador
Moderador

Masculino Cantidad de envíos : 128
Edad : 54
Ciudad - Pais : Vitoria (España)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: Parar una macro

Mensaje por pueta el Lun Dic 12, 2011 7:35 pm

Muchas gracias por tu atención, lo he probado y no funciona pero es culpa mia ya que he colocado esta linea a final del codigo , Una macro que grabe con la grabadora , y me da error de compilacion END WITH SIN WITH . y no se seguir , Gracias

pueta

Masculino Cantidad de envíos : 33
Edad : 54
Ciudad - Pais : barcelona
Version de Excel : 2003 y 2007
Fecha de inscripción : 09/03/2011

Volver arriba Ir abajo

Re: Parar una macro

Mensaje por ioyama el Mar Dic 13, 2011 9:50 am

Hola pueta

Si no el archivo, sube al menos la macro, e indica cuándo quieres que se pare y quién da el valor de 100 a la celda de control.

Un saludo desde Vitoria

ioyama
Moderador
Moderador

Masculino Cantidad de envíos : 128
Edad : 54
Ciudad - Pais : Vitoria (España)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: Parar una macro

Mensaje por pueta el Mar Dic 13, 2011 1:02 pm

Hola , antes de nada darte las gracias por tu tiempo ,esta es la macro en cuestion y quiero que se pare cuando la celda E499 tenga un valor de 100
gracias

Sub ORDENARACACIONESV()
'
' ORDENARACACIONESV Macro
'

'
Application.ScreenUpdating = False
Range("E499:NH499").Select
Selection.Copy
Range("E999").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E505:NH999").Select
Range("E999").Activate

Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Hoja2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Hoja2").Sort.SortFields.Add Key:=Range("E999"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Hoja2").Sort
.SetRange Range("E505:NH999")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply


Range("E499").Select
ActiveCell.FormulaR1C1 = "=MAX(R[6]C:R[451]C)+1"
Range("C501").Select


Range("NP495:NP500").Select
Selection.Copy
Range("NH495").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("G495:NH500"), Type:=xlFillDefault
Range("G495:NH500").Select
Range("E492").Select












Application.ScreenUpdating = True

End With

Range("D501").Select

pueta

Masculino Cantidad de envíos : 33
Edad : 54
Ciudad - Pais : barcelona
Version de Excel : 2003 y 2007
Fecha de inscripción : 09/03/2011

Volver arriba Ir abajo

Re: Parar una macro

Mensaje por moises melgar el Mar Dic 13, 2011 6:18 pm

Hola Pueta
Para repetir una macro tantas veces sea necesario se usa un Bucle
existen:

Do...Loop: Seguir en el bucle mientras o hasta una condición sea True.

For...Next: Utilizar un contador para ejecutar las instrucciones un número determinado de veces.

For Each...Next: Repetición del grupo de instrucciones para cada uno de los objetos de una colección.

pero claro para poder elaborar el bucle hay que tener bien claro cuales son las condiciones por la que se pueda repetir una instruccion
Ahora las condicionante If ira dentro del Bucle

ejemplo:
Código:
sub ejemplo ()
For x = 1 to 100 'ejecuta un bucle que pasara de 1 en 1 hasta el 100 (los valores pueden proceder de otro calculo, pero siempre y cuando el resultado sea un numero)
    if x = 99 then ' mi condicion del bucle es que cuando el bucle llegue a su vuelta 99 se detenga y no llegue a 100 (si x [nombre del bucle] = 99 entonces...)
      Exit sub  ' al estar abajo de If esta parte indica que pasa si la condicion de arriba es verdadera (es la instrucicon que te saca del codigo)
  else:  'el else es el false a nuestra condicion (recurdar que pedimos que x = 99, si no es 99 se ejecutara la instruccion abajo del Else)
      range("A" & x).value = x  ' selecciona el rango A & x (recuerd que x pasara de 1 en 1 hasta el 100) por lo que en cada vuelta eso sera A1,A2,A3...hasta el A100
  end if 'cada vez que se coloca un If debe existir un end if
Next x  ' next x determina que la vuelta a terminado y pasara de nuevo a la linea del For x, hasta que x sea 100 (el realizado es de 1 to 100) o salga por Exit sub
end sub
(se que no es un codigo muy imaginativo pero solo es de ejemplo)

Te pido que adjuntes el libro para poder comprender bien el caso, tanto para mi como para los demas, veo el codigo y aunque comprenda bien los que hace cada parte me cuesta mucho trabajo enterder la funcion de esto, ya que deja ideas fuera como si el rango seleccionad es fijo o aumeta o existen valores que depende de otros..........

Para Adjuntar el Archivo abajo de donde se escribe el mensaje dale "previsualizacion" y este te llevara a otra vista del mensaje, en la parte inferior de ahi dice Anadir archivo, dale "Examinar", luego "Enviar consulta" y al enviar el mensaje se visualizara el archivo en la parte inferior del mismo
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 563
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Parar una macro

Mensaje por pueta el Miér Dic 14, 2011 4:48 pm

Saludos , solo tengo que agradecer tu atencion , aqui te mando el archivo comprimido he estado eliminando datos y formatos por que excedia la capacidad que podia mandar , solo he dejado un mes que se visualiza , tenia todo el año , de ahi que en la macro llegue hasta la columna NH, lo que hago en la fila 499 es trabajar y modificarla y luego la macro lo que hace es copiarla , pegar sus valores en la fila 1000 , luego procedo a ordenar todo lo seleccionado (de la fila 505 a la 999 ) , luego restauro los valores que tengo en la columna NP y los arratro por sus correspondientes filas y asi recupero formulas y luego en formulo para que me de el proximo lineal que necesito , Se por supuesto que es una forma muy "cutre" de hacerlo , que tiene que haber cientos mejores ,
Te doy las gracias por todo

pueta

Masculino Cantidad de envíos : 33
Edad : 54
Ciudad - Pais : barcelona
Version de Excel : 2003 y 2007
Fecha de inscripción : 09/03/2011

Volver arriba Ir abajo

Re: Parar una macro

Mensaje por moises melgar el Miér Dic 14, 2011 4:50 pm

Para Adjuntar el Archivo abajo de donde se escribe el mensaje dale "previsualizacion" y este te llevara a otra vista del mensaje, en la parte inferior de ahi dice Anadir archivo, dale "Examinar", luego "Enviar consulta" y finalmente presiona "Enviar" el mensaje se visualizara el archivo en la parte inferior del mismo
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 563
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Parar una macro

Mensaje por pueta el Miér Dic 14, 2011 4:54 pm

A ver ahora
Archivos
PLANA.zip PARAR UNA MACRONo tienes los permisos para descargar los archivos.(164 KB) Descargado 13 veces

pueta

Masculino Cantidad de envíos : 33
Edad : 54
Ciudad - Pais : barcelona
Version de Excel : 2003 y 2007
Fecha de inscripción : 09/03/2011

Volver arriba Ir abajo

Re: Parar una macro

Mensaje por moises melgar el Miér Dic 14, 2011 5:00 pm

ahora si ya esta adjuntado, ahora si cualquier miembro podra ver y bajar el archivo para colaborar con sus ideas, luego te dare mi idea de la macro para que se lo adaptes.
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 563
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Parar una macro

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


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