Excel Forum

	Soluzioni Excel Domande e Risposte
		[VBA] "filtro" usando un ciclo di "if"

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

[VBA] "filtro" usando un ciclo di "if"

Ultimo Aggiornamento: 13/10/2014 16:49

Jekko76

Post: 3

Registrato il: 05/06/2007

Città: MILANO

Età: 46

Utente Junior

Excel 2007

OFFLINE

13/10/2014 15:19

00#1

Ciao

Avrei bisogno di creare una specie di filtro usando gli if. Non posso usare il normale comando del filtro.

in pratica ho un foglio fatto in questo modo:

A1-BONIFICO A AZIENDA ALFA
A2-COMMISSIONI SU BONIFICO
A3-ADDEBITO F24
A4-COMPETENZE LIQUIDAZIONE
A5-ADDEBITO COMMISSIONI SU RIBA

io devo far partire un ciclo che mi controlli su ogni singola cella, che questa contenga la parola "COMMISSIONI" (in qualsiasi posizione), e poi se la contiene excel dovrà svolgere una serie di azioni.

Come posso dare questo comando "if" ad Excel in VBA?

Grazie a tutti

[Modificato da Jekko76 13/10/2014 15:19]

uso Excel 2007

Davide Turbo Neofita

Post: 1.325

Registrato il: 27/10/2003

Città: SESTO SAN GIOVANNI

Età: 43

Utente Veteran

2010

OFFLINE

13/10/2014 15:35

00#2

Adattando i range di ricerca:

Option Explicit
Sub ciclocelle()
Dim rCell As Range
  For Each rCell In Range("A1:E500")
    If rCell.vale = "COMMISSIONI" Then
    
    '''le tue istruzioni
    
    End If
  Next rCell
End Sub

________________________________
Excel 2010 - Win 7 Ufficio
Excel 2013 - Win 8 Casa

A poche informazioni corrispondono poche spiegazioni.

Zer0kelvin

Post: 599

Registrato il: 24/04/2004

Città: TERAMO

Età: 63

Utente Senior

2010

OFFLINE

13/10/2014 15:48

00#3

Ciao.

un ciclo che mi controlli su ogni singola cella, che questa contenga la parola "COMMISSIONI" (in qualsiasi posizione)

credo voglia dire che la cella può contenere altre parole oltre a quella cercata.
In tal caso, si può modificare così la condizione

    If InStr(rCell.vale, "COMMISSIONI", vbTextCompare) > 0 Then
     
    '''le tue istruzioni
     
    End If

Volendo ottimizzare il codice si potrebbe utilizzare Range.Find con un ciclo di FindNext al posto del For ... Each.

__________________________
[Excel 2010]
-Condividere la conoscenza aumenta la ricchezza di tutti.
-Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
-Il sonno della ragione genera mostri. (Francisco Goya)

Jekko76

Post: 3

Registrato il: 05/06/2007

Città: MILANO

Età: 46

Utente Junior

Excel 2007

OFFLINE

13/10/2014 16:49