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

Reformular esta macro, ordenar por orden alfabético.

Ver el tema anterior Ver el tema siguiente Ir abajo

Reformular esta macro, ordenar por orden alfabético.

Mensaje por 6luishao6 el Jue Ene 19, 2017 2:09 pm

Buenas mi pregunta es la siguiente,
Tengo esta macro:
----------------------------------------------------------------
Sub orde()

   Range("B17:B46").Select
   ActiveWorkbook.Worksheets("AFILIACIÓN").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("AFILIACIÓN").Sort.SortFields.Add Key:=Range("B17"), _
       SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("AFILIACIÓN").Sort
       .SetRange Range("B17:K46")
       .Header = xlNo
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
End Sub
-----------------------------------------------------
Bueno hasta hay corre bien la macro, pero quiero que me haga una pregunta antes de proceder con la macro, con un mensaje de aceptar el orden alfabético o no aceptar el orden alfabético.
Gracias espero su ayuda.

6luishao6

Masculino Cantidad de envíos : 24
Edad : 30
Ciudad - Pais : venezuela
Version de Excel : 2007 - 2010
Fecha de inscripción : 18/04/2015

Volver arriba Ir abajo

Re: Reformular esta macro, ordenar por orden alfabético.

Mensaje por P@li el Lun Ene 23, 2017 8:48 pm

Hola 6luishao6,

Tendrias que usar lanzar un mensaje con msgbox, algo asi:

Código:


if msgbox( "aceptar el orden alfabético o no aceptar el orden alfabético",vbYesNo ,"Mensaje") =vbYes then
    'ejecuta este bloque cuando ponen que si
else
    'ejecuta este bloque cuando ponen que no
end if



Saludos,
Pablo.

P@li
Admin

Masculino Cantidad de envíos : 243
Edad : 34
Ciudad - Pais : Buenos Aires, Argentina
Version de Excel : Microsoft Excel 2002 (10.2614.2625)
Fecha de inscripción : 03/03/2008

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.