Problema 400

Hai un problema con Excel?

Nuova discussione

Problema 400??
di Kubrick (utente non iscritto) data: 18/08/2010
Ciao a tutti ho un problema che spero sia semplice da risolvere:
tempo fa l'amministratore con l'aiuto di alcuni di voi mi avevano risolto un problema con visual basic applicato a excel il tutto funziona ma quando apro contemporaneamente due fogli di lavoro excel che pescano dati in tempo reale da un sito mi esce una strana scritta all'interno di una finestra di microsoft visual basic:

croce rossa 400
ok ?

questo e' quello che esce qui sotto vi posto la macro
siccome e' una cosa di lavoro molto importante vi chiedo la massima collaborazione grazie di tutto

Public SchTime
Function Cerca_Cella_Vuota()
'identifica la prima casella vuota dopo n nella colonna scelta


UltimaRiga = Range("A65356").End(xlUp).Row


Cerca_Cella_Vuota = UltimaRiga + 1


End Function
Private Sub Copia_Click()
Do

SchTime = Now + TimeValue("00:15:00") 'imposti il timer ovvero ongi quanto vuoi il refresh

  
    Application.ScreenUpdating = False ' <<<-----  Istruzione inserita
    Foglio_Attivo = ActiveSheet.Name '<<<-----  Istruzione inserita
    Foglio3.Select ' <<<-----  Istruzione inserita
    Range("A2:A2000").Select
    Selection.Copy
    Range("A1").Select
    ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
        IconFileName:=False
    ActiveWindow.SmallScroll Down:=-8
    Range("S1971").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=10
    Range("A2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-10
    Range("M1971:S1971").Select
    Application.CutCopyMode = False
    Selection.Cut
    ActiveWindow.SmallScroll Down:=20
    Range("M2006").Select
    Selection.Insert Shift:=xlDown
    Sheets(Foglio_Attivo).Select ' <<<-----  Istruzione inserita
    Application.ScreenUpdating = True ' <<<-----  Istruzione inserita
Exit Do
Loop

Application.OnTime SchTime, "Foglio3.Copia_Click"



End Sub

Private Sub Copia_Click_Stop_Click()

Application.OnTime EarliestTime:=SchTime, Procedure:="Foglio3.Copia_Click", Schedule:=False



End Sub

di Ricky53 (utente non iscritto) data: 08/09/2010
Ciao,

uhm,

è possibile avere i due file di esempio.

ciao da ricky53

di Kubrick (utente non iscritto) data: 08/09/2010
Ricky apro il documento sopra, attivo la macro e faccio partire il real time ed e' tutto ok , poi lancio il file che ti ho riportato adesso attivo la macro e senza cliccare su di essa mi da errore 400?

Public SchTime
Function Cerca_Cella_Vuota()
'identifica la prima casella vuota dopo n nella colonna scelta


UltimaRiga = Range("A65356").End(xlUp).Row


Cerca_Cella_Vuota = UltimaRiga + 1


End Function
Private Sub Copia_Click()
Do

SchTime = Now + TimeValue("00:15:00") 'imposti il timer ovvero ongi quanto vuoi il refresh

  
    Application.ScreenUpdating = False ' <<<-----  Istruzione inserita
    Foglio_Attivo = ActiveSheet.Name '<<<-----  Istruzione inserita
    Foglio3.Select ' <<<-----  Istruzione inserita
    Range("A2:A2000").Select
    Selection.Copy
    Range("A1").Select
    ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
        IconFileName:=False
    ActiveWindow.SmallScroll Down:=-8
    Range("S1971").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=10
    Range("A2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-10
    Range("M1971:S1971").Select
    Application.CutCopyMode = False
    Selection.Cut
    ActiveWindow.SmallScroll Down:=20
    Range("M2007").Select
    Selection.Insert Shift:=xlDown
    Sheets(Foglio_Attivo).Select ' <<<-----  Istruzione inserita
    Application.ScreenUpdating = True ' <<<-----  Istruzione inserita
Exit Do
Loop

Application.OnTime SchTime, "Foglio3.Copia_Click"



End Sub

Private Sub Copia_Click_Stop_Click()

Application.OnTime EarliestTime:=SchTime, Procedure:="Foglio3.Copia_Click", Schedule:=False



End Sub

di Ricky53 (utente non iscritto) data: 09/09/2010
Ciao,
vorrei ottenere l'errore ma non mi è possibile non potendo riprodurre la situazione che hai tu.

puoi allegare i due file e, se possibile, comunice l'indirizzo cui collegarsi per scaricare i dati ---> sempre se possibile e non vi siano dati riservati.

ciao da ricky53

Vuoi Approfondire?