Sviluppare funzionalita su Microsoft Office con VBA Metodo Range dell'oggetto Worksheet non riuscito

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

    Clara26
    Partecipante

      Ciao a tutti, 

      mi sono imbattuta in questo problema e proprio non so che pesci pigliare. La macro di seguito vuole copiare 9 righe (un blocco) dal foglio BLOCCHI e incollarle (anche inserirle va bene) sotto all'ultimo blocco nel foglio SCHEDA. 

      l'errore lo da alla riga evidenziata in rosso.

      Sub Aggiungi_Blocco()

      Dim SCHEDA As Worksheet
      Set SCHEDA = Worksheets("SCHEDA DI LAVORO")

      Dim BLOCCHI As Worksheet
      Set BLOCCHI = Worksheets("BLOCCHI")

      Dim Fine As Integer

      Fine = SCHEDA.Cells(SCHEDA.Rows.Count, "AE").End(xlUp).Row +1 'prima riga libera

      BLOCCHI.Range("2:11").Copy Destination:=SCHEDA.Range("Fine:Fine") 'copiare le righe dalla 2 alla 11 nel foglio SCHEDA a partire dalla prima riga libera

      End Sub

      Qualcuno è cosi gentile da aiutarmi?

      Ringrazio in anticipo

      #30757 Risposta
      rollis13
      rollis13
      Partecipante
        3 pts

        Riscrivi la riga così dato che stai utilizzando delle variabili per definire il range: 

        BLOCCHI.Range("2:11").Copy Destination:=SCHEDA.Range(Fine & ":" & Fine)
        #30758 Risposta
        alfrimpa
        alfrimpa
        Partecipante
          20 pts

          E senza un file di esempio su cui testare il codice come si fa?

          Allegalo ed inserisci a mano il risultato che vuoi ottenere.

          Alfredo

          P.S. Ma questa istruzione "SCHEDA.Range("Fine:Fine")" che significa?

          Non mi sembra affatto che sia corretto

          Caso mai dovrebbe essere

          SCHEDA.Cells(fine, "AE")

           

          #30762 Risposta

          Clara26
          Partecipante

            rollis13 ha scritto:

            Riscrivi la riga così dato che stai utilizzando delle variabili per definire il range: 

            Perfetto così funziona! 

            Contrassegno la discussione come risolta, grazie dell'aiuto! 

            alfrimpa ha scritto:

            P.S. Ma questa istruzione "SCHEDA.Range("Fine:Fine")" che significa?

            volevo selezionare la tutta la riga Fine ( integer ad esempio = 5) , se non avessi avuto la variabile avrei fatto cosi

            SCHEDA.Range("5:5")

            e mi funzionava. il fatto che con le variabili fosse diverso mi mandava in tilt.

            Grazie ancora!

             

            #30766 Risposta
            rollis13
            rollis13
            Partecipante
              3 pts

              Grazie del riscontro positivo .

              #30767 Risposta
              Luca73
              Luca73
              Partecipante
                43 pts

                Avresti dovuto scrivere

                SCHEDA.Range(Fine:Fine)

                senza Virgolette in quanto Fine è una variabile, se la metti tra virgolette viene intesa come stringa di testo="Fine" e il Range("Fine:Fine") non esiste

              LoginRegistrati
              Stai vedendo 6 articoli - dal 1 a 6 (di 6 totali)
              Rispondi a: Metodo Range dell'oggetto Worksheet non riuscito
              Gli allegati sono permessi solo ad utenti REGISTRATI
              Le tue informazioni:



              vecchio frac - 2750 risposte

              patel
              patel - 1080 risposte

              albatros54
              albatros54 - 1061 risposte

              Marius44
              Marius44 - 985 risposte

              Luca73
              Luca73 - 789 risposte