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

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

6luishao6


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.

ioyama

avatar
Hola

Si antes de Range("B17:B46").Select, pones las dos líneas que te adjunto

nota = MsgBox("¿Está segurio de que quiere ordenar por orden alfabético?", vbYesNo, "Ordenar")
If nota = 7 Then Exit Sub

te saldrá un mensaje preguntando

Un saludo desde Vitoria

6luishao6


Gracias

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.