Ciao Patel egrazie per la risposta, ho inserito il codice nella macro del modulo2, ma crea alcuni problemi, cancella le formattazioni ma non riesce a cancellare il menù a tendina nella cella B quando ci sono due righe appaiate, la riga vuota aggiunta risulta tutta con le celle protette, quindi in un secondo tempo non è possibile inserire il carattere x in cella B per cancellare la riga. Mentre se si sceglie dal menu a tendina l' opzione nascondi riga e poi successivamente si rende visibile la riga premendo sul pulsante mostra righe nascoste, questa riappare senza formattazioni.
di seguito il codice del modulo2
e il nuovo file di esempio :provando le varie opzioni del menu a tendina si riesce a capire bene i vari problemi di funzionamento che presenta la macro.
http://www.filedropper.com/esempio_13- Codice: Seleziona tutto
Sub Controlli_Riga()
Sheets("Foglio1").Unprotect Password:="12345"
Dim check As Long
Dim riga As Long
With Sheets("Foglio1")
check = .Range("B" & Rows.Count).End(xlUp).Row
For riga = check To 1 Step -1
If .Cells(riga, 2).Value = "NASCONDI RIGA" Then Rows(riga).Hidden = True
If .Cells(riga, 2).Value = "ELIMINA RIGA" Then .Rows(riga).Delete
If .Cells(riga, 2).Value = "AGGIUNGI RIGA" Then .Rows(riga).Insert Shift:=xlShiftDown
ActiveCell.EntireRow.ClearFormats
If .Cells(riga, 2).Value = "x" Then .Rows(riga).Delete ' cancella riga con la x in cella B
Next riga
End With
Sheets("Foglio1").Protect Password:="12345"
End Sub
Grazie e un saluto a tutti, attendo e spero in una risposta.
, 
)