Contare le celle di una selezione

[M@rtyn@]

Buongiorno,
vorrei sapere come fare a contare le celle di una selezione.
Siccome non ho trovato niente sulla guida credo che mi serva una macro che conti tutte le celle sia piene che vuote, potrbbe anche scrivere il risultato in una colonna nel foglio segente.
Grazie

[ricky53]

Ciao,
prova il seguente esempio che dovrai inserire in un foglio e NON in un modulo (fai click sul nome del foglio, tasto destro, "Visualizza codice" e poi copia il codice)

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [A1] = Target.Columns.Count
    [A2] = Target.Rows.Count
End Sub

[M@rtyn@]

Grazie adesso la provo.

[M@rtyn@]

Problemino:
non mi compare nella lista delle macro sia dalla finestra excel che da quella vba.Come la faccio partire?
Ciao grazie.

[ricky53]

Ciao,
dopo aver copiato il codice hai provato a selezionare un intervallo di celle ?
Se l'avessi fatto ti saresti accorto che in "A1" e in "A2" ti dava dei valori ...

Comunque non devi farla partire tu perchè, al cambiamento della selezione delle celle, si attiva da sola mediante

Codice: Seleziona tutto

Worksheet_SelectionChange

...

Prova e ...

[M@rtyn@]

Ho capito, siccome in A ho un calendario fatto con le formule,in A1 compariva 1 che non coincideva con la selezione, e il calendario si sballava tutto ma adesso ho cambiato A con la prima colonna vuota BX e i conti tornano.
Ancora tante grazie.

[ricky53]

Ciao,
bene.
Buon proseguimento e alla prossima