Condividi:        

Aggiungi righe escludendo riempimento colorato celle.

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Aggiungi righe escludendo riempimento colorato celle.

Postdi Alessandro999 » 24/11/14 11:22

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
Windows 10 + office 2007
Windows 7 + Office 2007
Avatar utente
Alessandro999
Utente Senior
 
Post: 161
Iscritto il: 04/06/09 11:42
Località: Venezia

Sponsor
 

Re: Aggiungi righe escludendo riempimento colorato celle.

Postdi ricky53 » 24/11/14 16:28

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 !
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Aggiungi righe escludendo riempimento colorato celle.

Postdi Alessandro999 » 24/11/14 17:49

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 !!!
Windows 10 + office 2007
Windows 7 + Office 2007
Avatar utente
Alessandro999
Utente Senior
 
Post: 161
Iscritto il: 04/06/09 11:42
Località: Venezia

Re: Aggiungi righe escludendo riempimento colorato celle.

Postdi ricky53 » 25/11/14 02:17

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

Buon proseguimento e alla prossima
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "Aggiungi righe escludendo riempimento colorato celle.":


Chi c’è in linea

Visitano il forum: Nessuno e 39 ospiti