Condividi:        

Excel Formula Trova e cancella Range

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

Excel Formula Trova e cancella Range

Postdi Statix » 23/03/09 19:17

Ciao a tutti ,
volevo chiedervi se c'è una formula che se trova in un Range ,
esempio E5:N200 una cella colorata da una macro,mi cancelli i dati del Range E5:N200
prima
url=http://w[ww.postimage.org/]Immagine[/url]


e dopo

Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Excel Formula Trova e cancella Range

Postdi Statix » 23/03/09 23:15

Ok trovato è risolto, :lol:

Codice: Seleziona tutto
Sub trova_colore()
Dim a As Single
'Bari
For Each cella In Range("F6:O205")

If cella.Interior.ColorIndex = 3 Then
a = a + 1
End If
Next
Range("F2") = a
If Range("F2").Value = 1 Then
Range("F6:O205").Value = ""
End If

End Sub
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Formula Trova e cancella Range

Postdi Statix » 23/03/09 23:31

Aiuto per nidificare questi cicli(10)
Codice: Seleziona tutto
Sub trova_colore()
Dim a As Single
'Bari
For Each cella In Range("F6:O205")

If cella.Interior.ColorIndex = 3 Then
a = a + 1
End If
Next
Range("F2") = a
If Range("F2").Value = 1 Then
Range("F6:O205").Value = ""
Range("F2").Value = ""
End If

'Cagliari
For Each cella In Range("P6:Y205")

If cella.Interior.ColorIndex = 3 Then
a = a + 1
End If
Next
Range("P2") = a
If Range("F2").Value = 1 Then
Range("P6:Y205").Value = ""
End If


'Firenze
For Each cella In Range("Z6:AI205")

If cella.Interior.ColorIndex = 3 Then
a = a + 1
End If
Next
Range("Z2") = a
If Range("F2").Value = 1 Then
Range("Z6:AI205").Value = ""
End If

'Genova
For Each cella In Range("AJ6:AS205")

If cella.Interior.ColorIndex = 3 Then
a = a + 1
End If
Next
Range("AJ2") = a
If Range("F2").Value = 1 Then
Range("AJ6:AS205").Value = ""
End If
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Formula Trova e cancella Range

Postdi Anthony47 » 24/03/09 01:10

Prova cosi':
Codice: Seleziona tutto
Sub trova_colore()
Dim a As Single
'Bari
For I=0 to 4   '4 ne ho contati nel tuo esempio
For Each cella In Range("F6").offset(0,I*10).range("A1:J200")
If cella.Interior.ColorIndex = 3 Then
'. . .
'. . .
'. . .
Next cella
Next I


Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Excel Formula Trova e cancella Range":


Chi c’è in linea

Visitano il forum: Marius44 e 43 ospiti

cron