Aggiungi righe escludendo riempimento colorato celle.

[Alessandro999]

Salve ho trovato la seguente macro nel forum, è stata fatta da Flash (che saluto) e avendola introdotta in un foglio di calcolo avrei bisogno di una piccola aggiustatina, quando introduco un valore in una cella della colonna C giustamente la macro aggiunge 1 riga sottostante basandosi sulla riga precedente, il problemino che sto riscontrando è che nella riga che aggiunge mi riporta anche le formattazioni condizionali della riga precedente e colori di riempimento delle celle.


Se possibile avrei bisogno di queste due modifiche:


L'aggiunta di 2 righe anzichè 1

La righe che vengono aggiunte dovrebbero essere completamente pulite.

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "C1:C150"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
    Application.EnableEvents = False
    If Target <> "" Then
         Riga = Target.Row + 1
         Rows(Riga).Insert Shift:=xlDown
    End If
End If
    Application.EnableEvents = True
End Sub

GRAZIE MILLE

[ricky53]

Ciao,
prova con questo codice

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
    CheckArea = "C1:C150"
    If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
'        If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub ' <<===== Da togliere
        If Target.Count > 1 Then Exit Sub ' <<====== Aggiunta
       
        If Target <> "" Then
            Application.EnableEvents = False
            riga = Target.Row + 1
            Rows(riga & ":" & riga + 1).Insert Shift:=xlDown ' <<====== Aggiunta
            Rows(riga & ":" & riga + 1).FormatConditions.Delete ' <<====== Aggiunta
'............................................................................
' Se vuoi puoi anche ripristinare il font e lo sfondo della cella
'    attivando le due istruzioni che seguono
'            Rows(riga & ":" & riga + 1).Interior.ColorIndex = xlNone
'            Rows(riga & ":" & riga + 1).Font.ColorIndex = xlAutomatic
'............................................................................
            Application.EnableEvents = True
        End If
    End If
End Sub


Leggi i commenti nel codice

Ho fatto qualche ottimizzazione ... trovala e ... in caso di dubbi ... mi trovi QUI !

[Alessandro999]

ciao ricky53 , grazie per la risposta, per quello che devo fare va benissimo così come la hai presentata, devo solo integrarla bene modificando un po' il foglio di calcolo per far convivere tutto al meglio.

Grazie ancora.

P.S

Ogni volta che faccio una capatina in questo mitico forum trovo sempre persone cortesi e molto preparate.

Siete i migliori !!!

[ricky53]

Ciao,
grazie per le tue parole ... facciamo del nostro meglio per esservi utili.

Buon proseguimento e alla prossima