Jump to content

Recommended Posts

Hola, soy nuevo en la comunidad y tengo el siguiente problema:

Genere algunos formularios con MsgBox en Office365 en Windows OS 10, estos mensajes me aparecen delante de formulario y se ejecutan sin problemas, pero al momento de ejecutar el mismo documento en OS MAC todos los MsgBox aparecen detrás del formulario y debo correr el formulario hacia un lado para seleccionar la acción y seguir.  Aplique el vbMsgBoxSetForeground  dentro de la sintaxis, pero aun así persiste el incidente y esto solo pasa en MAC. 

Ejemplo de una configuración.

Private Sub SalirA_Click()
Dim Pregunta As String
Pregunta = MsgBox("¿Desea salir?", vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Prueba")

    If Pregunta = vbYes Then

'cerrar formulario
     Unload Me
    End If
End Sub

Link to post
Share on other sites
Hace 43 minutos , Panchuko dijo:

esto solo pasa en MAC

es probable que mac no lea todas las constantes por nombre, prueba a cambiarlas por su constante numerica:
vbYesNo => 4
vbQuestion => 32
vbMsgBoxSetForeground => 65536

o incluso, algunos entornos toman "precedencia" sobre otros, prueba a cambiar de setforeground a:
vbSystemModal => 4096

Link to post
Share on other sites
En 8/4/2021 at 1:05 , Héctor Miguel dijo:

es probable que mac no lea todas las constantes por nombre, prueba a cambiarlas por su constante numerica:
vbYesNo => 4
vbQuestion => 32
vbMsgBoxSetForeground => 65536

o incluso, algunos entornos toman "precedencia" sobre otros, prueba a cambiar de setforeground a:
vbSystemModal => 4096

Héctor, gracias por tu respuesta pero a pesar de cambiar a valor numérico pero aun me mantiene el problema mostrándome el mensaje detrás del formulario.

 

 

Link to post
Share on other sites
Hace 39 minutos , Panchuko dijo:

a pesar de cambiar a valor numérico... el mensaje detrás del formulario

no se si esto funciona en mac (hace mucho que no lo uso)

antes de mostrar el mensaje, agrega estas dos lineas:

  AppActivate Application.Caption
  DoEvents

si no funciona, buscamos otras alternativas

Link to post
Share on other sites
En 16/4/2021 at 1:43 , Héctor Miguel dijo:

no se si esto funciona en mac (hace mucho que no lo uso)

antes de mostrar el mensaje, agrega estas dos lineas:


  AppActivate Application.Caption
  DoEvents

si no funciona, buscamos otras alternativas

No funciono lo indicado.

Lo que si me funciono es cambiar el modo del formulario a No Modal y ahí los mensajes empezaron a aparecer delante de cada formulario.

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Crear macros Excel

  • Posts

    • Sustituye tu macro por esta: Sub Sumar() Dim fila As Byte Application.ScreenUpdating = False With Sheets("STOCK") .Range("H3:L7") = "" For I = 2 To .Range("A" & Rows.Count).End(xlUp).Row - 1 fila = 0 Select Case .Range("B" & I).Interior.Color Case Range("H3").Interior.Color: fila = 3 Case Range("H4").Interior.Color: fila = 4 Case Range("H5").Interior.Color: fila = 5 Case Range("H6").Interior.Color: fila = 6 End Select If fila > 0 Then .Range("I" & fila) = .Range("I" & fila) + .Range("F" & I) .Range("I7") = .Range("I7") + .Range("F" & I) .Range("J" & fila) = .Range("I" & fila) / 2.8 .Range("J7") = .Range("I7") / 2.8 .Range("L" & fila) = (.Range("L" & fila) + .Range("B" & I) * .Range("F" & I)) .Range("L7") = (.Range("L7") + .Range("B" & I) * .Range("F" & I)) End If Next For I = 3 To 7: .Range("K" & I) = .Range("L" & I) / .Range("I" & I): Next .Range("L3:L7") = "" End With End Sub  
    • @santravis perdona por la tardanza, voy muy mal de tiempo. Te dejo una idea para empezar... con unas puntualizaciones. No he resuelto las columnas que son combinacion de dos. Cuidado con los titulos de las columnas de la hoja ordenado, tienen al final un espacio y los nombres asi no son identicos a los homonimos de la hoja 1archivo consulta.xlsx archivo consulta.xlsx
    • muchísimas gracias! funciona perfecto y lo he probado adaptándolo a lo mío y también va bien. ;). Gracias!
    • Para la creación de la TC hay distintas formas, pero cada una es valida En efecto Jose, PBI es un gran universo pero Excel siempre será nuestro gran aliado, y es además un gran complemento de PBI   Saludos 
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy