RUN TIME 13

Hai un problema con Excel?

Nuova discussione

RUN TIME 13
di PORRO85 (utente non iscritto) data: 14/01/2015 14:18:17
ho un file excell con una macro che mi si interrompe dopo poco

mi hanno messo un programma in mano da aggiustare ma è pieno di piccoli problemi

mi potreste dare una mano?

Dim intervallo As Double
   
    intervallo = ActiveWorkbook.Worksheets("Testate Servizi").Range("C" & (Kx2 + 1)).Value
    Set sh1 = ActiveWorkbook.Worksheets("Righe Servizi")
    Dim rng1 As Range, rng2 As Range, SubTot As Double
    Set rng1 = sh1.Range("C:C") 'Serv Figlio
    Set rng2 = sh1.Range("O:O") 'CT Personale
    SubTot = Application.WorksheetFunction.SumIf(rng1, intervallo, rng2)
    
    Dim Testata As Integer
    Testata = Round((ActiveWorkbook.Worksheets("Testate Servizi").Range("M" & (Kx2 + 1)).Value - SubTot), 1)

    ActiveWorkbook.Worksheets("Testate Servizi").Range("Q" & (Kx2 + 1)).Value = Testata
    'ActiveWorkbook.Worksheets("Testate Servizi").Range("O" & (Kx2 + 1)).Formula = "=+ARROTONDA(M" & (Kx2 + 1) & "-SOMMA.SE('orario settimana'!B:B;" & intervallo & ";'orario settimana'!S:S);1)"
      
    Dim intervallo2 As Long
    intervallo2 = ActiveWorkbook.Worksheets("Testate Servizi").Range("C" & (Kx2 + 1)).Value
    Set sh12 = ActiveWorkbook.Worksheets("Righe Servizi")
    Dim rng12 As Range, rng22 As Range, SubTot2 As Double
    Set rng12 = sh12.Range("C:C")
    Set rng22 = sh12.Range("M:M")
    SubTot2 = Application.WorksheetFunction.SumIf(rng12, intervallo2, rng22)
    'MsgBox (intervallo2 & " - " & SubTot2 & " - " & ActiveWorkbook.Worksheets("Testate Servizi").Range("I" & (Kx2 + 1)).Value)
    Dim Testata2 As Double
    
    Testata2 = (ActiveWorkbook.Worksheets("Testate Servizi").Range("I" & (Kx2 + 1)).Value - SubTot2)
    ActiveWorkbook.Worksheets("Testate Servizi").Range("R" & (Kx2 + 1)).Value = Testata2
    
    checkLine = True
    Err.Clear
    Popola_Testate = checkLine

di lepat (utente non iscritto) data: 14/01/2015 16:27:35
Sono frastornato dalla tua troppo lunga spiegazione del problema
di Mister_x (utente non iscritto) data: 14/01/2015 16:46:07
ciao

condivido con quanto a scritto Lepad

comunque stando a una tua prima spiegazione
Cit--)ho un file excell con una macro che mi si interrompe dopo poco
il file con la sub() e' presente, Primo problema Il VBA e' protetto da PASSWORD
come possimo leggerlo quando da errore????

ciao
di Vecchio Frac data: 14/01/2015 19:53:12
cit. Mister_x: "Il VBA e' protetto da PASSWORD "
---> Ma bellissima questa, non mi è mai capitata :)
Se avessi due minuti di tempo posterei il file sprotetto. Ma non so neanche se ne vale la pena :)
RUN TIME 13
di PORRO85 (utente non iscritto) data: 15/01/2015 09:30:59
la password è quella scritta accanto ai pulsanti

mentre il problema mi sembrava chiaro dall'oggetto del messaggio mi da error run time '13'

nella compilazione di testate servizi
di PORRO85 (utente non iscritto) data: 15/01/2015 10:07:55
vi allego anche un altro file nel quale il programmino gire correttamente in modo tale che possiate verificare se funziona in entrambi i file

scusatemi ma ieri mi son dimenticato dirvi della password mi chiamavano ovunque

Vuoi Approfondire?