Marinai di Terraferma

Un aiutino, se vi va (do per scontato che un mago ci sia, qui..)
Nel mio file calendario personale in excel, avrei bisogno di creare un pulsante (o una cella fissa) da cliccare per raggiungere rapidamente la cella con la data di "oggi"

- naturalmente c'è una colonna 'data'
- il pulsante / cella sarebbe sempre visibile nell'area bloccata in testa al calendario
- il calendario è lungo, anche più di un anno; 7 righe per data
- quando chiudo trascuro ovviamente spesso di rimettermi su 'oggi'
- raggiungere la data è solo una seccatura, ma... insomma qualcuno ha voglia di dirmi come potrei fare?

Grazie...

(Per inciso, io ce la farei una rubrica/thread "aiuti": da parte mia, so tutto sulle piastrelle e sulla posa, quasi tutto su altro... )

ecco la macro (buttata li..):

Sub Oggi()
'
' Oggi Macro
' Vai a oggi
'

' calcola dove si trova la cella con la data odierna..

data = Date

' inizia dalla cella A3.. immaginando la data nella colonna A... e che la prima sia A3..
' eventualmente modificare la cella di partenza...

Worksheets("Sheet1").Range("A3").Activate

' questo loop gira finche' non trova la data odierna oppure una cella vuota nella data..
Do While Not IsEmpty(ActiveCell.Offset(1, 0))

If (ActiveCell.Value = data) Then
' seleziona la cella in questione.. e ho finito..
ActiveCell.Select
Exit Do
Else
' passa alla prossima riga e scrolla giu' di una riga..
ActiveCell.Offset(1, 0).Select
ActiveWindow.SmallScroll Down:=1
End If
Loop

End Sub

Per il pulsante vedi qui: http://www.pcdazero.it/2502_macro_excel.php

Ommamma...

Credevo di aver detto , ma non l'ho fatto, che non so usare le macro.. né leggerle se sono tanto difficili; ad es. le stringhe con gli apici sono spiegazioni, da omettere suppongo?

Cmq grazie Guru, mi faccio una copia del file e provo...

allora iniziamo da un' po' prima...

crea un file di testo e incollaci il seguente testo:
Attribute VB_Name = "Module1"
Sub Oggi()
Attribute Oggi.VB_Description = "Vai a oggi"
Attribute Oggi.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Oggi Macro
' Vai a oggi
'

' calcola dove si trova la cella con la data odierna..

data = Date

' inizia dalla cella A3.. immaginando la data nella colonna A... e che la prima sia A3..
' eventualmente modificare la cella di partenza...

Worksheets("Sheet1").Range("A3").Activate

' questo loop gira finche' non trova la data odierna oppure una cella vuota nella data..
Do While Not IsEmpty(ActiveCell.Offset(1, 0))

If (ActiveCell.Value = data) Then
' seleziona la cella in questione.. e ho finito..
ActiveCell.Select
Exit Do
Else
' passa alla prossima riga e scrolla giu' di una riga..
ActiveCell.Offset(1, 0).Select
ActiveWindow.SmallScroll Down:=1
End If
Loop

End Sub

Ho evidenziato in rosso il punto chiave... mi aspetto (e cerco) la data odierna nella colonna A a partire dalla cella A3...
se cosi' non fosse... devi modificare la cella di partenza per puntare alla tua prima data..

Continuamo con il file di testo, rinominalo in Oggi.bas

Nel file excel vai sul tab "sheet1" (primo foglio) con il cursore e premi tasto destro.. seleziona "View Code" nel menu contestuale (come avranno tradotto nella versione italiana? "visualizza codice"? ... al solito io ho solo MSOffice in inglese..)

Appare una nuova finestra del interprete Visual Basic...

File -> Importa da File...

seleziona il nostro file Oggi.bas

File -> Salva e chiudi la finestra visual basic.

A questo punto la macro e' disponibile nel file excel , per lanciarla puoi costruire il pulsante oppure
selezionare il menu' Tools - Macro - "> Macro" e pescare la macro "Oggi" e fare run...

mi sono accorto che basta selezionare Tools-> Macro-> Visual Basic Editor

il resto e' inalterato..

Ok grazie ancora, stasera ci provo
Per adesso si lavora... gratis

allora? ha funzionato?

Guru, devo mandar via un progetto entro oggi... da domani sono tutto "suo"...
(della macro...)

Rieccomi...
Allora dopo aver smanettato un po', il file di testo, creato con word e poi rinominato .bas non viene accettato da visual basic;
in visual basic, sono riuscito ad aprire una finestra e copiare il testo che mi hai mandato, ma...
lanciando la macro, si ferma subito e protesta per errore di sintassi: non gli piace la parola Attribute




E lì mi fermo...

Questi idioti... hanno tradotto anche il linguaggio VB... ma si puo' essere piu' cretini?

ci provo...

ad averlo in italiano si farebbe in un attimo... ma io non ce l'ho excel in italiano!!! solo inglese..