utilizzare celle per scrivere rows



  • utilizzare celle per scrivere rows
    di rocco (utente non iscritto) data: 19/06/2015 20:09:46

    ciao a tutti
    avrei bisogno di sapere come si scrive un rows utilizzando cells
    questo è l'esempio:

    Rows("1:501").Select
    Range("A501").Activate
    Selection.Delete Shift:=xlUp
    Range("A19").Select

    ma al posto di ("1:501") per il rows
    vorrei utilizzare il cells ma non so come è la sintassi



  • di alfrimpa data: 19/06/2015 21:26:43

    Ciao Rocco

    La sintassi è Cells(numero riga, numero colonna)

    Alfredo




  • utilizzare celle per scrivere rows
    di rocco (utente non iscritto) data: 19/06/2015 21:31:08

    perdona la mia ignoranza ma ho provato con
    Rows("1:cells(501,1)").Select
    ma mi da errore



  • di alfrimpa data: 19/06/2015 21:32:40

    Cioè per selezionare il Range A1:A501 si dovrebbe scrivere

    Range(cellls(1, 1), cells(1, 501)).Select

    Vado a memoria e spero di non aver sbagliato.

    Alfredo




  • utilizzare celle per scrivere rows
    di rocco (utente non iscritto) data: 19/06/2015 21:37:02

    si, ma io lo vorrei utilizzare per il rows



  • di alfrimpa data: 19/06/2015 21:40:52

    Perdonami Rocco ma non riesco a capire.

    Qual è il Range che vuoi selezionare?

    Puoi spiegare meglio?

    Che cosa devi fare?

    Alfredo




  • utilizzare celle per scrivere rows
    di rocco (utente non iscritto) data: 19/06/2015 21:47:25

    vorrei selezionare le prime 10 righe ed eliminarle
    con

    rows("1:10").select
    Selection.Delete Shift:=xlUp

    il "problema" è che le coordinate del rows per il primo valore sarà sempre 1
    per il secondo dovrebbe prendere il valore da una variabile



  • di alfrimpa data: 19/06/2015 21:57:59

    Ciao Rocco

    Sono senza pc per cui non posso verificare ma supponendo di essere in colonna A potresti provare con:

    Alfredo
     
    Sub EliminaRighe()
    Dim var as Long
    Var = 10
    Range("A" & var).Select
    Selection.Rows.EntireRow.Delete
    End Sub






  • di alfrimpa data: 19/06/2015 22:00:59

    Perdonami ho sbagliato.

    La sottostante macro cancella le righe da 1 a 10

    Alfredo
     
    Sub EliminaRighe()
    Dim var as Long
    Var = 10
    Range("A1:A" & var).Select
    Selection.Rows.EntireRow.Delete
    End Sub
    





  • utilizzare celle per scrivere rows
    di rocco (utente non iscritto) data: 19/06/2015 23:03:42

    pefetto!
    funziona come volevo io!
    grazie mille



  • di toty (utente non iscritto) data: 20/06/2015 16:05:42

    O più semplicemente...
     
    Sub SCancella()
    Range("A1:A10").EntireRow.Delete
    End Sub



  • di alfrimpa data: 20/06/2015 16:35:07

    Si certo Toty il mio era solo un esempio.

    Inoltre Rocco voleva che il secondo parametro del range fosse una variabile.

    Alfredo