copia contenuto MsgBox



  • copia contenuto MsgBox
    di Kaos (utente non iscritto) data: 30/03/2016 11:46:05

    Salve dovrei copiare il contenuto del messaggio di una MsgBox ed incollarlo nella cella A8 del foglio 1.



  • di alfrimpa data: 30/03/2016 11:54:42

    Ciao Kaos

    Onestamente non capisco la richesta.

    Il testo di una MsgBox lo decidi tu quindi per inserirlo nella cella A8 basta scrivere

    Range("A8").Value = "Testo MsgBox"

    Cerca di spiegarti meglio (magari con un file.

    Alfredo





  • di Kaos (utente non iscritto) data: 30/03/2016 12:30:01

    Ciao alfrimpa e grazie per aver risposto, il mio probleme che vevo selezionare delle stamapnti per poter stapare i fogli, con la macro sotto scelgo la stampante, e successivamente mi esce il nome e il percorso, tipo il messaggio che allego
    Io vorrei copiare PrimoPDF su Ne02 ed incollaro nella cella
    Allego il codi utilizzato e il messaggio della MsgBox
     
    Sub Stampanti()
    
    Dim strTestoMsgBox As String
     Application.Dialogs(xlDialogPrinterSetup).Show
     MsgBox "Nome della stampante: " & Application.ActivePrinter
     End Sub
    



  • di patel data: 30/03/2016 12:46:23

    così
     
    Sub Stampanti()
    Dim strTestoMsgBox As String
     Application.Dialogs(xlDialogPrinterSetup).Show
     MsgBox "Nome della stampante: " & Application.ActivePrinter
     range("A1") = Application.ActivePrinter
     End Sub






  • di Kaos (utente non iscritto) data: 30/03/2016 13:11:52

    Grazie per l'aiuto adesso funziona tutto