Función msgbox

publicado el 28 de junio8 años

Buen día,

Me puede ayudar con la funcion msgbox, que me arroje el mensaje "Información Almacenada"; estoy intentando incluirla en un codigo para guardar informacion a partir de un formulario, pero no se en que parte del codigo ubicarla, el codigo que diseñe es el siguiente:

Sub GUARDAR()
'
' GUARDAR Macro
'

'
    Application.ScreenUpdating = False
    Range("W6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Consolidado").Select
    Range("A2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A2000").Select
    Sheets("Formulario").Select
    Range("AE6:AF6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Consolidado").Select
    Range("B2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B2000").Select
    Sheets("Formulario").Select
    Range("D6:S6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Consolidado").Select
    Range("C2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("B12:F12").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("D2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("H12:Q12").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("E2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("S12:AH12").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("F2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("E15:J15").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("G2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("O15:AE15").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("H2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A21:F21").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("I2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("I2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("G21:L21").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("J2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("J2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("M21:R21").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("K2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("K2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("S21:X21").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("L2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("L2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("Y21:AB21").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("M2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("M2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("AC21:AI21").Select
    Selection.Copy
    Sheets("Consolidado").Select
    ActiveWindow.SmallScroll ToRight:=12
    Range("N2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A25:E25").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("O2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("O2000").Select
    Sheets("Formulario").Select
    Range("F25:K25").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Consolidado").Select
    Range("P2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("P2000").Select
    Sheets("Formulario").Select
    Range("L25:Q25").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Consolidado").Select
    Range("Q2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("Q2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A25:E25").Select
    Selection.ClearContents
    Range("S25:W25").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("R2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("R2000").Select
    Sheets("Formulario").Select
    Range("X25:AC25").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Consolidado").Select
    Range("S2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("S2000").Select
    Sheets("Formulario").Select
    Range("AD25:AI25").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Consolidado").Select
    Range("T2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("T2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("S25:W25").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=6
    Range("A28:Q28").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("U2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("U2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("R28:V28").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("V2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("V2000").Select
    Sheets("Formulario").Select
    Range("W28:AB28").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Consolidado").Select
    Range("W2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("W2000").Select
    Sheets("Formulario").Select
    Range("AC28:AI28").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Consolidado").Select
    Range("X2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("X2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("R28:V28").Select
    Selection.ClearContents
    Range("A31:F31").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("Y2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("Y2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("G31:N31").Select
    Selection.Copy
    Sheets("Consolidado").Select
    ActiveWindow.SmallScroll ToRight:=5
    Range("Z2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("Z2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("X31:AI31").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("AA2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AB2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("O31:W31").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AB2000").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=3
    Range("G34:N34").Select
    Selection.Copy
    Sheets("Consolidado").Select
    Range("AC2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range(Selection, Cells(1)).Select
    Range("A1:AJ2000").Select
    Range("AC2000").Activate
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Consolidado").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Consolidado").Sort.SortFields.Add Key:=Range( _
        "AC2:AC2000"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Consolidado").Sort
        .SetRange Range("A1:AJ2000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
    Sheets("Formulario").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("D6:S6").Select
    Application.ScreenUpdating = True
End Sub

publicado el 28 de junio8 años

Inmediatamente antes de End Sub:

Msgbox "Información almacenada", vbInformation,"Resultado del proceso"

Supongo que la macro las has construido con la grabadora de macros.

Usar la grabadora de macros es una gran idea para aprender a realizar macros, no obstante, y porqué no puede ser de otra manera, genera una gran cantidad de código innecesario.

Te dejo un ejemplo de una conversión de código generado por la grabadora de macros a un código mas eficiente:

Sub Esto()
    Sheets("Formulario").Select
    Range("AE6:AF6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Consolidado").Select
    Range("B2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B2000").Select

End Sub


Sub SePuedeSustituirPorEsto()
    Sheets("Formulario").Range("AE6:AF6").Copy
    Sheets("Consolidado").Range("B2000").PasteSpecial xlPasteValues
End Sub

publicado el 29 de junio8 años

aparte del buen consejo de Antoni, si sigues queriendo el msgbox, pues debería ir al final del proceso ¿no?

With ActiveWorkbook.Worksheets("Consolidado").Sort
        .SetRange Range("A1:AJ2000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
MsgBox "Proceso completado"
end sub

Todo lo que hay después del End With sobra

8 años8 años Enigma25 bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

192 Archivos
99 Comentarios
30 Revisiones
Última descarga

Cómo conservar la función AHORA()
- 1

Ayuda formula power pivot All u otra

Buenas tardes, tengo un excel y estoy trabajando con power pivot y necesito ayudar con un calculo para insertar en un grafico. En mi grafico necesito en el eje x los meses y en el eje y donde necesito la formula en %.
la formula que necesito es que me calcule el porcentaje de la Cantidad de horas de la Categoria Tiempo (Adicional) que yo escoja en el segmentador de Categoria Tiempo (Adicional) dividido en la cantidad de hora del mes correspondiente el el grafico. por Ejemplo si en julio se tuvo 200 hrs de perforacion y un total de horas en ese mismo mes con todas las Categorias Tiempo (Adicional) de 5000 hrs equivale a un 4% y si en agosto tengo 1000 hrs de perforacion y un total de 4000 hrs equivale a un 25% en agosto y si cambio de segmentador me de el de esa Categoria Tiempo (Adicional)

Por pato10x, · publicado el viernes a las 14:101 día
Nuevo diseño del foro

Muchas gracias @RubenDario

Por Sergio, · publicado el 28 de agosto28 ago
Ambito de ejecución de una macro (sencilla)

Hola @RubenDario
Faltaría que en cada línea dentro del With le pongas un punto al inicio
With Hoja1
.Range("B6:B18,F6:F18,J6:J18").Select
.Range("J6").Activate
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
.Selection.ClearContents
.Range("A1").Select
End With
Sin embargo, lo que yo haría (si fuese mi proyecto)... te ofrezco varias soluciones.
No asignarlo a una combinación de teclas, mejor ponerlo en una forma o botón.
Modificar tu libro con la app Custom UI Editor o similar y adicionar un botón en el Ribbon, estará visible solo cuando el libro esté activo.
Al principio de tu código pondría algo como: If Thisworkbook.Name <> ActiveWorkbook.Name Then Exit sub

Por DiegoPC, · publicado el 28 de agosto28 ago
Nuevo diseño del foro

Buenos días!
Estimado @Sergio es una verdadero placer ver y navegar por el nuevo diseño.
Estoy seguro que muchos de los que estamos aquí lo estamos disfrutando.
El día de ayer 27 de agosto ingresé de nuevo y me llevé una grata sorpresa.
Muchas felicidades maestro !!
Rubén.

Por RubenDario, · publicado el 28 de agosto28 ago
Ambito de ejecución de una macro (sencilla)

Hola amigos
Adjunto un archivo de uso diario en el cual me funciona bien una macro de limpieza de rangos específicos.
Quiero estar seguro que si abro otro archivo no se ejecute en éste recién abierto la misma macro si presiono (por equivocación) las teclas de acceso directo. En este caso Ctrl+Mayus+V.
Lo hice con grabación de macros y al código generado yo le agregué "With Hoja1" y su correspondiente "End With".
¿Debo en alguna parte del código (supongo que al principio) agregar algo más? Algo como "ThisWorkbook" u otra propiedad...
Gracias de antemano
Rubén
000000 Transferencias.xlsm

Por RubenDario, · publicado el 27 de agosto27 ago

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Función msgbox

Featured Replies

Archivado

Archivos

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Cómo crear hipervínculos inteligentes con fórmulas

Cambios en el Control Horario

Estadísticas de descargas

Mensajes

Ayuda formula power pivot All u otra

Nuevo diseño del foro

Ambito de ejecución de una macro (sencilla)

Nuevo diseño del foro

Ambito de ejecución de una macro (sencilla)

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)