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

Ambito de ejecución de una macro (sencilla)

Genial @DiegoPC
Ahora lo tengo claro !
Un abrazo amigo.
Muchas gracias
Rubén

Por RubenDario, · publicado hace 13 horas 13 hr
VBA que me recupere la fórmula cuando la celda se quede vacía

Buenas tardes @MANTONIOPM
Un gusto coincidir @Israel Cassales siempre muy interesantes sus participaciones.
Me permito "meter mi cucharita" para aclarar un tema que me parece importante: El objeto Range tiene dos propiedades importantes: Formula y FormulaLocal. Cuando usamos la primera, la fórmula se debe escribir siempre en inglés y cuando usamos la segunda, se escribe en el idioma que tiene instalado el usuario. Por eso en mis macros siempre uso Formula y las hago en inglés, porque así no me arriesgo a que no funcione en otras computadoras. Por lo tanto, no debería haber ningún problema con el idioma.

Por DiegoPC, · publicado el domingo a las 18:203 días
Ambito de ejecución de una macro (sencilla)

Hola Ruben
Solo deberías escribir esto. Esa línea hace que si el nombre del libro donde está la macro (thisworkbook) es diferente al nombre del libro donde se encuentra el usuario (libro activo = Activeworkbook)

Por DiegoPC, · publicado el viernes a las 22:515 días
VBA que me recupere la fórmula cuando la celda se quede vacía

Entiendo que en el momento que tuviera dos celdas consecutivas sin fórmula que tuviera que recuperar ese código que planteas no me valdría, porque estoy copiando una fórmula que no existe de la celda de arriba en la celda de abajo de ella.
imagino que con borrar unas lineas te refieres a eliminar esos registros, estirar hacia abajo la tabla y en las nuevas líneas creadas añadirlos al final con los datos que tuvieran los antiguos, con las fórmulas arrastradas y creadas de nuevo. Entonces habria que escribir a mano todos los datos de cada columna a rellenar de todas las filas nuevas, dando lugar a cometer errores de copia/pega o reeescritura. Además, los registros los tengo ordenados con cierto orden , le perdería.
es lo que comentaba antes, era solución funcional trabajando con un excel en el mismo idioma en los dos ordenadores, por eso esto queda descartado, ya que por lo que veo excel no reconoce las funciones de un idioma a otro.
No sé, la verdad que me sorprende un poco que no se pueda hacer lo que planteo aquí al inicio.. Al final me voy a conocer todos los foros, ajja. Un saludo!

Por MANTONIOPM, · publicado el 11 de septiembre11 sep
VBA que me recupere la fórmula cuando la celda se quede vacía

Entiendo lo que expone porque he leído el tema en ambos foros, y aunque lo plantea distinto, el punto de los idiomas y la forma de trabajar lo tiene usted de origen, eso no cambia. Me pareció importante mencionarlo aquí, para que se encuentren también todos los elementos y los avances con limitaciones que se ha encontrado usted en el proceso.
Podría juzgar el aporte innecesario de mi parte si no creo decirle algo distinto, aunque sigo considerando que en su caso la fórmula original está en la tabla y no se pierde al borrar unas líneas, independiente de la cantidad. Es decir, con VBA copiar de la celda de arriba más próxima la fórmula a las de abajo que no la tienen. Si ya tiene una solución funcional del Maestro Leopoldo, tal vez explorar desde ahí soluciones complementarias le traiga mejores propuestas.
En ambos foros participan en gran medida pero en distintas ocasiones los mismos maestros, así que es muy probable seguir recibiendo aportes.

Por Israel Cassales, · publicado el 10 de septiembre10 sep

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

Ambito de ejecución de una macro (sencilla)

VBA que me recupere la fórmula cuando la celda se quede vacía

Ambito de ejecución de una macro (sencilla)

VBA que me recupere la fórmula cuando la celda se quede vacía

VBA que me recupere la fórmula cuando la celda se quede vacía

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)