Conta valori

Storico discussioni

Funzione conta valori di Laura - molto incavolata
Ciao ragazzi ho visionato il vostro sito e' devo dire che lo trovo molto interessante.
a tal proposito ho un problemino che mi fa incavolare al quanto
nel foglio excel in una macro
inserisco la funzione range("b1").select
activecell.formular1c1 = "=counta(rc[-1]:r[4]c[-1])" ossia mi inserisce in b1 la funziona che conta nell'intervallo delle celle a1 a5 le celle piene
la stessa cosa la ottengo se in b1 inserisco manualmente la funzione = conta.valori(a1:a6)
la mia domanda e ' questa ragazzi:
se tramite una macro io voglio fare la stessa cosa ossia
range ("b1").select
activecell.value = "=conta.valori(a1:a6)"
mi appare nella cella b1 ...#nome?
ma se clicco poi nella cella lui esegue la funzione
si puo' far si che nell'ultimo esempio che ho fatto io inserisca la funzione come vi ho descritto (tramite macro) ed ottenga il valore della funzione??

Registratore di macro di Apoben64
Usa il registratore di macro , semplicemente crei una macro, di solito ti dà in automatico il nome macro 1, ti posizioni dove vuoi inserire la formula , la digiti e poi chiudi la registrazione. con alt+f8 selezioni macro1, modifica e ottieni il tuo codice .
un saluto luca

Per apoben di Laura
Caro apoben l'ho fatto
infattinel mio messaggio faccio riferimento alla formula activecell.formular1c1 = "=counta(rc[-1]:r[4]c[-1])" che e' quello che ottengo dalla registrazione della macro ma io il mio come ho descritto nel messaggio e' diverso

fa caldo ! di Apoben64
Cara laura, si sente il caldo e come si sente !!!! .
la tua spiegazione è stata molto prolissa , e quindi non subito si può capire se hai fatto uso del registratore di macro o no . activecell.formula.... si usa anche senza.
peraltro la funzione che devi usare è conta.numeri che diventa così come scritto sotto.
un saluto luca
 
Sub Laura()
ActiveCell.FormulaR1C1 = "=count(RC[-1]:R[5]C[-1])"
Range("B1").Select
   
End Sub

Funzione conta valori di laura - molto incavolata di Patrik
Ciao laura, prova così :

with range("b1")
.formulalocal = "=conta.valori(a1:a5)"
.value = .value
end with

postami se ti soddisfa.
by, patrizio

Per patrick di Laura
Funziona, era .formulalocal che mancava
ti ringrazio
p.s. un ringraziamento ancge a luca

Cognolato Studio © 2005