Conta celle contenenti una data parola

[calculon]

Ciao a tutti,
vorrei creare una macro in grado di contare il numero delle celle contenenti la parola "CASA" per poi assegnare detto risultato al ciclo:

for i = 1 to "numero celle contenenti CASA".

Grazie a quanti vorranno aiutarmi.

Ciauu

[Flash30005]

Codice: Seleziona tutto

UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
Conta = 0
For RR = 1 to UR
If range("A" & RR).value = "CASA" then Conta = Conta + 1
next RR
MsgBox Conta


Potresti ottenere lo stesso risultato con una formula in una cella es.: B1

Codice: Seleziona tutto

=CONTA.SE(TuoRange;"CASA")

E poi il ciclo for...next sarà

for i = 1 to Range("B1").value

Ciao

[calculon]

Grazie mille Flash!

Ancora una cosa. Se la cella contiene la singola parola casa con la tua macro viene tranquillamente conteggiata, mentre se ad es. contiene la frase "la mia casa è grande" la parola casa viene ignorata.

Sarebbe utilissimo riuscire a recuperare anche le parole chiave contenute in una cella insieme ad altre così come ho descritto nell'esempio.


Ancora super grazie

[Anthony47]

Puoi usare nel vba la worksheetfunction.Countif, nella sintassi

Codice: Seleziona tutto

NVolte = Application.WorksheetFunction.CountIf(Range("A:A"), "*casa*")


Questa ti contera', ad esempio, sia "sono a casa" che "sono accasato", eventualmente modifica la stringa di ricerca.

Ciao

[calculon]

Grazie ad entrambi.
La mia macro, grazie alla dritta, ha guadagnato almeno 20 secondi!!!


A prestissimo

[Flash30005]

Con altri venti arriverai primo!

Ciao