Condividi:        

OFFICE 2016 SCHERMATA BIANCA

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

OFFICE 2016 SCHERMATA BIANCA

Postdi ramset1978 » 16/04/18 13:37

Buongiorno a tutti,
ho da poco installato office2016 al posto del vecchio office 2010.
Ho un piccolo problema che cerco di spiegare:
Ho un file che contiene a sua volta un elenco di file. Cliccando su una macro si apre ogni singolo file e viene aggiornato con nuovi dati. Ora con il nuovo 2016 tra l'apertura e la chiusura di ogni singolo file viene fuori una pagina bianca. Vi è modo di evitarla? Si tratta forse di qualche impostazione da settare?
Grazie anticipato a chi vorrà aiutarmi.
Saluti.
Ramset1978
Win 7 + Office 2010 Ita
ramset1978
Utente Senior
 
Post: 223
Iscritto il: 25/03/12 16:04
Località: Avezzano

Sponsor
 

Re: OFFICE 2016 SCHERMATA BIANCA

Postdi Anthony47 » 16/04/18 15:07

Bisognerebbe vedere la tua macro, comunque in prima battuta considera l'uso di Application.ScreenUpdating = False (all'inizio) e = True all'uscita.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: OFFICE 2016 SCHERMATA BIANCA

Postdi ramset1978 » 16/04/18 15:12

Ciao Anthony, solo tu puoi risolvere questo problema.... la macro è la seguente (che tra l'altro mi hai aiutato a compilare tu).

Codice: Seleziona tutto
 Private Sub AggiornaTutti()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationAutomatic
    Application.Calculation = xlCalculationManual
   
    Dim NextName As String, StWB As String
    StWB = ThisWorkbook.Name
    ChDrive Left(Range("Path"), 2)   'per cambiare drive
    ChDir Range("Path")     'path per i file da aprire

    i = 0
    Do
    Windows(StWB).Activate
    NextName = Sheets("Foglio1").Range("A10").Offset(i, 0).Value
    If NextName = "" Then GoTo Exita
    Workbooks.Open Filename:=NextName
    OWb = ActiveWorkbook.Name
    'Qui apriamo il primo file
    CMacro = "'" & OWb & "'!Foglio1.CmdBtnx_Click"     'nome macro da eseguire
    Application.Run (CMacro)
    Workbooks(OWb).Close SaveChanges:=True
        i = i + 1
    Loop

Exita:
    Application.Calculation = xlCalculationAutomatic
    Application.Calculation = xlCalculationManual
    UserForm1.Controls("Label1").BackColor = RGB(210, 210, 210)
    UserForm1.Controls("Label1").ForeColor = RGB(0, 0, 0)
    UserForm1.Label1.Caption = "Aggiornamento dati terminato" & vbCrLf & "Titoli aggiornati ad oggi " & Range("StrAggOggi") & vbCrLf & "Titoli aggiornati ad ieri " & Range("StrAggIeri") & vbCrLf & "Titoli NON aggiornati " & Range("StrNonAgg")

    DataOggi = Application.WorksheetFunction.Max(Range("DataAgg")) 'non funziona con VAL
    DataScadenza = Application.WorksheetFunction.Max(Range("Scadenza")) ' non funziona con VAL
   
    If DataOggi >= DataScadenza - 5 Then
    UserForm1.Controls("Label2").BackColor = RGB(210, 210, 210)
    UserForm1.Controls("Label2").ForeColor = RGB(255, 0, 0)
    UserForm1.Label2.Caption = "ATTENZIONE:" & vbCrLf & "Futures in scadenza"
    Else
    UserForm1.Controls("Label2").BackColor = RGB(210, 210, 210)
    UserForm1.Controls("Label2").ForeColor = RGB(0, 0, 0)
    UserForm1.Label2.Caption = "Prossima scadenza futures: " & Range("Scadenza")
    End If
   
    Application.Run "AttivaUserform"
   
Exita2:
    Application.Calculation = xlCalculationAutomatic
    Application.Calculation = xlCalculationManual



Range("File").Cells(1, 1).Select
Application.ScreenUpdating = True
Selection.Offset(0, 0).Select
End Sub
Ramset1978
Win 7 + Office 2010 Ita
ramset1978
Utente Senior
 
Post: 223
Iscritto il: 25/03/12 16:04
Località: Avezzano

Re: OFFICE 2016 SCHERMATA BIANCA

Postdi ramset1978 » 16/04/18 21:58

Anthony lascia stare la versione 2016 mi da troppi problemi e non solo di grafica. Le macro concatenate danno mille problemi e si interrompe sempre tutto, con 2010 mai un problema. Ora provo la versione 2013 e se da problemi torno alla 2010. Grazie comunque. saluti
Ramset1978
Win 7 + Office 2010 Ita
ramset1978
Utente Senior
 
Post: 223
Iscritto il: 25/03/12 16:04
Località: Avezzano

Re: OFFICE 2016 SCHERMATA BIANCA

Postdi Anthony47 » 17/04/18 02:06

Anche per me la versione principale per me e' XL2010; la 2016 e' una evoluzione con una struttura decisamente meno stabile, la uso solo per test;speriamo di non dover rimpiangere XL2003.
Comunque sarebbe servito anche il codice della Foglio1.CmdBtnx_Click che viene richiamata all'interno del codice che hai pubblicato

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: OFFICE 2016 SCHERMATA BIANCA

Postdi ramset1978 » 17/04/18 05:21

Concordo da quel poco che ho visto. Grazie di tutto Anthony senza di te qualche anno fa non sarei riuscito a completare il lavoro. Sei sempre gentile e disponibile con tutti. Dio ti benedica. Un salutone.
Ramset1978
Win 7 + Office 2010 Ita
ramset1978
Utente Senior
 
Post: 223
Iscritto il: 25/03/12 16:04
Località: Avezzano

Re: OFFICE 2016 SCHERMATA BIANCA

Postdi ramset1978 » 17/04/18 07:04

Microsoft non si smentisce mai ovunque mette le mani peggiora le cose. Anche Office 2013 è pieno di problemi da fare schifo. Torno al mio vecchio Office 2010. Ciao
Ramset1978
Win 7 + Office 2010 Ita
ramset1978
Utente Senior
 
Post: 223
Iscritto il: 25/03/12 16:04
Località: Avezzano


Torna a Applicazioni Office Windows


Topic correlati a "OFFICE 2016 SCHERMATA BIANCA":


Chi c’è in linea

Visitano il forum: Nessuno e 39 ospiti