eliminare righe vuote

rollis13, 14/10/2022 15:36:

---

Dovrai valutare una alla volta tutte le celle della colonna C e se è vuota verificare che non corrisponda ad una riga con il Cod. Art. in colonna A. In questo caso la devi mantenere altrimenti procedi con l'eliminazione della riga, o se preferisci, nascondere la riga.
Ti ho preparato un esempio con il Nascondi attivo.

Option Explicit
Sub Gestisci_Celle_Vuote()
    Dim ur     As Long
    Dim x      As Long
    ur = Cells(Rows.Count, "A").End(xlUp).Row     'calcola l'ultima riga di colonna A
    For x = ur To 1 Step -1
        If IsEmpty(Range("C" & x)) Then If Range("A" & x) <> "COD. ART." Then Range("A" & x).EntireRow.Hidden = True '<- per nascondere
        'If IsEmpty(Range("C" & x)) Then If Range("A" & x) <> "COD. ART." Then Range("A" & x).EntireRow.Delete '<- per eliminare
    Next x
End Sub

---

Piermario Granzotto, 28/06/2023 17:12:

---

---

rollis13, 14/10/2022 15:36:

---

Dovrai valutare una alla volta tutte le celle della colonna C e se è vuota verificare che non corrisponda ad una riga con il Cod. Art. in colonna A. In questo caso la devi mantenere altrimenti procedi con l'eliminazione della riga, o se preferisci, nascondere la riga.
Ti ho preparato un esempio con il Nascondi attivo.

Option Explicit
Sub Gestisci_Celle_Vuote()
    Dim ur     As Long
    Dim x      As Long
    ur = Cells(Rows.Count, "A").End(xlUp).Row     'calcola l'ultima riga di colonna A
    For x = ur To 1 Step -1
        If IsEmpty(Range("C" & x)) Then If Range("A" & x) <> "COD. ART." Then Range("A" & x).EntireRow.Hidden = True '<- per nascondere
        'If IsEmpty(Range("C" & x)) Then If Range("A" & x) <> "COD. ART." Then Range("A" & x).EntireRow.Delete '<- per eliminare
    Next x
End Sub

---

rollis13, 28/06/2023 17:29:

---

Avevo già riportato nella macro le due ipotesi (nascondere od eliminare). Tutto quello che dovevi fare era attivare la riga che ti interessava.
In pratica, metti l'apostrofo alla prima opzione e toglilo alla seconda.

---

Piermario Granzotto, 28/06/2023 18:11:

---

grazie

---

rollis13, 29/06/2023 08:39:

---

Con il file esempio che hai allegato al post #10 le due versioni della macro funzionano come previsto, pertanto, in mancanza di altre informazioni precise sul tuo progetto attuale ti devi applicare e fare il debug.

---