valori in rows



  • valori in rows
    di rocco (utente non iscritto) data: 17/04/2017 11:03:15

    ciao a tutti e buona Pasqua
    vengo al dunque:
    volendo utilizzare il rows
    ad esempio
    Rows("17:17").Select
    è possibile al posto di 17 utilizzare il valore di una cella?

    porto un esempio concreto:
    se la cella 12,3 è uguale alla cella 2,3 allora
    tutta la riga 12 viene eliminata




  • di patel data: 17/04/2017 11:28:20

    non capisco bene la domanda come l'hai posta, però si può risolvere così
     
    riga = 12
    if cells(riga,3) = cells(2,3) then rows(riga).delete






  • di rocco (utente non iscritto) data: 17/04/2017 11:36:40

    grazie patel per la risposta
    cerco di spiegarmi meglio
    ho un foglio con dei valori ma quello che a me interessa è la colonna 3
    se ad esempio alla prima riga della colonna 3 ho un valore 3
    allora tutte le righe successive che sulla colonna 3 avranno un valore 3 verranno eliminate



  • di Mister_x (utente non iscritto) data: 17/04/2017 11:50:11

    ciao

    tuo valore in C1
    elimina le righe contenenti lo stesso valore, anche parole o stringhe

    ciao

     
    Sub elimina()
    Dim i As Long
    Dim valC1 As Variant
    valC1 = Cells(1, 3).Value
    For i = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1
     If Cells(i, 3).Value = valC1 Then Rows(Cells(i, 3).Row & ":" & Cells(i, 3).Row).Delete
    Next i
    End Sub