for next

[mandozPartecipante mandoz]

un saluto a tutti.

provo ad esporre il problema. ho ipotizzato un calendario da d4:ah15 foglio1. all'occorrenza vado a cercare la cella del giorno corrente, inserisco un valore ed ecco la somma relativa del mese. nel foglio2 ho provato a seguire il suggerimento di GiuseppeMn che ringrazio. ho scritto un qualcosina che puntasse il  mouse in automatico, al cambio del foglio,  sulla cella relativa alla data odierna. ho dovuto formattare le celle come .....data, naturalmente non riesco più a sommare. tenete presente che ho più fogli1 da aggiornare. domanda: e' possibile riuscire in entrambe le cose. al cambio del foglio, avere il puntatore sulla cella corretta, inserire il valore e ottenere la somma.

 

 

p.s.

questo e' il primo codicino che scrivo di mio pugno.

Grazieeee

Allegati:

You must be logged in to view attached files.

[GiuseppeMNPartecipante GiuseppeMN Karma: 19 pts]

Buona giornata, @mandoz;
forse devo ancora "carburare", l'età è quella che è e di certo non aiuta  , ma non mi è chiara la tua richiesta:
... naturalmente non riesco più a sommare. tenete presente che ho più fogli1 da aggiornare. Domanda: e' possibile riuscire in entrambe le cose. Al cambio del foglio, avere il puntatore sulla cella corretta, inserire il valore e ottenere la somma.
Puoi chiarrmi questo concetto?

Giuseppe

[mandozPartecipante mandoz]

Buongiorno anche a te, @giuseppemn

comincio col precisare che l'età non aiuta neanche me ed in più ho l'aggravante vba. ci riprovo. ho un file excel con 6 fogli come il foglio1 allegato. uso il file per contabilità famigliare. se oggi spendo €100 vado nel foglio1, cerco la cella corrispondente al 23/nov e scrivo 100. sommando la riga novembre riesco a tener presente quanto spendo. cerco la cella 23/nov manualmente..... Con il tuo aiuto ho ottenuto che, cambiando il foglio (ne ho 6), il mouse trova la cella 23/nov in automatico. se nell'allegato clicchi sulla "linguetta" foglio2 troverai la cella con la data odierna selezionata. per fare questo ho formattato il range d4:ah15 come data. con questa formattazione non riesco più a sommare la riga/mese. come posso ottenere la selezione della cella corretta, scrivere 100 e ottenere la somma delle spese.

 

Nuovamente grazie

Saluti

[GiuseppeMNPartecipante GiuseppeMN Karma: 19 pts]

Buona giornata @mandoz;
vediamo se ho capito:
- Selezioni una Data sul Foglio2
- Selezinando uno dei Fogli di lavoro vuoi che il cursore si posizioni nella Cella corrispondente alla Data selezionata
- Inserisci l'importo e vuoi avere il Totale del mese e il Totale complessivo

Ho interpretato correttamente la Tua richiesta?

Oppure vuoi che il Totale del mese venga riportato anche sul Foglio2 (Calendario)?

In questo caso credo sarebbe opportuno conoscere il NomeFoglio dei 6 Fogli di lavoro.

 

Giuseppe

 

[mandozPartecipante mandoz]

un saluto @giuseppemn,

e' corretto quello che dici. scoperto l'indirizzo della cella del foglio2(calendario, in automatico) mi piacerebbe che al cambiare del foglio(foglio1, foglio3, - 6 in totale -) il puntatore selezionasse la cella con lo stesso indirizzo. il range in esame non cambia. d4:ah15. la somma mi serve nei foglio1-3-4 ecc

 

Grazie

[GiuseppeMNPartecipante GiuseppeMN Karma: 19 pts]

Buona serata @mandoz;
riesco a collegarmi solo ora.

- Ho rinominato il Foglio2 in Calendario
- Ho generato 6 Fogli di lavoro
In ognuno di questi 6 Fogli di lavoro ho moificato i "Mesi" inseriti in Colonna "B" con le date Dal 01 gennaio al 01 dicembre con Formato "mmm", in Colonna "C" ho inserito il "Totale del mese"
Ne foglio di lavoro "Calendario" ho cancellato la Formula in Cella "A4":

=DATA(ANNO(OGGI());RIF.RIGA(O1);RIF.COLONNA(O1))

Ho utilizzato due "Eventi":

In "Foglio2 (Calendario)"

Option Explicit

Private Sub Worksheet_Activate()
Dim Mese As Byte, Giorno As Byte

For Mese = 4 To 15
For Giorno = 4 To 34
If Cells(Mese, Giorno) = Date Then
Cells(Mese, Giorno).Select
Exit For
End If
Next Giorno
Next Mese
End Sub

in "Questa cartella di lavoro"

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Mese As Byte, Giorno As Byte

If ActiveSheet.Name <> "Calendario" Then
For Mese = 4 To 15
If Month(Cells(Mese, 2)) = Month(Date) Then
For Giorno = 4 To 34
If Cells(2, Giorno) = Day(Date) Then
Cells(Mese, Giorno).Select
Exit For
End If
Next Giorno
End If
Next Mese
End If
End Sub

Fai sapere se hai problemi.

 

Buona serata.

Giuseppe

[mandozPartecipante mandoz]

buona sera @giuseppemn,

non serve che ti dica che funziona. studierò le tue scritture. solo una curiosità'. perchè se clicco sul giorno Calendario

non si seleziona la cella corretta?

 

Ancora grazie.

[GiuseppeMNPartecipante GiuseppeMN Karma: 19 pts]

Buona sera, @mandoz.

A proposito di:

... perchè se clicco sul giorno Calendario non si seleziona la cella corretta? ...

è un'opzione che non ho considerato; puoi chiarire meglio quello che vuoi ottenere?

Forse premendo la data vuoi che, selezionando uno dei 6 Fogli di lavoro si selezioni la Cella corrispondente.

 

Buona serata.

Giuseppe

[mandozPartecipante mandoz]

Buona sera @giuseppemn

mi farebbe comodo che, a  prescindere dal foglio selezionato, la cella selezionata sia quella corretta. quella che segnala mese/giorno

 

Grazie mille.

[GiuseppeMNPartecipante GiuseppeMN Karma: 19 pts]

L'unica cosa che riesco a proporti è "InputBox" dove "a manina" inserisci la Data da selezionare in uno dei 6 Fogli di lavoro.

Molto probabilmente qualche Guru di VBA potrà aiutarti più convenientemente.

 

Giuseppe

[mandozPartecipante mandoz]

Buongiorno, GiuseppeMn

non sono alla ricerca di  alcun Guru. il lavoro che hai fatto è di assoluto valore e risolve il mio problema in maniera egregia.

 

Ancora una volta........grazie

[Autore]

Articoli