Eliminare celle vuote



  • Non lasciare righe vuote
    di Ilcontepovero (utente non iscritto) data: 07/04/2009

    Salve a tutti e buona pasqua...auguri doppi a chi ne ha bisogno di più... penso agli abruzzesi con il cuore che piange.ecco il problema.ho una macro che attraverso un elenco a tendina va a memorizzare dei dati nella colonna "q" dalla rida 10 alla 29. se sbaglio ad inserire c'è la possibilità di cancellare l'ultimo dato, ma se non mi accorgo subito devo cancellare tutta la lista.e' possibile cancellare qualsiasi dato io voglia e la lista si ricompatti senza presentare righe vuote?grazie



  • di Franco_44 (utente non iscritto) data: 07/04/2009

    Prova con la macro prova che ti posto, funziona a condizione che da q1 a q9 ci siano dati
    se i dati dovessero essere più di uno, devi lanciarla tante volte quanti sono i dati cancellati
    vedi se ti va bene
     
    Sub Prova()
    Sheets("Tuo foglio").Select
    rig2 = Cells(65536, 17).End(xlUp).Row
    rig = Cells(1, 17).End(xlDown).Row
    Range(Cells(rig2, 17), Cells(rig + 2, 17)).Cut
    Cells(rig + 1, 17).Select
    ActiveSheet.Paste
      Application.CutCopyMode = False
    End Sub