Sviluppare funzionalita su Microsoft Office con VBA Problema errore 400 su macro vba excel

LoginRegistrati
Stai vedendo 3 articoli - dal 1 a 3 (di 3 totali)
  • Autore
    Articoli
  • #16707 Risposta

    betaspeed

      Salve ho un problema di erro 400 quando richiamo una sub, forse perchè utilizzo parametri opzionali, ma non ci esco fuori 

      Sub ComparazioneDate(Optional ByVal LInizioRow As Long = -1, Optional ByVal LRigaCount As Long = -1)
      
      Dim i As Long, LStartingRow As Long, LRowCount As Long
      i = 0
      Call OptimizeCode_Begin
      
      If LInizioRow <> -1 And LRigaCount <> -1 Then 'Se i parametri opzionali sono diversi da -1
          'I parametri vengono passati
          LStartingRow = LInizioRow
          LRowCount = LRigaCount
      Else
          'I parametri non vengono passati
          LStartingRow = 20
          LRowCount = Cells(Rows.Count, 1).End(xlUp).Row + 1
      End If
      'Se i parametri vengono passati LInizioRow To LRigaCount
      For i = LStartingRow To LRowCount
          If (Cells(i, 5).Value <> "") And (Cells(i, 4).Value <> "") Then
              'Se data consegna e maggiore di data fine sono in anticipo
              If (Cells(i, 5).Value > Cells(i, 4).Value) Then
                  Cells(i, 6).Value = DateDiff("d", Cells(i, 4).Value, Cells(i, 5).Value) 'Calcolo i giorni di anticipo
                  Cells(i, 6).Interior.Color = RGB(0, 176, 240) 'Coloro la cella di blu
              'Altrimenti data consegna minore di data fine, sono in ritardo
              ElseIf (Cells(i, 5).Value < Cells(i, 4).Value) Then
                  Cells(i, 6).Value = DateDiff("d", Cells(i, 5).Value, Cells(i, 4).Value) 'Calcolo i giorni di ritardo
                  Cells(i, 6).Interior.Color = RGB(255, 0, 0) 'Coloro la cella di rosso
              Else
                  Cells(i, 6).Value = ""         'Controllo per celle vuote
                  Cells(i, 6).Interior.Color = xlNone 'Non assegnare colore a cella
              End If
          End If
      Next i
      
      Call OptimizeCode_End
      
      End Sub
      
      #16709 Risposta

      Anonimo
        1 pt

        Cos'è, un indovinello?  

        #16714 Risposta
        patel
        patel
        Moderatore
          30 pts

          per ottenere risposte diverse da quella di Leonardo occorre fornire più spiegazioni ed un file di esempio

        LoginRegistrati
        Stai vedendo 3 articoli - dal 1 a 3 (di 3 totali)
        Rispondi a: Problema errore 400 su macro vba excel
        Gli allegati sono permessi solo ad utenti REGISTRATI
        Le tue informazioni:



        vecchio frac - 1993 risposte

        albatros54
        albatros54 - 640 risposte

        patel
        patel - 499 risposte

        Marius44
        Marius44 - 402 risposte

        Luca73
        Luca73 - 365 risposte