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

Reformular esta macro, ordenar por orden alfabético.

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 : 32
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

Volver arriba


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