Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

all'apertura di un foglio promemoria

Ultimo Aggiornamento: 22/02/2018 13:32
Post: 214
Registrato il: 02/04/2010
Città: MILANO
Età: 54
Utente Junior
2002
OFFLINE
22/02/2018 10:32

è possibile che quando apro un foglio di excel mi compaia un messaggio box con una frase e che non vava avanti se non clicco ok
excel 2003
Post: 1.814
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
22/02/2018 10:40

Re:
trittico69, 22/02/2018 10.32:

è possibile che quando apro un foglio di excel mi compaia un messaggio box con una frase e che non vava avanti se non clicco ok



Certamente, basta che inserisci il msgBox nell'evento open di ThisWorkbook (Questa cartella di lavoro).

saluti



Domenico
Win 10 - Excel 2016
Post: 214
Registrato il: 02/04/2010
Città: MILANO
Età: 54
Utente Junior
2002
OFFLINE
22/02/2018 12:14

dodo sono ignorante in materia, potresi fari il codice?
anche perchè il messaggio dovrebbe comparire solo quando clicco manualmente sul nome del foglio e non se il foglio viene aperto da una macro esistente
grazie
[Modificato da trittico69 22/02/2018 12:38]
excel 2003
Post: 1.819
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
22/02/2018 13:16

Ti do dei suggerimenti, altrimenti non imparerai mai.

Se devi far apparire un msg ogni volta che selezioni un determinato foglio (es: Foglio2), vai nella finestra del VB, sulla destra fai doppio click sul foglio in questione, sulla sinistra ci sono due scelte (due menù a tendina), nel primo selezioni: "Worksheet", nel secondo selezioni "Activate". Uscirà fuori:

Private Sub Worksheet_Activate()

End Sub

In mezzo ci metti il tuo msgbox.

Ti uscirà anche:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

che puoi cancellare

spero sia chiaro

saluti



Domenico
Win 10 - Excel 2016
Post: 3.186
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
22/02/2018 13:32

Ciao dodo47, ormai è fatto
Mouse destro sul foglio e inseriscilo a destra
EDIT allora nel foglio3 inserisci
vb
Sub Worksheet_Activate()
Dim Risposta As Integer
Risposta = MsgBox(prompt:="Premi SI, per continuare", Buttons:=vbYesNo)
If Risposta = vbYes Then
    MsgBox "hai premuto si"
End If
End Sub

>>>e non se il foglio viene aperto da una macro esistente
Invece in un modulo metti la tua macro aggiungendo alcune righe EX se fosse così
vb
Option Explicit
Sub nnome()
Application.DisplayAlerts = False ' blocca msg d'errore
Application.ScreenUpdating = False ' blocca lo sfarfallio del monitor
Sheets("foglio3").Range("A1") = "OK" 'Aggiunta riga
Dim Ur1 As Long, Ur2 As Long 'variabili
Ur1 = Sheets("archivio").Range("A" & Rows.Count).End(xlUp).Row 'conta righe
Ur2 = Sheets("ubic ieri").Range("A" & Rows.Count).End(xlUp).Row + 2 'conta righe
Sheets("archivio").Range("A3:D" & Ur1).Copy
Sheets("ubic ieri").Range("A" & Ur2).PasteSpecial
Sheets("foglio3").Range("A" & Ur2).PasteSpecial
Sheets("foglio3").Range("A1") = "" 'Aggiunta riga
Application.CutCopyMode = False
Application.ScreenUpdating = True ' rimetti msg d'errore
Application.DisplayAlerts = True ' rimetti a posto il monitor
End Sub
[Modificato da raffaele1953 23/02/2018 07:12]
Excel 2013
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 12:15. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com