Ciao ragazzi
mi potete aiutare a creare un bottone che mi vada a cancellare il contenuto di celle da me determinate ad esempio b1 b2 b3 c5 ecc.ecc.
o in alternativa tutte le celle non bloccate di un foglio bloccato
ciao
Moderatori: Anthony47, Flash30005
Sub CancellaCelle()
Range("B2,E5,D8,B11,I17,J8,G16,H8,D13,B20,E14,F8,H4,K5,L13,K20,E27,E22,D19,C26,G27").Clear
End Sub
Sub CancellaSbloccate()
Dim zona As Range
Set zona = Range("A1:P45") '<<<< inserisci qui il tuo range
For Each cl In zona
If cl.Locked = False Then cl.Clear
Next
End Sub
Sub CancellaSbloccate2()
Dim zona As Range
Set zona = Range("A1:P45") '<<<< inserisci qui il tuo range
For Each cl In zona
If cl.Locked = False Then cl.ClearContents
Next
End Sub
Sub AzzeraCelleSbloccate()
Dim zona As Range
Set zona = Range("A1:P45") '<<<< inserisci qui il tuo range
For Each cl In zona
If cl.Locked = False Then cl.FormulaR1C1 = "0"
Next
End Sub
If cl.Locked = False Then cl.ClearContents
If cl.Locked = False Then cl.Clear
Sub Cancella ()
Range("A1:A2,B2:B12").ClearContents '<<<< contenente tutte le celle da cancellare
End Sub
Torna a Applicazioni Office Windows
formula che conta erroneamente celle "vuote" Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 4 |
excel vba eliminare celle apparentemente vuote Autore: ANTONIO1105 |
Forum: Applicazioni Office Windows Risposte: 3 |
Gruppo celle fisse a schermo durante lo scrolling Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 52 ospiti