Funzione conta valori

  • 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